JAPH问题,充分发挥你的想象

Meteorlet 2005-02-01 11:32:11
在Perl文化里有个很有趣的JAPH,Just A Perl Hacker问题,就是写一段程序输出这句话。在PHP里我们也可以改成输出Just A PHP Hacker,有兴趣的可以试试看,下面是我从Perl里移植过来的:
<?php
echo "Just A PHP Hacker.";
?>

<?php
echo <<<EOT
Just A PHP Hacker.
EOT;
?>

<?php
$a = array("Just","A", "PHP", "Hacker.");
echo join($a, " ");
?>

<?php
$str = 'x(\'Just \');x("A ");x("PHP ");x("Hacker.");';
eval(preg_replace('/x/', 'print', $str));
?>
...全文
480 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
surfchen 2005-02-01
  • 打赏
  • 举报
回复
function getWord($num)
{
if ($num=='space'){return ' ';}
$word=a;
for ($i=1;$i<$num;$i++){++$word;}
return $word;
}
$words=array('10','21','19','20','space','1','space','16','8','16','space','8','1','3','11','5','18');
foreach ($words as $value)
{
$php.=getWord($value);
}
echo ucwords(str_replace('php','PHP',$php));
tony-杨 2005-02-01
  • 打赏
  • 举报
回复
有意思

呵呵
Jzealot 2005-02-01
  • 打赏
  • 举报
回复
<?php
$test = new Java("test");
$str = $test -> getStr();
echo $str;
?>
surfchen 2005-02-01
  • 打赏
  • 举报
回复
<?php
?>
Just A PHP Hacker
<?php
?>
Meteorlet 2005-02-01
  • 打赏
  • 举报
回复
<?php
$s1 = ",,.,,.,,.,,.,,,,..,,,,,,,,,,,,,,,,,,,..,..,,.,,,,,,,,.";
$s2 = <<<EOT
`~```'``~```~"'~^'~"'``'`~^``'~"'`~^~^'~^^`~'`~```^~^`
EOT;
$a = str_replace(array(',','.'), array(0,5),
",,.,,.,,.,,.,,,,..,,,,,,,,,,,,,,,,,,,..,..,,.,,,,,,,,.");
$b = str_replace(preg_split('//','~`\'"^'), preg_split('//','01234'),
"`~```'``~```~\"'~^'~\"'``'`~^``'~\"'`~^~^'~^^`~'`~```^~^`");
for ($i =0; $i < strlen($a); $i+=3)
{
print(chr(substr($a, $i, 3) + substr($b, $i, 3)));
}?>
Meteorlet 2005-02-01
  • 打赏
  • 举报
回复
<?php
$s1 = ",,.,,.,,.,,.,,,,..,,,,,,,,,,,,,,,,,,,..,..,,.,,,,,,,,.";
$s2 = <<<EOT
`~```'``~```~"'~^'~"'``'`~^``'~"'`~^~^'~^^`~'`~```^~^`
EOT;
$a = str_replace(array(',','.'), array(0,5),
",,.,,.,,.,,.,,,,..,,,,,,,,,,,,,,,,,,,..,..,,.,,,,,,,,.");
$b = str_replace(preg_split('//','~`\'"^'), preg_split('//','01234'),
"`~```'``~```~\"'~^'~\"'``'`~^``'~\"'`~^~^'~^^`~'`~```^~^`");
for ($i =0; $i < strlen($a); $i+=3)
{
print(chr(substr($a, $i, 3) + substr($b, $i, 3)));
}
?>
jxyuhua 2005-02-01
  • 打赏
  • 举报
回复
厉害
xuzuning 2005-02-01
  • 打赏
  • 举报
回复
<?php
$a = array(
array(168,88,168,91,168,88,168,106,168,84,168,106,168,84,168,106,168,84,168,106,168,91,168,88,168,91,161,161,168,88,168,84,168,106,168,84,168,106,168,106,168,106,168,91,161,161,168,88,168,91,168,88,168,106,168,84,168,106,168,84,168,106,168,84,168,84,168,91),
array(168,85,168,94,168,97,168,85,168,85,168,85,168,85,168,85,168,85,168,85,168,94,168,97,168,85,161,161,168,85,168,85,168,85,168,84,168,103,168,85,168,85,168,85,161,161,168,85,168,94,168,97,168,85,168,84,168,103,168,85,168,85,32,168,84,32,168,85),
array(168,85,168,88,168,91,168,85,161,161,168,85,168,88,168,103,168,88,168,109,168,91,168,88,168,97,161,161,168,85,168,85,168,85,168,84,168,103,168,85,168,85,168,85,161,161,168,94,168,91,168,88,168,103,168,84,168,103,161,161,168,85,168,88,168,91,168,94,168,91),
array(168,94,168,97,168,94,168,109,168,109,168,109,168,97,168,94,168,97,161,161,168,94,168,97,161,161,161,161,168,94,168,109,168,109,168,84,168,109,168,84,168,84,168,97,161,161,161,161,168,94,168,97,168,94,168,84,168,109,168,109,168,109,168,97,168,94,168,84,168,97));

function foo($p) {
echo join('',array_map('chr',$p)).'<br>';
}

array_map('foo',$a);
?>
-神仙- 2005-02-01
  • 打赏
  • 举报
回复
再来一个:

preg_match_all("/.{2}/",'<Y?-?+?,:(<):(=(<0=(:(<0>)>+>Z>-?*',$a);
function f($k) {
echo chr(hexdec(chr(ord($k{0})-8).chr(ord($k{1})+8)));
}
array_walk($a[0],'f');
-神仙- 2005-02-01
  • 打赏
  • 举报
回复
$s='4a757374204120504850204861636b6572';
preg_match_all("/\w{2}/",$s,$a);
$o='';
function f($k,$v) {
global $o;
$o.=chr(hexdec($k));
}
array_walk($a[0],'f');
echo $o;
改一下。
-神仙- 2005-02-01
  • 打赏
  • 举报
回复
$s='4a7573742041205065726c204861636b6572';
preg_match_all("/\w{2}/",$s,$a);
$o='';
function f($k,$v) {
global $o;
$o.=chr(hexdec($k));
}
array_walk($a[0],'f');
echo $o;
cloudchen 2005-02-01
  • 打赏
  • 举报
回复
第三个有点意思,前两个没看懂,有什么用
是是非非 2005-02-01
  • 打赏
  • 举报
回复
呵呵,好玩
Meteorlet 2005-02-01
  • 打赏
  • 举报
回复
<?php
$LOVE= AMOUR.
tick.cards. ecstacy.crush
.hon.promise.de .votion.partners.
tender.truelovers. treasure.affection.
devotion.care.woo.baby.ardor.romancing.
enthusiasm.fealty.fondness.turtledoves.
lovers.sentiment.worship.sweetling.pure.
attachment.flowers.roses.promise.poem;
$LOVE = preg_replace('/\s/', '', $LOVE);
$LOVE=str_replace(AMOUR, adore, $LOVE);
strtolower($LOVE); $a=preg_split('//',
$LOVE);$o.= chr (ord($a[2])+6). chr
(ord($a[4])+3). $a[17].$a[6]. chr
(32). $a[1]. $a[(26+3)].$a[28].
$a[6].$a[26].$a[15].$a[4].chr
(32).$a[30].$a[26].$a[30].
chr(32).$a[26].$a[1].
$a[10].$a[9].$a[5].
$a[4].'.';
print
$o;
?>

21,893

社区成员

发帖
与我相关
我的任务
社区描述
从PHP安装配置,PHP入门,PHP基础到PHP应用
社区管理员
  • 基础编程社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧