#!perl
# replace the string in all file at this directory.

print "FROM ???:\n";
$from = <>;
chop $from;

print "TO ???:\n";
$to = <>;
chop $to;

opendir THISDIR, "." or die "serious dainbramage: $!";
@allfiles = grep !/^\.\.?$/, readdir THISDIR;
closedir THISDIR;

foreach $file (@allfiles){
	if (-d $file){
		print "$file    ---->    Directory.\n";
	} elsif ($file eq "replace.pl"){
		print "$file    ---->    This file.\n";
	} else {
		print "$file    ---->    replace.\n";
		open THISFILE, $file or die "No such file: $!";
		@allline = <THISFILE>;
		close THISFILE;
		open THISFILE, ">$file";
		foreach $line (@allline){
			$line =~ s/$from/$to/g;
			print THISFILE $line;
		}
		close THISFILE;
	}
}
exit;