Browse Source

Try to handle glob cases better

spesk1 4 years ago
parent
commit
a8e95b33c4
1 changed files with 21 additions and 2 deletions
  1. 21 2
      strip_filename.pl

+ 21 - 2
strip_filename.pl

@@ -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");
 
 }