Mladen,
It worked!
Heartfelt thank you from the evangelized perl crowd (now watch the list-owner grin).
Mladen Gogala <[EMAIL PROTECTED]> wrote:
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