michaelpeternell · June 2, 2014 16:12 · Jun 2, 2014
diff --git a/refactor.pl b/refactor.pl
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+# by Michael Peternell
+# Created: 2013
+# Last modified: 2013
+
+# Search and replace on a whole directory.
+# filenames are also searched and replaced.
+# recursive.
+# (Git files are excluded from the search. (when filename contains ".git"))
+
+use strict;
+
+my $search = $ARGV[0];
+my $replace = $ARGV[1];
+
+sub refactor
+{
+	my $fn = shift;
+
+	#rename file
+	$fn =~ m:^(.+)/([^/]+)$:;
+	my $dirname = $1;
+	my $basename = $2;
+	if($basename =~ m($search)) {
+		$basename =~ s/$search/$replace/g;
+		my $old_fn = $fn;
+		$fn = "$dirname/$basename";
+		print "In $dirname: Renaming $old_fn to $fn\n";
+		rename $old_fn, $fn;
+	}
+
+	#activate slurp mode
+	local $/ = undef;
+
+	#search
+	unless(open F, "<", $fn) {
+		warn("Cannot open $fn: $!");
+		return;
+	}
+	my $contents = <F>;
+	close F;
+
+	#replace
+	if($contents =~ m/$search/)
+	{
+		print "Substituting in $fn\n";
+		$contents =~ s/$search/$replace/g;
+		unless(open F, ">", $fn) {
+			warn("Cannot open for writing $fn: $!");
+			return;
+		}
+		print F $contents;
+		close F;
+	}
+}
+
+if(!$search || !$replace) {
+	die("Usage: $0 'search-string' 'replace-string'\n");
+}
+
+open FILES, q(find . -type f | grep -v '/\\.git/' |) or die "Error in find: $!";
+
+while(<FILES>) {
+	chomp;
+	refactor($_);
+}