Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Secret Perl Operators: the boolean list squash operator, x!!

by eyepopslikeamosquito (Canon)
on Jul 31, 2006 at 21:40 UTC ( #564877=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    -ap056 sub b{$_=lc;y/aeiouy//."/".y/a-z0-
    9//}$c=$b=':^I';map{$c.=pack$l=A.(($l=y///c)>3?++$l:4),$_;$b.=pack$l,b
    +}@F;$c
    =~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=(@F."$c
    ".b."$b
    ")x!!@F;s/ *$//mg
    
  2. or download this
    -n0 for$n(A..Z){$;[pos=-split/$n/i].="$n $#_\n"x!!$#_}print@
    
  3. or download this
    y/01/ #/,@F=/.../g,print"@F[@_]
    "for unpack'(b30)*','\xE7\xDF\xFF?%\xD9\x84-
    \xE5\xFF\x9F?eH\x96%\xE7\xCF\x9F?'x!!split//,pop
    
  4. or download this
    -nl sub J{map$_[$s-$_].=pop,1..$s;@_}$s=8;sub
    S{/./g;$&^t||!($s/=2)?($&x$s)x$s:(J(&S,&S),J&S,&S)x!!($s*=2)}print for
    + S
    
  5. or download this
    -pa ($~,$;,@F)=sort{$a-$b}@F,($c=$~+$;)x!!s/\b$~\b|\b($;)\b/$c,$#-
    /gwhile$;;s/$c|,//g
    
  6. or download this
    sub
    b{[@b=(abs||No,bottle."s"x!!++$_,of,beer),on,the,wall]}print
    "@{+b},\n@b,\nTake one down, pass it around,\n@{+b}.\n"
    for-pop||-99..-1
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2014-08-30 10:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (292 votes), past polls