>
> I'm trying to count the recurrence of lines in a file. This works
> how i want but first it prints "Use of uninitialized,... " - see below.
> I know i'm probably not supposed to use a hash like this but it does
> work. I either need another "error free" way to do this or a fix. I
> have figures out that the error message seems to be saying that it
> can't add the eof() value to the hash, what is that value, i have tried
> many different variations,... Thanks in advance.
>
> 1 #!/usr/bin/perl -w
> 2 use strict;
> 3 my (@storeList, $file);
> 4
> 5 print ("Which file do you want to check for dups?\n");
> 6 chomp($file=<STDIN>);
> 7 open(FILEIN, "<$file") || die "Can't open dude: $!";
> 8 @storeList=<FILEIN>;
> 9 recordDups(@storeList);
> 10
> 11 sub recordDups {
> 12 my @array = @_;
> 13 my ($dup, %saveNum);
> 14 foreach $dup (@array){
> 15 $saveNum{$dup} =$saveNum{$dup}+1;
> 16 }
> 17
> 18 foreach $dup(keys(%saveNum)){
> 19 print "$saveNum{$dup} copies(s) of: $dup";
> 20 }
> 21
> 22 }
>
> The output of a random file:
>
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> Use of uninitialized value in addition (+) at ./AnsLook2Alt line 15,
> <FILEIN> line 33.
> 1 copies(s) of: "B-day" => "3/12",
> 1 copies(s) of: print %{$database[0]};
> 1 copies(s) of: sub addRecord{
> 1 copies(s) of: #($ans =~ /y/i) ? print "nice\n" : print "Well maybe
> later then\n";
> 2 copies(s) of: }
> 1 copies(s) of: @database = (\%record_one, \%record_two);
> 1 copies(s) of: foreach $key (sort values (%{$database[0]})){
> 1 copies(s) of: my (%record_one, %record_two, @database, $ans, $key);
> 1 copies(s) of: "B-day" => "7/23",
> 1 copies(s) of: use strict;
> 6 copies(s) of:
> 1 copies(s) of: %record_one = ("Name" => "Billy Bob",
> 1 copies(s) of: print "\n\n";
> 1 copies(s) of: ($ans =~ /[yY]/) ? addRecord() : print "Well maybe
> later then\n";
> 1 copies(s) of: print ("Would you like to create a data record?\n");
> 1 copies(s) of: "Email" => "chilly\@chilly.net",
> 1 copies(s) of: print "howdy\n";
> 2 copies(s) of: );
> 1 copies(s) of: %record_two = ("Name" => "Chilly Willy",
> 2 copies(s) of: print "\n";
> 1 copies(s) of: print %{$database[0]}->{"Email"};
> 1 copies(s) of: "Email" => "Billy\@net.net",
> 1 copies(s) of: print $key . "\t" ;
> 1 copies(s) of: chomp($ans=<STDIN>);
> 1 copies(s) of: #!/usr/bin/perl -w
>
> ~
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
