Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: File Reading

by Anonymous Monk
on Oct 02, 2007 at 12:58 UTC ( [id://642093]=note: print w/replies, xml ) Need Help??


in reply to Re: File Reading
in thread File Reading

aquarium was closest. mantra2006 was trying to get a job.

he was unsuccessful.

Replies are listed 'Best First'.
Re^3: File Reading
by Skeeve (Parson) on Oct 05, 2007 at 08:15 UTC

    So now as he was unseccessfull, I'd like to get the job ;-)

    Here is my solution, lacking any kind of error checking of course...

    #!/usr/bin/perl use strict; use warnings; # read headline $_= <DATA>; chomp; # split into words my @headline= split /:/; # assign each word a column number my %headline; @headline{@headline}= (0..$#headline); # get the required columns my @columns= @headline{@ARGV}; # print the column headers print join(':',@ARGV),"\n"; # read each line while (<DATA>) { chomp; # and print what's requested print join(':',(split /:/)[@columns]),"\n"; } __DATA__ AGE:EYES:HAIR 32:BLUE:BLONDE 54:BROWN:BROWN

    s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
    +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2024-03-28 11:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found