Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Please explain me how it works... e-mail me if you can plz to nikos@hotbox.ru...thanks

by iamcal (Friar)
on Jun 01, 2001 at 17:27 UTC ( [id://84916]=note: print w/replies, xml ) Need Help??


in reply to Please explain me how it works... e-mail me if you can plz to nikos@hotbox.ru...thanks

It's just a bunch of replacements and transliterations chained together.

Breaking it down:
#!/usr/bin/perl s*^*QJwEw=QGv:vt=PGwEvvvEwt=OGUtMGUt=N\@:tKG:A=O> G:GNb,&+ 1%" Z)2" j& +zz,+* && s^$^ Y+1&E["+0,/0%&- [y*-y&\$+!=Pt:S=QtUSQM%11-RGG444F"##F,/\$Gz)2"/&z +z^ , s@$@,+F%1*)=Q SF=QSUUt=PSF:t=OSJ>=NSL>=NtUUGNtUUG=OtGPtG=@ , y,=:-|"-9,\n"-|, , s,&,\\"\\,g , s,;,/"/,g , s,",===,g , s,(\d),' 'x$1,eg , print $_;
which can be tranlsted to:
#!/usr/bin/perl $a = q|QJwEw=QGv:vt=PGwEvvvEwt=OGUtMGUt=N@:tKG:A=O> G:GNb,&+ 1%" Z)2" +j&zz,+|; $a .= q| Y+1&E["+0,/0%&- [y*-y&\$+!=Pt:S=QtUSQM%11-RGG444F"##F,/\$Gz)2 +"/&zz|; $a .= q|,+F%1*)=Q SF=QSUUt=PSF:t=OSJ>=NSL>=NtUUGNtUUG=OtGPtG=|; $a =~ y!=:-|"-9!\n"-|!; $a =~ s!&!\\"\\!g; $a =~ s!;!/"/!g; $a =~ s!"!===!g; $a =~ s!(\d)!' 'x$1!eg; print $a;
  • Comment on Re: Please explain me how it works... e-mail me if you can plz to nikos@hotbox.ru...thanks
  • Select or Download Code

Replies are listed 'Best First'.
Re: Re: Please explain me how it works... e-mail me if you can plz to nikos@hotbox.ru...thanks
by Anonymous Monk on Jun 01, 2001 at 18:37 UTC
    Thanks a lot! I will play with it :)))

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://84916]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (2)
As of 2024-06-20 06:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.