From oracle-l-bounce@freelists.org Tue Apr 5 17:39:37 2005 Return-Path: Received: from air891.startdedicated.com (root@localhost) by orafaq.com (8.12.10/8.12.10) with ESMTP id j35Mdb28023246 for ; Tue, 5 Apr 2005 17:39:37 -0500 X-ClientAddr: 206.53.239.180 Received: from turing.freelists.org (freelists-180.iquest.net [206.53.239.180]) by air891.startdedicated.com (8.12.10/8.12.10) with ESMTP id j35Mdbem023242 for ; Tue, 5 Apr 2005 17:39:37 -0500 Received: from localhost (localhost [127.0.0.1]) by turing.freelists.org (Avenir Technologies Mail Multiplex) with ESMTP id 628099152E; Tue, 5 Apr 2005 16:37:34 -0500 (EST) Received: from turing.freelists.org ([127.0.0.1]) by localhost (turing [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 17353-02; Tue, 5 Apr 2005 16:37:34 -0500 (EST) Received: from turing (localhost [127.0.0.1]) by turing.freelists.org (Avenir Technologies Mail Multiplex) with ESMTP id D880891443; Tue, 5 Apr 2005 16:37:33 -0500 (EST) DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:reply-to:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:references; b=QSSLE42NRaucoO0EqsHmVX1Va5fgIicIDydAMqIh/EuspgcMMjaNjMZLyx1VA1Luk/Oh8Y7PRJLGRgwYv2bavm4aqo/WcXAFyu4u181jqzWMcxiLZbPbfOkLgd3Zeh5CdfvbnrCNsBtZQ8LU/IFrDH/nYQitZeEZm9Yd/uQhO6Y= Message-ID: Date: Tue, 5 Apr 2005 13:35:47 -0800 From: Jared Still To: Ethan.Post@ps.net Subject: Re: Very Simply KSH Question Cc: Kevin Lange , carmen.rusu@rrc.state.tx.us, mgogala@allegientsystems.com, oracle-l@freelists.org In-Reply-To: Mime-Version: 1.0 Content-type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit References: X-archive-position: 18100 X-ecartis-version: Ecartis v1.0.0 Sender: oracle-l-bounce@freelists.org Errors-To: oracle-l-bounce@freelists.org X-original-sender: jkstill@gmail.com Precedence: normal Reply-To: jkstill@gmail.com X-list: oracle-l X-Virus-Scanned: by amavisd-new-20030616-p9 (Debian) at avenirtech.net X-Spam-Checker-Version: SpamAssassin 2.60 (1.212-2003-09-23-exp) on air891.startdedicated.com X-Spam-Status: No, hits=0.0 required=5.0 tests=AWL autolearn=ham version=2.60 X-Spam-Level: I can't take it any more. Convert to Perl. Now. ------------- #!/usr/bin/perl while() { 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 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