diff options
| -rwxr-xr-x | get.pl | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -10,7 +10,7 @@ sub sanitize ($) { $s =~ s/^\s+//; $s =~ s/\s+$//; $s =~ s/\.[^.]+$//g; - $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g + $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g; $s =~ s/\s+/_/g; $s =~ s/_+/_/g; if (length($s) == 0) { @@ -29,7 +29,8 @@ foreach my $s (@ARGV){ $ext = $1; $s =~ s/^\s+//; $s =~ s/\s+$//; - $clean_fn = sanitize(`basename $s`) + '.' + $ext; + $clean_fn = sanitize(`basename "$s"`) . '.' . $ext; + print "$s $clean_fn $ext\n"; system('rm', $fn); system('rm', $clean_fn); print "downloading $clean_fn\n"; |
