unit messages

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

.

Relevant Pages

  • Re: Pi$$ed Off Ticket Staff / Ticket Price Anomalies
    ... There isn't a fares manual tied to every railway booking counter by a ... but you'd probably have to be tied to the counter with a bit of string ... I've done it twice (and now know for sure what the cheapest legal way to get to/from London in the peaks, without buying a peak ticket is). ... But it took me about half an hour painfully plodding through Avantix, and would have taken even longer using a more public online resource. ...
    (uk.railway)
  • Re: String select
    ... > indicates the number of males online and the third number indicates ... > the number of females online. ... > Put the first string and put it in a variable called: ...
    (comp.lang.cpp)
  • Re: WriteFile Error
    ... Reis wrote: ... > I'm quite new to this area but've managed to get some help from online ... You can't use sizeof to get the size of a string. ...
    (microsoft.public.vc.language)
  • Re: String select
    ... > I am making a program which grabs some data of the internet and puts ... > The second string is the number of males online and the third one is ... as similar but you're requiring to split the string at a ' ' chars ...
    (comp.lang.cpp)