User Profile

endure10 · Feb 22 '11, 07:00 PM

Code:

my @files = ($file1, $file2, $file3, $file4);
foreach (@files) {
  open FILE, $_ or die "------ Could not open $_ testlist. \n"; 
  my @line = <FILE>;
  close FILE;
  &compare(\%var,\@line);
}

sub compare {
  my $var = shift;
  my @line = @_;
  foreach my $ln (@line) {
    if (exists $var->{$ln}) {
      $var->{$ln}++;

...

endure10 · Feb 22 '11, 05:37 PM

Sorry I was trying to delete that previous post because that warning is irrelevant to this problem but I didn't know how.

Anyway, I did implement your method of passing the hash and array and also your variable naming convention. I checked to see if I could modify the values of the hash in the subroutine and everything checks out. However, my problem in your code equivalent would be at line 19 and is still the same as before
...

endure10 · Feb 22 '11, 04:36 PM

Thanks Miller.

I am trying to implement the sample code for referencing and dereferencing but I run into the error of

Code:

Use of uninitialized value in hash element

at line 5 of the code I posted. I initialize the hash in line 1 so I don't understand why my code would return this error.

Once again, thank you for the help.

endure10 · Feb 20 '11, 05:07 AM

Hi,
Well the conditional statement in line 20:
if (exists($var{$l n}))
is never successful and so, the values of the hashes are never incremented. So I was wondering if the syntax in lines 13 and 16-18 for passing the array and hash is correct, which I believe has nothing to do with the subroutine returning a value.

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

How to pass an array and hash to a subroutine