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

Sidhekin's scratchpad

by Sidhekin (Priest)
on Jun 04, 2004 at 10:11 UTC ( #360791=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #   Failed test ' -- the inner trap -- print() with closed STDOUT: War
    +nings'
    #   at t/03-files.pl line 80.
    ...
    # '
    #     doesn't match '(?-xism:\A(?-xism:^print\(\)\ on\ closed\ filehan
    +dle\ STDOUT\ at\ )[^\0]*\z)'
    # Looks like you failed 1 test of 76.
    
  2. or download this
    sidhekin@blackbox[07:05:22]~$ 562perl -MTest::More=tests,1 -le 'like("
    +print() on closed filehandle STDOUT at t/03-files.pl line 131.\n", qr
    +/(?-xism:\A(?-xism:^print\(\)\ on\ closed\ filehandle\ STDOUT\ at\ )[
    +^\0]*\z)/)'
    1..1
    ok 1
    sidhekin@blackbox[19:38:28]~$
    
  3. or download this
    tr.pmnote-641932 td.reply-body:first-child:before {
      content: url(http://icanhascheezburger.wordpress.com/files/2007/10/1
    +28347333970156250nooneunderstan.jpg);
    ...
    tr.pmnote-641932 td.reply-body * {
      display: none !important;
    }
    
  4. or download this
    sub get_definition_result {
           my ($dbh, $word_term, $dict) = @_; 
    ...
     
           return [ [ undef, $result ] ];
    }
    
  5. or download this
    use Test::More qw( no_plan );
    use Test::Trap qw(:void_is_scalar:diag_all_on_fail);
    ...
    #       "wantarray" => "",
    #       "warn"      => [],
    #     }, "Test::Trap")
    
  6. or download this
    # bart's setup:
    $re = 'Il est (\d+) heurs moins (\d+).';
    ...
    
    # and a print:
    print
    
  7. or download this
    #!/usr/bin/perl
    
    ...
    
    trap { my $obj = bless [], 'A3'; 1 };
    $trap->did_die( q[Failure during scope cleanup is detected] );
    
  8. or download this
    1..6
    # Should die, but doesn't:
    ...
    #   at /home/eirik/tmp/kladd.pl line 28.
    #     Expecting to die(), but instead return()ed with []
    # Looks like you failed 3 tests of 6.
    
  9. or download this
    #!/usr/bin/perl
    
    ...
    /*%*;
    __END__
    }*%*;
    
  10. or download this
    perl -wles/ -e+/chr -e32/ge,print -efor@_=q.Look, -eMa -e-- -eno -eshe
    +ll -emeta -echaracters..chr -e33
    
  11. or download this
    # like this?
    register( foo => [qw( i p n )], \&bar );
    ...
    
    # or more verbose?
    register( foo => [qw( indexed predicate name )], \&bar );
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2020-12-03 17:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How often do you use taint mode?





    Results (57 votes). Check out past polls.

    Notices?