Anonymous user
File input/output: Difference between revisions
→[[Perl]]
Line 271:
open(FILEOUT, '>/path/to/file/fileout.txt') || die "Open OUT Failed: $!";
binmod(FILEOUT); # takes care of binary content on systems where that matters.
print FILEOUT while (<FILEIN>); # prints $_ to FILEOUT
| |||