Perhaps you want something like this:
@ARGV == 2 or die "usage: $0 input_file output_file\n"; open OUTFILE, '>', "$ARGV[1]temp.csv" or die "Cannot open '$ARGV[1]tem +p.csv' $!"; open INFILE, '<', $ARGV[0] or die "Cannot open '$ARGV[0]' $!"; while ( <INFILE> ) { chomp; $\ = /"$/ ? "\n" : ' '; print OUTFILE $_; } close INFILE; close OUTFILE;
In reply to Re: Reading Multiple lines
by jwkrahn
in thread Reading Multiple lines
by mick2020
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |