incoming/ scripts

1 files changed, 17 insertions, 0 deletions

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);
+	}