|
@@ -0,0 +1,47 @@
|
|
|
+#!/usr/bin/env perl
|
|
|
+
|
|
|
+# Stupid script to strip trash formatted filenames
|
|
|
+
|
|
|
+use strict;
|
|
|
+use warnings;
|
|
|
+
|
|
|
+my @inputs = @ARGV;
|
|
|
+
|
|
|
+sub strip_filename($) {
|
|
|
+
|
|
|
+ my $filename = shift;
|
|
|
+ my @chars = split("",$filename);
|
|
|
+ my $new_filename;
|
|
|
+ open(my $fh, ">>", \$new_filename) or die "Couldn't open new_filename var\n";
|
|
|
+ foreach my $char ( @chars ) {
|
|
|
+ if ( $char =~ m/\s/ ) {
|
|
|
+ next;
|
|
|
+ } elsif ( $char =~ m/\(|\)|\\|\'|\$|\!|,/ ) {
|
|
|
+ next;
|
|
|
+ } else {
|
|
|
+ print $fh $char;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ close $fh;
|
|
|
+ return $new_filename;
|
|
|
+}
|
|
|
+
|
|
|
+sub rename_file($$) {
|
|
|
+
|
|
|
+ my ( $old_filename, $new_filename ) = @_;
|
|
|
+ my $cmd = "mv '$old_filename' $new_filename";
|
|
|
+ print "$cmd\n";
|
|
|
+ system("$cmd");
|
|
|
+
|
|
|
+}
|
|
|
+
|
|
|
+foreach my $input ( @inputs ) {
|
|
|
+ if ( ! -f $input ) {
|
|
|
+ print "File at path $input doesn't look like a file\n";
|
|
|
+ exit 1;
|
|
|
+ }
|
|
|
+ print "$input\n";
|
|
|
+ my $new_filename = strip_filename($input);
|
|
|
+ print "$new_filename\n";
|
|
|
+ rename_file($input,$new_filename);
|
|
|
+}
|