Thread Abstrakter Perl-Code
(5 answers)
Opened by Maluku at 2004-03-04 17:02
Ich suche ein gewisses, sehr abstaktes Perl-Skript,
es bestand nur aus einer regex und hatte was ausgegeben. Es wurde mal hier diskutiuert, aber ich finde es nicht über die Suche. Es sah irgendwie so aus: /{? ... /{? }/}/ oder so und noch viel mehr dazwischen. Weis da noch wer was drüber? Code (perl): ()
1 2 3 4 5 $_=''; s%%`^.*`s;.*;uhtnmo;;a>lha~a>inu~a>fmk~a>rou~a>duM~a>btl~s;&&&&&&;!d1!l2!b3!i4!f5!r6q(?);e;Z` `}a>&&&`sub# "1#{#"_=shift#;s^"2^"3#^;``;~`return #"_#}``^!&&`"1(#""2)#\.`Z%; s~Z~print~g;s/#/\\/g;s/`(.)(.+?)`(.+?)`/s${1}${2}${1}${3}${1}g\;/g;s;&;(.);g;y^"^$^; print; |