Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
We don't bite newbies here... much
 
PerlMonks  

bart's scratchpad

by bart (Canon)
on Jun 01, 2004 at 13:11 UTC ( #358025=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #! perl -w -l
    
    ...
            print "UNTIE $this";
        }
    }
    
  2. or download this
    > "perl" test.pl
    Use of uninitialized value $value in concatenation (.) or string at te
    +st.pl line 32.
    ...
    FETCH from MyTie=SCALAR(0x326328): 123
    123
    DESTROY MyTie=SCALAR(0x326328)
    
  3. or download this
    #! perl -w
    use utf8;
    ...
    }
    
    print  "/[$class]/\n";
    
  4. or download this
    /[\u00e0-\u00e5\u0101\u0103\u0105]/
  5. or download this
    #! perl -w
    
    ...
       suppress  => sub { (my $x = $s)=~s/ .*//; return $x<=>100 },
       substr   => sub { return substr($s, 0, index $s, ' ')<=>100 },
    };
    
  6. or download this
                  Rate  capture    local suppress  lexical   substr    cle
    +an
    capture   195157/s       --     -25%     -73%     -86%     -88%     -9
    +2%
    ...
    lexical  1371744/s     603%     425%      90%       --     -18%     -4
    +3%
    substr   1679632/s     761%     543%     133%      22%       --     -3
    +1%
    clean    2427737/s    1144%     830%     236%      77%      45%       
    +--
    
  7. or download this
    use DBIx::Simple;
    unlink 'testdb.sqlite';  # drop the database file
    ...
        local($\, $,) = ("\n", "\t");
        print map { defined $_ ? $_ : 'NULL' } @$_;
    }
    
  8. or download this
    YYYNY
    1    foo    one    1
    3    baz    three    3
    4    bar    replaces    NULL
    
  9. or download this
      <perl>
         warn "first block";
    ...
      <perl>
         warn "second block";
      </perl>
    
  10. or download this
    Syntax error on line 33 of /etc/apache2/listen.conf:
    syntax error at /etc/apache2/listen.conf line 36, near "perl>"\n
    
  11. or download this
      <perl>
         warn "first block";
    ...
      # ";
         warn "second block";
      </perl>
    
  12. or download this
    first block at /etc/apache2/listen.conf line 33.
    second block at /etc/apache2/listen.conf line 39.
    Syntax OK
    
  13. or download this
    C:\Documents and Settings\Bart\Mijn Documenten>perl -MExtUtils::Liblis
    +t -MData::Dumper -le "print Dumper(ExtUtils::Liblist->ext('-lJudy', 1
    +))"
    Set up gcc environment - 3.4.5 (mingw-vista special r3)
    ...
    
    
    C:\Documents and Settings\Bart\Mijn Documenten>
    
  14. or download this
    perl reconnect.pl G: H:
    
  15. or download this
    #! perl -wl
    my %net_use;
    ...
        # print $unpack;
        return grep $_->[2] =~ /^\\\\/, map [ unpack $unpack, $_ ], @net;
    }
    
  16. or download this
    .chatfrom_599759:after {
      content:" ...";
    ...
    span.chatfrom_599759:hover:after {
      content: "";
    }
    
  17. or download this
    print ignore_css(qw(190859 599759));
    
    ...
        }
        return "";
    }
    
  18. or download this
    #! perl -w
    {
    ...
           print;
        }
    }
    
  19. or download this
    The Start
    Store outside
    ...
    Fetch outside
    outside
    The End
    
  20. or download this
    local *_ = \undef;
    
  21. or download this
    # The metrics_path is used to locate metrics files
    #
    ...
    $metrics_path =~ tr&\\&/& if $path_sep eq ';';
    my @metrics_path = split(/$path_sep/, $metrics_path);
    foreach (@metrics_path) { s,/$,, }    # remove trailing slashes
    
  22. or download this
    --- C:\Documents and Settings\All Users\Documenten\Downloads\Font\AFM.
    +pm    Sun Dec 25 22:20:34 2005
    +++ C:\PERL\site\lib\Font\AFM.pm    Wed Jun 27 08:26:12 2001
    ...
        my $self = bless { }, $class;
        local($/, $_) = ("\n", undef);  # ensure correct $INPUT_RECORD_SEP
    +ARATOR
        while (<AFM>) {
    
  23. or download this
    package HexDump;
    
    ...
    }
    
    1;
    

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 studying the Monastery: (3)
As of 2014-04-20 20:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (487 votes), past polls