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

runrig's scratchpad

by runrig (Abbot)
on Jun 01, 2004 at 22:22 UTC ( #358702=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    }
    
    bb(@ARGV);
    
  2. or download this
    # Before loop:
    my %is_account;
    ...
    ...
    # In loop:
    push .... if !$is_account{$username};
    
  3. or download this
    awk '{
    i=i+1
    ...
    filename="file" i ".txt"
    print >filename
    }' tmp.txt
    
  4. or download this
    package FixStuff;
    
    ...
    
    ...
    FixText(...blahblah...);
    
  5. or download this
    use FixStuff;
    
    FixStuff::FixText(...blahblah...);
    
  6. or download this
    #!/users/contrib/bin/perl
    
    ...
    }
    print "Done\n";
    
  7. or download this
    package Release;
    
    ...
    }
    print "Done\n";
    
  8. or download this
    package Release;
    
    ...
      print "Release foo\n";
    }
    print "Done\n";
    
  9. or download this
    sub include_file {
      my $file = shift;
    ...
    
    #Example:
    include_file("file.txt");
    
  10. or download this
    # XML::Rules bug??
    # Just want to change some attributes on some tags
    ...
    
    $p->filter($xml, \*STDOUT);
    
  11. or download this
    
    INPUT: while (<>) {
    ...
      ( /^-?\d+/and $_ >= -2**31 and $_ < 2**31 ) or next INPUT for @nums;
      print "good line: $_";
    }
    
  12. or download this
    #Fetch into a hash
    my @columns = $sth->{NAME_lc};
    ...
      print "$_ = $row{$_}\n" for @columns;
      print "\n";
    }
    
  13. or download this
    our $Kid_Status;
    use POSIX ":sys_wait_h";
    ...
    } else {
      exit 43;
    }
    
  14. or download this
    #############################################
    #!/usr/bin/perl
    ...
        }
        return $table, @names;
    }
    
  15. or download this
    set nocp ignorecase smartcase
    syntax enable
    ...
    map ,v :sp ~/.vimrc<CR><C-W>_
    "Reload vimrc file
    map <silent> ,V :source ~/.vimrc<CR>:filetype detect<CR>:exe ":echo 'v
    +imrc reloaded'"<CR>
    

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 studying the Monastery: (3)
As of 2015-06-04 00:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What kind of chocolate gives you the most pleasure?















    Results (143 votes), past polls