in reply to File end marker problem

Try this:
perl -ne 'print unless /\x1a/;' concatfile >x.txt

Update: This only works if the \x1a is on a line by itself. If not, try this:

perl -npe 's/\x1a//;' concatfile >x.txt
This is however virtually the same thing as yours. It works for me on a file with random \x1a scattered throughout it (as does your code if I drop the binmode. If you're on Unix, you don't need it, and you would need to put it after the open of concatfile for it to work as well).


Replies are listed 'Best First'.
Re: Re: File end marker problem
by zby (Vicar) on Apr 01, 2003 at 12:12 UTC
    He did not say the marker is on a separate line.