Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: doing a search and replace on a large file

by pelagic (Curate)
on Apr 14, 2004 at 12:48 UTC ( #345028=note: print w/ replies, xml ) Need Help??


in reply to doing a search and replace on a large file

An example how I skip on a couple of conditions:

use strict; my ($inputfile, $outputfile) = @_; open (OUT, ">$outputfile") || die "could not open $outputfile\n"; open (IN, "<$inputfile") || die "could not open $inputfile\n"; while (<IN>) { chomp; # no newline s/^--.*//; # no oracle comments s/^prompt.*//; # no oracle prompt lines s/^\s+//; # no leading white s/\s+$//; # no trailing white s/\s+/ /; # replace series of white with one spac +e next unless length; # anything left? print OUT $_, "\n"; } close IN; close OUT;

pelagic


Comment on Re: doing a search and replace on a large file
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://345028]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2014-12-25 15:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls