Re^6: Parse one fiile, send the records to two different files

Replies are listed 'Best First'.
Re^7: Parse one fiile, send the records to two different files by poj (Abbot) on May 27, 2016 at 19:00 UTC
Why not just print the original line with the new line ending you chomped replaced ? `print $ERR_FH $line."\n";` [download] poj	[reply] [d/l]
Re^8: Parse one fiile, send the records to two different files by stevieb (Canon) on May 27, 2016 at 19:01 UTC
...or just do this :)	[reply]
Re^8: Parse one fiile, send the records to two different files by BigRedEO (Acolyte) on May 31, 2016 at 20:17 UTC
Thank you! That's got it!	[reply]
Re^7: Parse one fiile, send the records to two different files by stevieb (Canon) on May 27, 2016 at 18:58 UTC
If I understand you correctly, you're getting a single line now, yes? Try adding a newline to the joined string: `if (!length $fields[28]) { chomp @fields; my $str = join ',', @fields; print $ERR_FH "$str\n"; }` [download]	[reply] [d/l]