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

atcroft's scratchpad

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

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings FATAL => qw( all );
    ...
        }
    
    }
    
  2. or download this
    $ perl la-2.pl 2>&1
    
    ...
    put away clothing of the day
    
  3. or download this
    perl -Mstrict -Mwarnings -MData::Dumper -MYAML -le '
    my @episode = ( 
    ...
        [ qw( *episode *stories ) ] 
    );
    '
    
  4. or download this
    git clone ssh://user@githost/git/foo
    cd foo
    #Work to files in the repository
    
  5. or download this
    git log file.txt
    git log --follow file.txt
    git log --follow -C -M file.txt
    
  6. 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'
    
  7. 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."
    
  8. 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)."
    
  9. or download this
    git rm new-file-4.pl
    git commit -m "new-file-4.pl: Remove file from Git repository."
    
  10. or download this
    git config --global user.name  "John Doe"
    git config --global user.email 'jdoe@example.com'
    
  11. or download this
    package Letter_A;
    
    ...
    }
    
    1;
    
  12. or download this
    package Letter_B;
    
    ...
    }
    
    1;
    
  13. or download this
    package Letter;
    
    ...
    }
    
    1;
    
  14. or download this
    #!/usr/bin/perl
    
    ...
    
    $s->identify;
    print Data::Dumper->Dump( [ \$s ], [qw( *s )] ), qq{\n};
    
  15. or download this
    #!/usr/bin/perl
    
    ...
    FOOTER
    }
    
  16. or download this
    #!/usr/bin/perl -lw
    
    ...
            delete $self->{$t};
        }
    }
    
  17. or download this
    #!/usr/bin/perl -l
    
    ...
    delete($bla->{temp});
    
    print Data::Dumper->Dump( [\$bla], [qw(*bla)]);
    
  18. or download this
    #!/usr/bin/perl -w
    
    ...
    HELPTEXT
        exit;
    }
    
  19. 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};
    
  20. 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}"
    
  21. or download this
    #!/usr/bin/perl -w
    
    ...
    }
    __END__
    
  22. or download this
    #!/usr/bin/perl
    
    ...
        printf "the object %s $method\n",
            $wrapper->can($method) ? 'can' : 'cannot';
    }
    
  23. or download this
    use strict;
    use warnings;
    ...
    }
    
    1;
    
  24. or download this
    use strict;
    use warnings;
    ...
    }
    
    1;
    
  25. or download this
    #
    # My/Wrapper.pm
    ...
    }
    
    1;
    
  26. or download this
    # vim:set expandtab shiftwidth=4 softtabstop=2 tabstop=4:
    
  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
    for my $host (keys %hosts) {
      for my $servicename ( @{$hosts{$host}} ) {
    ...
        }
      }
    }
    
  29. or download this
    #!/usr/bin/perl
    
    ...
        )
    );
    close($OUTF);
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (5)
As of 2024-03-28 22:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found