Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: How's your Perl? (II)

by ambrus (Abbot)
on Jul 22, 2004 at 13:55 UTC ( [id://376571]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $foo = *bar; \$foo =~ /^[A-G]/ and print "Ok!\n";
    
  2. or download this
    *foo = *1; !eval { ($foo) = $foo } and print "Ok\n";
    
  3. or download this
    *foo = *_; sub { \$foo[0] == \$foo[1] && !$[ and print "Ok\n"; } -> ($
    +x, $x);
    
  4. or download this
    sub{*foo=\@_}->($x,$x); \$foo[0] == \$foo[1] && !$[ and print "Ok!\n";
    
  5. or download this
    *foo = \substr(1,0,1); \$foo =~ /^[H-N]/ and print "Ok!\n";
    
  6. or download this
    BEGIN{$^H{"qr"}=sub{""};$^H|=3<<16}; \$foo =~ /^\0/ and print "Ok!\n";
    
  7. or download this
    $[ = 2; *| = *[;  ($| = 1) == 2 and print "Ok!\n"; warn 0+$|;
    
  8. or download this
    perl -wde 'sub DB::DB { ++$foo==2 and die "break out the eval"; }; !ev
    +al { [ @foo ] } and print "Ok!\n"; '
    
  9. or download this
    #!perl -d
    sub DB::DB { ++$foo==2 and die "break out the eval"; }; !eval { [ @foo
    + ] } and print "Ok!\n";
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2024-03-28 11:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found