First thing I'd do is stick a test in to check for any unexpected data. Write a regex that should match the data you _do_ expect, and log anything that doesn't match, together with the name of the file it comes from...

while(<ASUBFILE>){
   unless (/^[A-Za-z0-9 other expected chars]*$/) {
      print LOG "Encountered unexpected data for $strTName: $_\n";
   }
   $strASub .= $_;
}
[download]

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]

Q1) Yes, it is a file. For just plain reading in of a file, I have always just left it as is and it has worked. I made the change that you pointed out and it still fails.

Q2) I posted up another node on here that shows a chunk of the code that is having the issue. The first time through the loop, the $strTName is defined and outputs, the second time through the loop, it doesn't appear to be defined. Where is it getting killed?

Q3) The $strTickerName is what it is called in my code - I was trying to shorted the names that I had posted so that it wouldn't line wrap as much and be easier to read - I just missed the one there in my haste to try to post it - I went back and changed that.


-------------------------------------------------------------------
There are some odd things afoot now, in the Villa Straylight.

my $tmpCounter = 0;
for(@testDateRows){
    if($tmpCounter > 1){
        exit;
    }

    @tmpArr = split(',',$_);
    $formattedName = $tmpArr[0];

        #iterate through all the tickers
        for(@algTickers){
                $strTickerName = $_;

#there is an open call in here that works, I commented it out to see i
+f I could still reproduce the problem
#               open...

                print "$strTName:$formattedName\n";

                #now we need to load the a file
                 $strAlg = '';
                open(ALGFILE,"/A/sub/$strTName") or die "can't open th
+e asub file: $strTName : $!\n";
                while(<ALGFILE>){
                    $strAlg .= $_;
                }
                close(ALGFILE) or die "can't close the asub file: $str
+TName :$!\n";

        }
    $tmpCounter++;
}
[download]

This seems to have resolved the problem. Changing the for loop so that it had:

for $ticker (@algTickers){
#use $ticker for anything for this spot in the array
}
[download]

instead of

for(@algTickers){
#use $_ into a var and then use that var for this spot in the array
}
[download]

This must have been something I missed as I was learning about "$_" out of a for loop - I must have only used it in straight loops and not nested loops up until now. Checked the camel book and in the foreach section it does say that each $_ is a reference, which I knew, but I don't see any code there that is clearing out that spot in the array... not sure why it was doing it, but this seems to have resolved the issue and then the ensuing side effects.

Now I need to uncomment a lot of lines now to confirm that this fixes the issue.


-------------------------------------------------------------------
There are some odd things afoot now, in the Villa Straylight.

Add the following to the top of your perl script:


use strict;
use Data::Dumper;
[download]

And then add print Dumper(\@algTickers); before and after your for loop, as this will inspect your array and see what has been changed.