From ff9fe30cf16474407580daddc990686cf868aa15 Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:16:34 -0500
Subject: incoming/ scripts

---
 bin/incoming/fixnames.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 bin/incoming/fixnames.pl

(limited to 'bin/incoming/fixnames.pl')

diff --git a/bin/incoming/fixnames.pl b/bin/incoming/fixnames.pl
new file mode 100755
index 0000000..1a0249f
--- /dev/null
+++ b/bin/incoming/fixnames.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+# remove non-alphanumerics from filenames in current directory
+my @files = ();
+opendir D, ".";
+while (my $f = readdir D)
+	{
+	push @files, $f unless -d $f || $f =~ /^\./;
+	}
+closedir D;
+foreach my $f (@files)
+	{
+	my $newf = $f;
+	$newf =~ s/[^-_a-zA-Z0-9 .]//g;
+	next unless $newf;
+	print join " ", ("/bin/mv", $f,"\n", $newf, "\n");
+	system("/bin/mv", $f, $newf);
+	}
-- 
cgit v1.2.3-70-g09d2