|
@@ -26,12 +26,31 @@ sub strip_filename($) {
|
|
|
return $new_filename;
|
|
|
}
|
|
|
|
|
|
+sub construct_mv_fn($) {
|
|
|
+
|
|
|
+ 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 eq " " ) {
|
|
|
+ print $fh "\\$char";
|
|
|
+ } else {
|
|
|
+ print $fh $char;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ close $fh;
|
|
|
+ return $new_filename;
|
|
|
+
|
|
|
+}
|
|
|
+
|
|
|
sub rename_file($$) {
|
|
|
|
|
|
my ( $old_filename, $new_filename ) = @_;
|
|
|
- my $cmd = "mv '$old_filename' $new_filename";
|
|
|
+ my $mv_filename = construct_mv_fn($old_filename);
|
|
|
+ my $cmd = "mv '$mv_filename' $new_filename";
|
|
|
print "$cmd\n";
|
|
|
- system("$cmd");
|
|
|
+ #system("$cmd");
|
|
|
|
|
|
}
|
|
|
|