in reply to Unexpected deletion of data using > operator
Not initializing a variable is something that has bitten me before! And, of course I assume right away it is my code or logic and not something simple. (Usually, it ends up being a combination of both!)
Would this snippet meet your needs?:
Jamie
Would this snippet meet your needs?:
I hope this is somewhat helpful.foreach my $line (@customerarray) { my ($memono, $cusref, $datestamp) = split '::', $line; if ( ($timestamp - $datestamp) > 1296000 ) { next; } else { $line = $line . $line . "\n"; } } print FH "$item";
Jamie
In Section
Seekers of Perl Wisdom