http://www.perlmonks.org?node_id=33965

$_=q , . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . . . + . . . . . . . . . . . . . . . . . . . . . . . . . + . ,,s,(([\s\S])\2*),1<length$1?1:$1eq' '?0:'',ge,tr,01,,cd,eval pack"B*" +,$_

Replies are listed 'Best First'.
RE: Caution - contents may settle in transit
by Anonymous Monk on Oct 12, 2000 at 21:49 UTC
    I have a script like this and i'm trying to understand how it works... the $_=q(with all those unprintable char after) how does this work. Please help I need it bad, i've been serching since yesterday...
      Read the docs for qin perlop. Learn how to build a q operator statement with different delimiters.
      $_=q uit it u; print; # prints 'it it '
      Enjoy!
      --
      Casey
         I am a superhero.
      
        Hi! THanks a lot, you've put me on the right page! ;) But I can't figure out how the tr{}{} function operator works... I have a "tr" followed by a bunch of garbage in a script but can't figure out how to translate this stuf... any exemple? thanks again for your precious help! you're my superhero ;)