Chris Stinemetz wrote:
after converting an older Perl script to using strict pragma I am getting
the follow error:
I can't seem to figure out how to resolve this. I'm in hopes that there is
someone that can let me know what I am missing?
Thank you in advance!
There are two changes I would make:
Use of uninitialized value in numeric eq (==) at ./evdo.pl line 126,<$FIN>
line 1.
Use of uninitialized value in numeric lt (<) at ./evdo.pl line 126,<$FIN>
line 1.
111 while(my $line =<$FIN>) {
ADD:
next unless $line =~ /;/;
112 chomp $line;
113 my @tokens = split(";",$line);
Change line 113 to:
my @tokens = split /;/, $line, -1;
115 next if($tokens[0]> 100);
116
117 my $srt = $tokens[$fieldMap{"SRT"}];
118 my $srfc = $tokens[$fieldMap{"SRFC"}];
119 my $cfc = $tokens[$fieldMap{"CFC"}];
120 my $cfcq = $tokens[$fieldMap{"CFCQ"}];
121 my $cell = $tokens[$fieldMap{"Cell"}];
122 my $icell = $tokens[$fieldMap{"ICell"}];
123 my $isector = $tokens[$fieldMap{"ISector"}];
124 my $sector = $tokens[$fieldMap{"Sector"}];
125
126 if( 0 == $cell && 0 < $icell) {
127 $cell=$icell;
128 $sector = $isector;
129 }
130
131 my $mkt = getMarket($cell);
132 my $c_s = sprintf("%d_%d",$cell,$sector);
133
134 if(!defined $evdo{$c_s}) {
135 initHash(\%evdo);
136 }
137
138 processPegs($c_s,\%evdo);
139 if($mkt =~ /\w+/) {
140 processPegs($mkt,\%evdoSummary);
141 }
142 }
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
