I've added some comments to your separate_stores function to try to better explain the potential issues I see.

sub separate_stores
{
  my (@li_stores, @ff_stores);
  my $stores_file = File::HomeDir->my_home . "/example/data/example.cs
+v";
  open my $fh, "<", $stores_file or die "$stores_file: $!";

# So at this point we know that you were able to successfully
# open example.csv, because you tested your open.

  my $csv = Text::CSV->new ({
    binary    => 1,
    auto_diag => 1,
  });

# Also know that if your parsing of CSV generates an error,
# that error will be spat to the screen for us.  Good.

  my $count_li = 0;
  my $count_ff = 0;

  $csv ->getline ($fh);

# We don't know if the preceding line returned 'undef',
# indicating an empty CSV file.  We also don't know if 
# it really stripped away a header row, or something useful
# instead.  We also don't know if there is any more CSV remaining
# after processing that first line.

#################
# Change the preceding line "$csv ->getline ($fh);" to the following,
# for better diagnostics:
#
  my $head = $csv->getline($fh) or die "Empty CSV file $!\n";
  warn "CSV header line contained (@{$head})\n" if $ENV{MYTEST_DEBUG};
  die "Nothing found after CSV header line.\n" if $csv->eof;
#
# Now set an environment variable "MYTEST_DEBUG" true, and re-run your
+ test.
#################

  while (my $row = $csv->getline ($fh)) {

# Your 'while' loop will never be entered if you're already at
# the end of file.  We don't know if that's an issue, because you
# didn't explicitly test what happened when you stripped the first
# CSV line.

    if ($row->[1] eq "li") {
      $li_stores[$count_li] = $row->[0];
      $count_li ++;
    } else {
      $ff_stores[$count_ff] = $row->[0];
      $count_ff ++;
    }
  }
  close $fh;
  return (\@li_stores, \@ff_stores);
}

[download]

It's almost certain that if this subroutine is failing in the big script, one of those assertions will also fail in the big script. And that will give you better information on why your subroutine is failing to do what you want.


Dave

In reply to Re^3: Cannot work on second file after reading first file. by davido
in thread Cannot work on second file after reading first file. by 1straw

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.