summaryrefslogtreecommitdiff
path: root/get.pl
diff options
context:
space:
mode:
Diffstat (limited to 'get.pl')
-rwxr-xr-xget.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/get.pl b/get.pl
index 214f861..0be57b4 100755
--- a/get.pl
+++ b/get.pl
@@ -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";