Re^3: READ one line at a time

Move these 3 lines down outside the while

my $filesize = -s $direct . '/' . $file;
my $sb = stat($direct . '/' . $file)->size;
print OUTPUT "$cik,$form_type,$report_date,$file_date,$name,$sic,$file
+size,$sb\n";
[download]

poj

Comment on Re^3: READ one line at a time Select or Download Code

Replies are listed 'Best First'.
Re^4: READ one line at a time by wrkrbeee (Scribe) on Dec 27, 2014 at 16:29 UTC
Moved the three lines outside of the WHILE. Left local $/ in the code. Program runs. Currently using small subset of test data. Will execute on larger dataset now. May take some time to reply. Okay?	[reply]
Re^4: READ one line at a time by wrkrbeee (Scribe) on Dec 27, 2014 at 17:08 UTC
Working now! I am forever grateful for your knowledge and expertise! Hope 2015 is the very best for you!	[reply]