Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 lurking in the Monastery: (18)
As of 2015-07-07 16:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (91 votes), past polls