Re: Very Simply KSH Question

From: Jared Still <jkstill_at_gmail.com>
Date: Tue, 5 Apr 2005 13:35:47 -0800
Message-ID: <bf463805040514356ea5ea6@mail.gmail.com>

I can't take it any more.

Convert to Perl.

Now.

---

#!/usr/bin/perl

while(<DATA>) {

        my ($junk,$x,$y,$z) = split(/\|/);
        print qq{
X: $x

Y: $y
Z: $z
};
}

__DATA__
KEY|FOO|WRECK|CAR On Apr 5, 2005 9:03 PM, Post, Ethan <Ethan.Post_at_ps.net> wrote:
> list is in file
>
> KEY|FOO|WRECK|CAR
>
> need to assign field 2 to X, 3 to Y...
>
> I hate...
>
> X=3D$(cat file | grep "^FOO" | awk -F"|" '{ print $2}')
> Y=3D$(cat file | grep "^FOO" | awk -F"|" '{ print $3}')
> ...
>
> in many scripts I...
>
> grep "^FOO" file | awk -F"|" '{ print $2" "$3" "$$ }' | read X Y Z

-- 
Jared Still
Certifiable Oracle DBA and Part Time Perl Evangelist
--
http://www.freelists.org/webpage/oracle-l

Received on Tue Apr 05 2005 - 17:39:37 CDT