Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

JadeNB's scratchpad

by JadeNB (Chaplain)
on Aug 20, 2008 at 18:19 UTC ( #705579=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use Benchmark qw/cmpthese/;
    use List::Util qw/reduce/;
    ...
            join '&', kvmap { "$a=$b" } @data;
        }
    };
    
  2. or download this
    sub TIESCALAR { bless \my $o => $_[0] }
    sub STORE { $_[1] = "Touched by STORE\n" }
    ...
    print $b; # => Untouched by STORE
    tied($a)->STORE($b);
    print $b; # => Touched by STORE
    
  3. or download this
    sub walk {
         my ( $ref ) = @_;
    ...
              default { carp "I'm confused by $ref" }
         }
    }
    
  4. or download this
    {
    my ( $test, $modify );
    ...
         }
    }
    }
    
  5. or download this
    my ( $gold ) = $data =~ /$rx/
    
  6. or download this
    qr/(foo).*(foo)(?{ $_ =~ s+foo+bar+g })/
    
  7. or download this
    use re 'eval';
    my $rx = qr/$rx_with_foo(?{ $_ =~ s+foo+bar+g })/
    
  8. or download this
    {
    package A;
    ...
    print $a->legal_keys, "\n";
    print $a, "\n";
    print Hash::Util::legal_keys($a), "\n";
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (1)
As of 2023-01-28 13:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?