Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

jdporter's scratchpad

by jdporter (Canon)
on Jun 01, 2004 at 20:54 UTC ( #358590=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $total_population = $generations{$_};
    $total_population += $generations{$_ - 1} if $generations{$_ - 1};
    $total_population += $generations{$_ - 2} if $generations{$_ - 2};
    
  2. or download this
    
    dim sh, f, i, v
    ...
        end if
    next
    
  3. or download this
    
    use List::Util qw( shuffle );
    ...
    
    print
    
  4. or download this
    sub parse_csv1 {
        my $text = shift;      # record containing comma-separated values
    ...
        return @fields;
    }
    
  5. or download this
    
    my @f = parse_csv1('first,"second","thi,rd","fou""rth"');
    print "$_\n" for @f;
    
  6. or download this
    first
    second
    ...
    rd
    fou
    rth
    
  7. or download this
            (   now a field is either
    
  8. or download this
            (   # now a field is either
    
  9. or download this
    
    /* a basic one: */
    ...
    
    div.comment-on { text-align: center; font-size: larger; background-col
    +or: #DFB; }
    
  10. or download this
    
    <jcw> Jebus, I can't type.
    ...
    *<* Signoff: theorbtwo (Ping timeout)
    <jcw> 3 for the price of 1!
    
  11. or download this
    
    {
    ...
    
    # does this print "Foo!" or "Foo=HASH(0xdeaded)"?
    
  12. or download this
    :set shiftwidth=2
    :set foldcolumn=8      (not important)
    :set foldmethod=indent
    :1,$foldopen!          (to open all folds)
    
  13. or download this
    
    use Tk::FileSelect;
    ...
    $fs->Accept_dir($new_dir);
    }
    
  14. or download this
    package SNMPfu;
    
    ...
    
    1;
    
  15. or download this
    my $sess = Net::SNMP->session( ... );
    # or:
    ...
    
    my $val = $sess->get('sysDescr.0');
    
  16. or download this
    
      my $sh = new Win32::OLE 'Shell.Application' or die;
    ...
      my $item = $folder->ParseName( $unqualified_filename ) or die;
      $item->InvokeVerb('Edit');
    
  17. or download this
    
    /*
    ...
    }
    WScript.Echo(a.join("\n"));
    
  18. or download this
    use LWP::Simple;
    use XML::Simple;
    ...
    }
    
    print "$total rep in $n nodes\n";
    
  19. or download this
    use LWP::Simple;
    use strict;
    ...
    m$a=16046;for_userid=$_m,map m
    user_id="(\d+)"ug,get qq
    m$a=15851m;
    
  20. or download this
    <form method="post" action="?" enctype="application/x-www-form-urlenco
    +ded">
    <input type="hidden" name="node_id" value="170442">
    ...
    <input type="text" name="replytotext" size=60 maxlength=255>
    <input type="hidden" name="sexisgood" value="submit">
    </form>
    

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 imbibing at the Monastery: (8)
As of 2014-10-25 17:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (146 votes), past polls