#!/usr/bin/perl  
#  
  
# Enter the name of the file with the stuff to change  
my $chglist = "changelist";  
  
# lets promtpt for a file name  
print "Enter file name: ";  
chomp($in = <STDIN>);  
  
if($in ne "") {  
	open(CHGFILE, $chglist) or die "Can't open $chglist: $!\n";  
	while(<CHGFILE>) {  
		# Here we get all the stuff and add them to easy to use variables  
		($oldstuff, $newstuff) = split("=", <CHGFILE>);	  
		foreach ($_) {  
			$old = $in;  
    		$new = "$file.tmp.$$";  
    		$bak = "$file.orig";  
  
   			open(OLD, "< $old") 	or die "can't open $old: $!";  
    		open(NEW, "> $new") 	or die "can't open $new: $!";  
  
    			# Correct typos, preserving case  
    			while (<OLD>) {  
					s/$oldstuff/$newstuff/i;  
					(print NEW $_)		or die "can't write to $new: $!";  
    			}  
  
    		close(OLD)			or die "can't close $old: $!";  
    		close(NEW) 			or die "can't close $new: $!";  
  
    		rename($old, $bak)		or die "can't rename $old to $bak: $!";  
    		rename($new, $old)		or die "can't rename $new to $old: $!";  
		}  
	}  
}else{  
	print "Enter file name: ";  
	chomp($in = <STDIN>);  
}

		($oldstuff, $newstuff) = split("=", <CHGFILE>);

$iplist = "../iplist.txt"; 
 
$superuserpath = "/home/www/ipchanger/newone/"; 
 
open (CNG,"$iplist") || die "No Change List"; 
#Suck dem changes list is $changelist[x][0]=old ip $changlist[x][1]=new ip 
$i=0; 
while (<CNG>) { 
		@tmp=split(/=/); 
		$changelist[$i][0]=$tmp[0]; #Easy reading 
		$changelist[$i][1]=$tmp[1]; 
		$changelist[$i][0]=~tr/\n//d; # Strip Out The HRT 
		$changelist[$i][1]=~tr/\n//d; 
		print "$i - $changelist[$i][0] will be $changelist[$i][1]\n"; 
		$i++; 
} 
		 
close (CNG); 
$changecount=$i-1; #Lets not do the blank at the end 
print "Kewl Stuff, I found $i changes to do...\n"; 
  
opendir(DIR,"$superuserpath") || die "Can't open superuser path";  
     do {  
     	$aname=readdir(DIR);  
		# if (!-d $aname) {$aname="ipchanger.pl";} 
		if (-d $aname) { 
			$aname = "xxxxxx"; 
			print "found Directory"; 
		} 
          if ($aname ne "." && $aname ne ".." && $aname ne "" && $aname ne "ipchanger.pl" && $aname ne "xxxxxx"){		  	 
		  		open (MOL,"$aname") || die "Cant open the file $aname - NO FUN"; 
					local $/; # Disable Filepointer 
					$molestme=<MOL>; # Ever seen spaceballs? "Suck Suck Suck" 
				close (MOL); 
				  open (FIL,">./backup/$aname\.bak") || die "Cant Write Output"; 
						print FIL $molestme; 
		 			close (FIL); 
				$filesize=length($molestme); 
					print "I have found a file $aname with $filesize Bytes to pillage in it.\nAnd Away We GOOOO \n"; 
				for $i(0..$changecount){ 
					# for easy reading 
					$was=$changelist[$i][0]; 
					$is=$changelist[$i][1]; 
					# MAGIK SPOT -- 
					$molestme=~s/$was/$is/g; 
					print "$was is now $is\n"; 
				} 
				open (FIL,">$aname") || die "Cant Write Output"; 
				print FIL $molestme; 
				close (FIL); 
          } 
     } while $aname ne ""; 
close (DIR);

#!/usr/local/bin/perl 
 
use strict; 
 
my ($iplist, $superuserpath, $sourcedir, $donedir); 
 
if (0) { 
	#Directories listed in the original post 
	$iplist = "../iplist.txt";  
	$superuserpath = "/home/www/ipchanger/newone/"; 
} else { 
	#Directories used while testing in a different environment 
	$iplist = "iplist.txt";  
	$superuserpath = "samples"; 
	$sourcedir = "samples"; 
	$donedir = "output" 
} 
 
#Suck dem changes list is $changelist[x][0]=old ip $changlist[x][1]=new ip  
 
my @changelist; 
my $i=0;  
open (CNG, $iplist) || die "No Change List, $!";  
while (<CNG>) { 
	chomp; 
	my @tmp = split(/=/); 
	push (@changelist, \@tmp); 
	print "$i - $tmp[0] will be $tmp[1]\n";  
	$i++;  
}  
close (CNG);  
 
print "Kewl Stuff, I found ", scalar (@changelist), " changes to do...\n";  
 
#These are protected files that are not to be manipulated each name will be 
#a key in the hash so we can see if the key exists.  The value is irrelevant. 
my %protected = map { $_ => 1 } qw (. .. ipchanger.pl); 
 
opendir(DIR, $sourcedir) || die "Can't open superuser path, $!";   
while (my $aname=readdir(DIR)) {   
	if (-d "$sourcedir/$aname") {  
		print "\nfound Directory '$aname'\n"; 
	} elsif (exists ($protected{$aname})) { 
		print "\nfound a protected file '$aname'\n"; 
	} else { 
		open (MOL,"$sourcedir/$aname") || die "Cant open the file $sourcedir/$aname - NO FUN, $!";  
		local $/; # Disable Input Record Separator  
		my $molestme=<MOL>; # Ever seen spaceballs? "Suck Suck Suck"  
		close (MOL);  
 
#		open (FIL,">./backup/$aname\.bak") || die "Cant Write Output, $!";  
#		print FIL $molestme;  
#		close (FIL);  
 
		my $filesize=length($molestme);  
		print "\nI have found a file $aname with $filesize Bytes to pillage in it.\nAnd Away We GOOOO \n";  
 
		foreach my $pair (@changelist) { 
			my $was	=$pair->[0];  
			my $is	=$pair->[1];  
			# MAGIK SPOT -- 
			my $ct = ($molestme=~s/$was/$is/g);  
			print "$was is now $is, changed $ct times\n" if ($ct);  
		}  
 
#		open (FIL,">$aname") || die "Cant Write Output, $!";  
#		print FIL $molestme;  
#		close (FIL);  
	}  
} 
 
close (DIR);

open (CNG, $iplist) || die "No Change List, $!";  
while (<CNG>) { 
	chomp; 
	my @tmp = split(/=/); 
	push (@changelist, \@tmp); 
	print "$i - $tmp[0] will be $tmp[1]\n";  
	$i++;  
}

my %protected = map { $_ => 1 } qw (. .. ipchanger.pl); 
#.... 
	} elsif (exists ($protected{$aname})) { 
		print "\nfound a protected file '$aname'\n";

		foreach my $pair (@changelist) { 
			my $was	=$pair->[0];  
			my $is	=$pair->[1];  
			# MAGIK SPOT -- 
			my $ct = ($molestme=~s/$was/$is/g);  
			print "$was is now $is, changed $ct times\n" if ($ct);  
		}

opendir(DIR, $sourcedir) || die "Can't open superuser path, $!";

	if (-d "$sourcedir/$aname") {