OpenForum RSS: PLEASE HELP! Use of uninitialized value in string at

PLEASE��HELP! Use of uninitialized value in string at (squidward)

Tue, 02 Nov 2010 05:45:44 GMT

�� erera22, �� :)

>[�� ]
> $desc;
> }
> }
> open (OUT, "< $fpath/$output");
> while (<OUT>) {
> my ($ipaddr, $data) = split (/\s+-\s+/, $_);
> chomp ($data);
> print "$ipaddr $hash{ $ipaddr }{ mail } $hash{ $ipaddr
> }{ desc } $ipaddr - $data\n" if exists $hash{ $ipaddr };
> }

PLEASE��HELP! Use of uninitialized value in string at (erera22)

Mon, 01 Nov 2010 13:54:04 GMT

��-�� , �� . �� :

#!/usr/bin/perl -w
use strict;

my %hash = ();
my ($fpath, $ipemail, $output) = ('/home/user', 'ip-email', 'output');
my ($ipaddr, $mail, $desc);

open (IPEMAIL, "< $fpath/$ipemail") or die "Could not open $fpath/$ipemail\n";
while (<IPEMAIL>) {
($ipaddr, $mail, $desc) = split (/\s+/, $_);
if (length $mail > 0) {
$hash{ $ipaddr }{ mail } = $mail;
$hash{ $ipaddr }{ desc } = $desc;
}
}

open (OUT, "< $fpath/$output");
while (<OUT>) {
my ($ipaddr, $data) = split (/\s+-\s+/, $_);
chomp ($data);
print "$ipaddr $hash{ $ipaddr }{ mail } $hash{ $ipaddr }{ desc } $ipaddr - $data\n" if exists $hash{ $ipaddr };
}

PLEASE��HELP! Use of uninitialized value in string at (squidward)

Mon, 01 Nov 2010 13:30:34 GMT

>>> � �� -��
>> � �� - �� ? �� ?
> 1) ��
> 2) �� - ��
> � ��

��
�� 2 ��, � �� ip, �� , �� IP � ��.
�� - �� (�� ip), �� 2-��

PLEASE��HELP! Use of uninitialized value in string at (Pahanivo)

Mon, 01 Nov 2010 12:51:45 GMT

>> � �� -��
> � �� - �� ? �� ?

1) ��
2) �� - ��

PLEASE��HELP! Use of uninitialized value in string at (squidward)

Mon, 01 Nov 2010 12:48:45 GMT

> � �� -��

� �� - �� ? �� ?

PLEASE��HELP! Use of uninitialized value in string at (Pahanivo)

Mon, 01 Nov 2010 10:02:19 GMT

� �� -��