in reply to File Reading

excuse the political incorrectness.....is this the entrance question for a job as a perl programmer in an indian call centre?....because then the output should actually be
32:blue:blonde --> gullible target?
54:brown:brown --> not a threat to the blonde
only kidding folks
i think homework should receive obfuscated code...if any, as no attempt was made
the hardest line to type correctly is: stty erase ^H

Replies are listed 'Best First'.
Re^2: File Reading
by Anonymous Monk on Oct 02, 2007 at 12:58 UTC
    aquarium was closest. mantra2006 was trying to get a job.

    he was unsuccessful.

[reply]

      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

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

In Section Seekers of Perl Wisdom