Re: UNIX : script help/input

:)

On Wed, 2003-10-01 at 10:24, Johan Muller wrote:
> Mladen,
>
> It worked!
>
> Heartfelt thank you from the evangelized perl crowd (now watch the list-owner grin).
>
> Mladen Gogala <mladen_at_wangtrading.com> wrote:
> #!/usr/bin/perl -w
> use strict;
> use bytes;
> my ($NAME,$IP,@LB);
> while (<>) {
> chomp;
> @LB=split /\s+/;
> if ($LB[0] =~ /^name:/i) {
> $NAME=$LB[1];
> }
> if ($LB[0] =~ /^address:/i) {
> $IP=$LB[1];
> write;
> }
> }
> format STDOUT=
> @<<<<<<<<<<<<<<<<<< ,@<<<<<<<<<<<<
> $NAME,$IP

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.net
-- 
Author: Jared Still
  INET: jkstill_at_cybcon.com

Fat City Network Services    -- 858-538-5051 http://www.fatcity.com
San Diego, California        -- Mailing list and web hosting services
---------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).