Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 pondering the Monastery: (5)
As of 2015-07-04 07:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls