s4
diff mpsplit.pl @ 896:920818b41cd2
Application/{csv,json} forcibly handled as text/plain
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Thu, 31 Dec 2020 10:18:08 +0900 |
parents | 07863b13e3f9 |
children |
line diff
1.1 --- a/mpsplit.pl Sat May 30 23:26:25 2020 +0900 1.2 +++ b/mpsplit.pl Thu Dec 31 10:18:08 2020 +0900 1.3 @@ -30,7 +30,7 @@ 1.4 if ($fn =~ /^([^\/]*)$/) { 1.5 $fn = $1; 1.6 } 1.7 - $fn =~ s/ /_/g; 1.8 + $fn =~ s/[ <>&\#'\"\&|*?]/_/g; 1.9 $fn =~ s,.*[/\\],,; 1.10 open(OUT, ">$dir/$fn"); 1.11 print OUT $body;