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 (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 drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2024-03-28 21:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found