Please advise on the small amount of code b/c I am
getting the message as below, but the code is working
and output how I want it, just trying to rid of
messages.
thank you!
Use of uninitialized value in concatenation (.) or
string at
JFS_version_parser.pl line 20, <JFS> line 952 (#1)
Use of uninitialized value in concatenation (.) or
string at
JFS_version_parser.pl line 21, <JFS> line 952 (#1)
Use of uninitialized value in concatenation (.) or
string at
JFS_version_parser.pl line 21, <JFS> line 956 (#1)
Use of uninitialized value in concatenation (.) or
string at
JFS_version_parser.pl line 22, <JFS> line 956 (#1)
use strict;
use warnings;
use diagnostics;
my $jfsFile = qq(/tmp/onlinJFS_4_license_exp.txt);
my $CvsFile = qq(/tmp/onlinJFS_4_license_exp.cvs);
my $regexp =
qr/(host:\w+)|(onlinejfs.*)|(jfs\sversion.*)/is;
my ($host,$swlist,$kernel) = 0;
open (JFS, "+<$jfsFile") or die "file '$jfsFile' was
not opened $!";
while (<JFS>) {
s/^\s+|\s+$//g;
next if ! length $_;
if (/$regexp/) {
($host,$swlist,$kernel) = ($1, $2, $3);
print "\n$1";
print "\t$2";
print "$3\n";
}
}
__DATA__
---------------------------
HOST:axyz
---------------------------
You have mail.
logout
# OnlineJFS B.11.11
Online features of the VxFS File System
OnlineJFS.VXFS-ADV-RUN B.11.11
VXFS-ADV-RUN
# PHCO_25831 1.0
SCSI Ultra160 driver Online Addition script
SW-DIST.SD-JPN-E-HELP B.11.11.0212
Japanese EUC Online Help for SD
SW-DIST.SD-JPN-S-HELP B.11.11.0212
Japanese SJIS Online Help for SD
X11.X11-RUN-CL-MAN B.11.11
Online manual pages for X11 clients
X11.X11-RUN-CT-MAN B.11.11
Online manual pages for X11 contrib clients
X11.X11-RUN-MAN B.11.11
Online manual pages for X11 clients
OnlineDiag B.11.11.09.11 HPUX
11.11 Support Tools Bundle, Dec 2002
JFS version loaded in Kernel: $Revision: libvxfs.a:
CUPI80_BL2000_1108_2 Wed Nov 8 10:59:22 PST 2000 $
Connection to closed.
---------------------------
HOST:xyxxx
---------------------------
__DesiredOutput__
HOST:xyzzz
OnlineJFS B.11.11 Online features of the VxFS File
System
OnlineJFS.VXFS-ADV-RUN B.11.11 VXFS-ADV-RUN
JFS version loaded in Kernel: $Revision: libvxfs.a:
CUPI80_BL2000_1108_2 Wed Nov 8 10:59:22 PST 20
00 $
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
