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?
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: File end marker problem
by BrowserUk (Patriarch) on Apr 01, 2003 at 12:15 UTC | |
by DaveKelly (Initiate) on Apr 01, 2003 at 13:12 UTC | |
Re: File end marker problem
by robartes (Priest) on Apr 01, 2003 at 12:05 UTC | |
by zby (Vicar) on Apr 01, 2003 at 12:12 UTC | |
Re: File end marker problem
by Coplan (Pilgrim) on Apr 01, 2003 at 17:59 UTC |
Back to
Seekers of Perl Wisdom