Content deleted Content added
m Reverted edits by 172.216.65.139 (talk) to last version by Marudubshinki |
→Examples: another example |
||
Line 32:
foreach qw y hex alarm chdir kill
exec return y s gt sin sort split
or one that doesn't use a single alphanumeric character:
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
This phrase was popularized by [[Randal L. Schwartz]], who created most of the first such programs in the signatures of his postings to the [[Usenet newsgroup]] comp.lang.perl (the predecessor to the modern comp.lang.perl.misc). (In fact, the first and third of the JAPHs above are his.)
| |||