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]
