[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:
#!/util/bin/perl
$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)
and
@;($t = $s) =~
mean?
--
Faber
-------------- 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