Reusing a Parse::CSV module

[adambe]

Problem was with some filenames in Windows which were causing trouble... Not_a_Number, I've added the "or die" clause, hopefully it will catch such problematic file names. Thanks, Adam. I've been playing around with Parse::CSV for a simple case of comparing two files – meaning I'd like to re-use the instance of the module. The second instantiation of the object results in an empty ARRAY reference… Am I missing something obvious or is there another way of going around this?

sub get_line {
      my ($file, $row_num) = @_; 

      my $parser = Parse::CSV->new(
            file => $file,
      );
      
      while ( my $value = $parser->fetch ) {
            if ($parser->row() == $row_num) { 
            return $value;
            }
....

Thanks, Adam.

[RichardK]

I have a few questions for you :-

• What do you mean by "re-use the instance of the module" ?
• How does that code sample relate to your problem ?
• What does fetch return when there are no more lines left ?

[Not_a_Number]

Presuming that you just pass two filenames, one after the other, to your sub, your code works for me as is.

But I don't see any error checking. Maybe the scond file doesn't exist, or you've misspelt its name?

Change the second line in your sub to:

my $parser = Parse::CSV->new( file => $file )
  or die Parse::CSV->errstr;