still samething after changing to hash


1 #!/usr/bin/perl -w
2
3 use strict;
4
5 my $ncb = $/;
6 my $cbn = $";
7 $/ = "\n\n";
8 #$" = "\n";
9
10 open(FH, '/script/perl/data/somevalue') || die "can't open file: $!";
11
12 my ($keyinfo,$somevalue);
13 my %keyinfomaster = ( );
14
15 while (<FH>) {
16 if (m/^Call-ID:.+$/) {
17 $keyinfo = $_;
18 # print "$keyinfo\n";
19 }
20 if (m/^SIP\/2\.0.+$/) {
21 # if (m/^(SIP\/2\.0).+\$2/) {
22 $somevalue = $_;
23 print "$somevalue\n";
24 }
25 # print "$keyinfo $somevalue\n";
26 # ($keyinfo,$somevalue) = split;
27 # push( @{$keyinfomaster{$keyinfo}}, $somevalue) ;
28 $keyinfomaster{$keyinfo} = $somevalue;
29 }
30
31 foreach $keyinfo ( sort key %keyinfomaster) {
32 print "$keyinfomaster{$keyinfo}\n";
33 }
[root@wks-86-72 tmp]# ./!$ | head -1
./perl.yahoo | head -1
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 1.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 2.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 3.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 4.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 5.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 6.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 7.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 8.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 9.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 10.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 11.
Use of uninitialized value in hash element at ./perl.yahoo line 28, <FH> chunk 12.