You could try it like this:
use strict; use diagnostics; use warnings; @ARGV = glob 'file_*'; my $outfile = 'outfile.csv'; open my $OUTFILE, '>', $outfile or die "Cannot open '$outfile' $!"; while ( <> ) { if ( eof && !eof() ) { <>;<>; } print $OUTFILE $_; } close $OUTFILE;
In reply to Re: data concatenation in an output file
by jwkrahn
in thread data concatenation in an output file
by steph_bow
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |