RE: UNIX : script help/input

Wed, 01 Oct 2003 10:39:48 -0700

Funny .. I am currently sitting in a Perl class, so I can actually read what MG has written. I'll be soon Perl-literate ...
 
Raj
-----Original Message-----
From: Tanel Poder [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 01, 2003 1:35 PM
To: Multiple recipients of list ORACLE-L
Subject: Re: UNIX : script help/input

Thank God for Perl and Mladen ;)
 
Tanel.
 
----- Original Message -----
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 <[EMAIL PROTECTED]> 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
********************************************************************This e-mail 
message is confidential, intended only for the named recipient(s) above and may 
contain information that is privileged, attorney work product or exempt from 
disclosure under applicable law. If you have received this message in error, or are 
not the named recipient(s), please immediately notify corporate MIS at (860) 766-2000 
and delete this e-mail message from your computer, Thank 
you.*********************************************************************2

Reply via email to