On 8/7/07, Mihir Kamdar <[EMAIL PROTECTED]> wrote:
snip
> I am doing the following:
>
> while (my($key, $value) = each %hash)
> {
> print $OUT_FILE $value;
> }
>
> seek $OUT_FILE,0,0 ;
> my $lines = 0 ;
> $lines++ while<$OUT_FILE> ;
> print $LOG_FILE "Count of cdrs after removing
> duplicates = $lines" ;
> close $OUT_FILE;
> close $LOG_FILE ;
>
> still output is 0....
>
Then it is likely that %hash is empty. Try printing the number of
keys in %hash to make sure there is data in it:
print "there are " . (keys %hash) . " keys in hash\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
