RE: Very Simply KSH Question

From: Kevin Lange <klange_at_ppoone.com>
Date: Tue, 5 Apr 2005 16:38:28 -0500
Message-ID: <ED1256BD4F253C44B1627B2D365A334F08766658@ppoone1.ppoone.com>

Took you long enough.....

-----Original Message-----
From: Jared Still [mailto:jkstill_at_gmail.com] Sent: Tuesday, April 05, 2005 4:36 PM
To: Ethan.Post_at_ps.net
Cc: Kevin Lange; carmen.rusu_at_rrc.state.tx.us; mgogala_at_allegientsystems.com; oracle-l_at_freelists.org Subject: Re: Very Simply KSH Question

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:42:19 CDT