Beefy Boxes and Bandwidth Generously Provided by pair Networks Russ
We don't bite newbies here... much
 
PerlMonks  

Re^5: Search and Remove

by rjt (Chaplain)
on Jun 17, 2010 at 10:02 UTC ( #845177=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my %age; # Age of a person, in years
    $age{'Sonny'}  = 30;
    $age{'Junior'} = 10;
    ...
    foreach my $person (sort keys %age) {
        print "$person is $age{$person} years old\n";
    }
    
  2. or download this
    open my $orglist, '<', $ARGV[1] or die "Can't open $ARGV[1]: $!";
    foreach my $item (<$orglist>) {
    ...
        print { exists $dellist{$item} ? $beepon : $beepoff } $item . "\n"
    +;
    }
    close $orglist;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://845177]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2014-04-17 04:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (439 votes), past polls