Re: File Reading


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: File Reading

by jwkrahn (Abbot)

on Oct 01, 2007 at 13:43 UTC ( [id://641886]=note: print w/replies, xml )

Need Help??

in reply to File Reading

$ echo "AGE:EYES:HAIR
32:BLUE:BLONDE
54:BROWN:BROWN" | \
perl -F: -lane'
    BEGIN { $key = uc shift }
    if ( $. == 1 ) { @x{ map uc, @F } = 0 .. $#F }
    else { print $F[ $x{ $key } ] }
'  age
32
54
$ echo "AGE:EYES:HAIR
32:BLUE:BLONDE
54:BROWN:BROWN" | \
perl -F: -lane'
    BEGIN { $key = uc shift }
    if ( $. == 1 ) { @x{ map uc, @F } = 0 .. $#F }
    else { print $F[ $x{ $key } ] }
'  eyes
BLUE
BROWN
$ echo "AGE:EYES:HAIR
32:BLUE:BLONDE
54:BROWN:BROWN" | \
perl -F: -lane'
    BEGIN { $key = uc shift }
    if ( $. == 1 ) { @x{ map uc, @F } = 0 .. $#F }
    else { print $F[ $x{ $key } ] }
'  hair
BLONDE
BROWN
[download]