laziness, impatience, and hubris | |
PerlMonks |
File end marker problemby DaveKelly (Initiate) |
on Apr 01, 2003 at 11:46 UTC ( [id://247214]=perlquestion: print w/replies, xml ) | Need Help?? |
DaveKelly has asked for the wisdom of the Perl Monks concerning the following question:
I have a single file that is a concatination of a lot of other files. Each single file contains a file end marker (\x1a) and therefore the concat file contains multiple file end markers. Please tell me there is a simple way to loop through the concat file a remove all the file end markers.
I tried this ....
#!/usr/bin/perl -w binmode FILE; open (FILE, "<concatfile"); open (OUT, ">x.txt"); while(<FILE>){ s/\x1a//; print OUT; }But it stops after the first file end marker. Any ideas?
Back to
Seekers of Perl Wisdom
|
|