Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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 drinking their drinks and smoking their pipes about the Monastery: (11)
As of 2014-07-31 16:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (249 votes), past polls