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

[Meteorlet]

在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));
?>

[Meteorlet]

<?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;
?>

[是是非非]

呵呵，好玩

[cloudchen]

第三个有点意思，前两个没看懂，有什么用

[-神仙-]

$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;

[-神仙-]

$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;
改一下。

[-神仙-]

再来一个：

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');

[xuzuning]

<?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);
?>

[jxyuhua]

厉害

[Meteorlet]

<?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]

<?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)));
}?>

[surfchen]

<?php
?>
Just A PHP Hacker
<?php
?>

[Jzealot]

<?php
$test = new Java("test");
$str = $test -> getStr();
echo $str;
?>

[tony-杨]

有意思

呵呵

[surfchen]

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));