>-----Original Message-----
>From: Carlos Capmany [mailto:[EMAIL PROTECTED]]
>Subject: Help with problem: file filter stops if $_ contains char \x1A
>Hi everyone,
>l have programmed an extremely simple filter:
>while (<INFILE>) {
> if ( /$match_string/i ) {
> print OUTFILE $_;
> }
>}
>
>It happens that if $_ contains character \x1A, it will stop reading any
>further from INFILE. Once l replace this char with another one (eg space),
>everything works fine and it reads the whole file.
>l´ve been using perl for a long time (though not a power user), but l´ve
>never met with this kind of problem before. l´m using ActiveState perl
>v5.6.1 running on Win2k, if this may help.
>Any idea?
Maybe:
binmode INFILE;
print OUTFILE join "\n" , grep /$match_string/i, split /(?:\r?\n)+/ , join '',
<INFILE>;
JB
>
>TIA,
>
>Carlos
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
