s4

changeset 660:347ea2bca687

Force remove spaces in filename
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 11 May 2020 23:01:19 +0900
parents a36a2c3b3056
children 14a7c23f3f06
files mpsplit.pl
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line diff
     1.1 --- a/mpsplit.pl	Mon May 11 20:08:29 2020 +0900
     1.2 +++ b/mpsplit.pl	Mon May 11 23:01:19 2020 +0900
     1.3 @@ -30,6 +30,7 @@
     1.4      if ($fn =~ /^([^\/]*)$/) {
     1.5        $fn = $1;
     1.6      }
     1.7 +    $fn =~ s/ /_/g;
     1.8      open(OUT, ">$dir/$fn");
     1.9        print OUT $body;
    1.10      close(OUT);