{ local $/ = "<tag1>"; while ( my $paragraph = <FILE> ) { $paragraph =~ s/<tag1>/\n/g; $paragraph =~ s/<tag2>/\t/g; print OUTFILE $paragraph; } }
Dave
In reply to Re: search/replace very large file w/o linebreaks
by davido
in thread search/replace very large file w/o linebreaks
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |