snippet gok8000 <p>Hi all,</p> <p>Sometimes I have to change words inside text files. When this happens, and when I know what to search for, I use this program.</p> <CODE> #!c:/Perl/bin/Perl.exe # # corrector.pl # changes words inside text files # placed in the win directory C:\filestochange # which is supposed to contain text files # my $dir_to_process = "C:\\filestochange"; opendir DH, $dir_to_process or die "Cannot open $dir_to_process: $!"; foreach $file (readdir DH) { unless ($file eq "." || $file eq ".." || $file eq "discarded" || $file eq "tmp") { print "in $dir_to_process $file is processed\n"; open (INFILEHANDLE, "C:\\filestochange\\$file") or die "error opening"; open (OUTFILEHANDLE, ">C:\\filestochange\\tempfile8000") or die "error opening"; while (<INFILEHANDLE>) { # chomp; s/this/that/; # substututes this with that s/one/two/; # substututes one with two print OUTFILEHANDLE; } close INFILEHANDLE; close OUTFILEHANDLE; rename "C:\\filestochange\\tempfile8000","C:\\filestochange\\$file"; } } closedir DH; print "\nDone (press enter key)\n"; $line = <STDIN>; </CODE>