Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: One-line shell script for find and replace

by Moron (Curate)
on Oct 05, 2005 at 10:51 UTC ( [id://497543]=note: print w/replies, xml ) Need Help??


in reply to One-line shell script for find and replace

When addressing certain facts; that the OP did not specify what OS they are running (could be windoze, VMS or mac); that, even if it is unix or linux, files in hidden directories or called .anything.txt should probably be left alone (I believe files beginning with '~' for windows, although I don't do much windows) and also that for example find -print0 works on linux but not unix; a short script instead of a one liner would become necessary, perhaps this:
# a unix/linux version: Traverse('./'); sub Traverse{ my $dir = shift; opendir my $dh, $dir or die "$!, for $dir"; for my $file ( grep !/^\./, readdir $dir ) { # but adjust for OS my $path = "$dir/$file"; if ( -d $path ) { Traverse( $path ); } else { ( $file =~ /\.txt$/ ) and Process( $path ); # or for VMS /\.TXT\;\d+$/ } } closedir $dh; } sub Process{ my $file = shift; open my $fh "<$file" or die "$!, for $file"; my @updated = (); while( <$fh> ) { s/find/replace/g; push @updated; } close $fh; open $fh, ">$file" or die "$!, for $file"; print $fh @updated; close $fh; }

-M

Free your mind

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2024-03-28 20:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found