Re: UNIX : script help/input

Thank God for Perl and Mladen ;)

Tanel.

• Original Message ----- From: Johan Muller To: Multiple recipients of list ORACLE-L Sent: Wednesday, October 01, 2003 8:24 PM Subject: Re: UNIX : script help/input

  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=

    @<<<<<<<<<<<<<<<<<< ,@<<<<<<<<<<<<

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.net
-- 
Author: Tanel Poder
  INET: tanel.poder.003_at_mail.ee

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).