Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
go ahead... be a heretic
 
PerlMonks  

The making of (was: I can see the forestů)

by Aristotle (Chancellor)
on Oct 09, 2004 at 19:01 UTC ( #397892=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    @j = "Just", @a = "another", @p = "Perl", @h = "hacker"; s//@j,/, prin
    +t
    
  2. or download this
    @j = ( "Just", @a = "another", @p = "Perl", @h = "hacker" ); s//@j,/, 
    +print
    
  3. or download this
    @j = (( "Just"    )),
    @a = (( "another" )),
    @p = (( "Perl",   )),
    @h = (( "hacker"  )),
    
  4. or download this
    @j = ( '"Just"', @a = 'another', @p = 'Perl', @h = 'hacker',
    
  5. or download this
    @j = (( qw)"Just"   )),
    @a = (( qw"another" )),
    @p = (( qw"Perl"    )),
    @h = (( qw"hacker"  )),
    
  6. or download this
    @j = ((qw)" Just   " )),
    @a = ((qw " another" )),
    @p = ((qw " Perl   " )),
    @h = ((qw " hacker " )),
    
  7. or download this
    @j = ( '"', 'Just, '"', @a = 'another', @p = 'Perl', @h = 'hacker',
    
  8. or download this
    $ perl -MO=Deparse japh.pl
    @j = (('"', 'Just', '"'), @a = 'another', @p = 'Perl', @h = 'hacker', 
    +()), (s//@j,/, s/" //g), print($_);
    - syntax OK
    
  9. or download this
    @j = ((qw)" Just   " )), @a = ((qw " another" )),
    @p = ((qw " Perl   " )), @h = ((qw " hacker " )),
    (()),),(s""@j,",s (" )))g), print
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (15)
As of 2014-04-16 20:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (434 votes), past polls