Why don't I Get IP addresses in the IP Address column of the report
below. The data is there if I do a print after the split of the value
in %GAA_Up. I get:
========================================================================
======
REACHABLE HOSTS REPORT
========================================================================
======
Location Name IP Address
Status Time
========================================================================
======
ROOSEVELT FIELD UP Tue May 8
13:54:57 2007
FASHION UP Tue May 8
13:55:25 2007
WESTMINSTER, CA UP Tue May 8
13:55:16 2007
sub UpReport {
print "Running Up Report....\n";
my ($LS_FORMAT_NAME, $LS_FORMAT_TOP_NAME,
$LS_Location,$LS_Time);
# Call the sorting function to sort the array.
select((select(STDOUT), $LS_FORMAT_NAME
= "UP",$LS_FORMAT_TOP_NAME = "UP_TOP")[0]);
foreach $GS_IPAddr (keys(%GAA_Up)) {
open (UP, ">>$GS_Report") || die "Could not open file
$GS_Report : $!\n";
($GS_Location,$GS_IPAddr,$GS_Time)=split(/\t/,$GAA_Up
{$GS_IPAddr });
write(UP);
close(UP);
}
}
format UP_TOP =
========================================================================
======
REACHABLE HOSTS REPORT
========================================================================
======
Location Name IP Address
Status Time
========================================================================
======
.
format UP =
@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @>>>>>
@>>>>>>>>>>>>>>>>>>>>>>>>>
"$GS_Location", "$GS_IPAddr", "UP", "$GS_Time"
.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
