Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

atcroft's scratchpad

by atcroft (Monsignor)
on Jun 01, 2004 at 16:21 UTC ( #358181=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my %element = (
                 'by_name' => {
    ...
                                  'Zr' => 'Zircronium'
                                }
               );
    
  2. or download this
    git clone ssh://user@githost/git/foo
    cd foo
    #Work to files in the repository
    
  3. or download this
    git log file.txt
    git log --follow file.txt
    git log --follow -C -M file.txt
    
  4. or download this
    git log --graph
    git log --graph --oneline
    git log --graph --pretty=format':%C(yellow)%h%Cblue%d%Creset %s %C(whi
    +te) %an, %ar%Creset'
    
  5. or download this
    git mv new-file-2.pl new-file.pl
    git commit -m "new-file.pl: Rename file from new-file-2.pl."
    
  6. or download this
    git rm --cached new-file-3.pl
    git commit -m "new-file-3.pl: Remove file from Git repository (but lea
    +ve in directory)."
    
  7. or download this
    git rm new-file-4.pl
    git commit -m "new-file-4.pl: Remove file from Git repository."
    
  8. or download this
    git config --global user.name  "John Doe"
    git config --global user.email 'jdoe@example.com'
    
  9. or download this
    #!/usr/bin/perl
    
    ...
    }
    
    __END__
    
  10. or download this
    package Letter_A;
    
    ...
    }
    
    1;
    
  11. or download this
    package Letter_B;
    
    ...
    }
    
    1;
    
  12. or download this
    package Letter;
    
    ...
    }
    
    1;
    
  13. or download this
    #!/usr/bin/perl
    
    ...
    
    $s->identify;
    print Data::Dumper->Dump( [ \$s ], [qw( *s )] ), qq{\n};
    
  14. or download this
    #!/usr/bin/perl
    
    ...
    FOOTER
    }
    
  15. or download this
    #!/usr/bin/perl -lw
    
    ...
            delete $self->{$t};
        }
    }
    
  16. or download this
    #!/usr/bin/perl -l
    
    ...
    delete($bla->{temp});
    
    print Data::Dumper->Dump( [\$bla], [qw(*bla)]);
    
  17. or download this
    #!/usr/bin/perl -w
    
    ...
    HELPTEXT
        exit;
    }
    
  18. or download this
    #!/usr/bin/perl -w
    
    ...
    
    print qq{Coordinates:\n} . join( qq{\n\t}, @coor ), qq{\n},
        qq{RGBcolor:\n} . join( qq{\n\t}, @color ), qq{\n};
    
  19. or download this
    $ perl gol-test.pl --coordinates 52.2 16.4 --rgbcolor 255 255 149
    Getopt::Long 2.34 ($Revision: 2.68 $) called from package "main".
    ...
      ignorecase=1,requested_version=0,passthrough=0,genprefix="(--|-|\+)"
    +.
    Error in option spec: "coordinates=f{2}"
    Error in option spec: "rgbcolor=i{3}"
    
  20. or download this
    #!/usr/bin/perl -w
    
    ...
    }
    __END__
    
  21. or download this
    #!/usr/bin/perl
    
    ...
        printf "the object %s $method\n",
            $wrapper->can($method) ? 'can' : 'cannot';
    }
    
  22. or download this
    use strict;
    use warnings;
    ...
    }
    
    1;
    
  23. or download this
    use strict;
    use warnings;
    ...
    }
    
    1;
    
  24. or download this
    #
    # My/Wrapper.pm
    ...
    }
    
    1;
    
  25. or download this
    #!/usr/bin/perl -w
    # vim:set expandtab shiftwidth=4 softtabstop=2 tabstop=4:
    ...
     
    my $result = $stylesheet->transform($source_doc);
    print $stylesheet->output_string($result);
    
  26. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
        }
      }
    }
    
  27. or download this
    
    print join(", ", 
      map{ q{<a href="link.pl?=} . $_ . q{" target="_blank" onclick="var w
    +inHandle = window.open('', '', 'width=400,height=200'); return(false)
    +;">} . $_ . q{</a>} } @array
      );
    
  28. or download this
    # Title:    Go Rest High on that Mountain
    # Artist:   Vince Gill
    ...
    HEAVEN:
        $you->shouting('love for the Father and the Son');
    }
    
  29. or download this
    for my $host (keys %hosts) {
      for my $servicename ( @{$hosts{$host}} ) {
    ...
        }
      }
    }
    
  30. or download this
    #!/usr/bin/perl
    
    ...
        )
    );
    close($OUTF);
    
  31. or download this
    $CPAN::Config = {
      'build_cache' => q[10],
    ...
    };
    1;
    __END__
    
  32. or download this
    #!/usr/bin/perl -w
    
    ...
    $objects{frame}{c1}->grid( -row => 0, -column => 0, -rowspan => 4, -co
    +lumnspan => 10, -sticky => 'nsew' );
    
    MainLoop;
    
  33. or download this
    #!/usr/bin/perl
    
    ...
            close(IN);
        }
    }
    
  34. or download this
    $ perl test.6.pl
    Content-seen:
    ...
    
    Content:
    
  35. or download this
    #!/usr/bin/perl -w
    
    ...
    
    # print Data::Dumper->Dump( [ \$parser, \$content, \$podcontent ], 
    #   [qw(*parser *content *podcontent)] ), "\n";
    

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 chanting in the Monastery: (5)
As of 2014-08-31 11:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls