[ABE.pm] WTF is this code doing?

Faber Fedor faber at linuxnj.com
Tue Jun 5 18:48:04 PDT 2007

Since I'm on a self-modifying code kick, I googled the phrase and stumbled
across this:

$s = q@($t = $s) =~ s/\045/\100/g;
print "#!/util/bin/perl\n\$s = q%$s%;$t";
@;($t = $s) =~ s/\045/\100/g;
print "#!/util/bin/perl\n\$s = q@$s@;$t";

What does

q@($t = $s)


@;($t = $s) =~



-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/abe-pm/attachments/20070605/be364bb8/attachment-0001.html 

More information about the ABE-pm mailing list