s4
diff mpsplit.pl @ 870:a7ae0d67edff
XXX: Lead password resetting to base world
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Wed, 07 Oct 2020 13:01:29 +0859 |
parents | 07863b13e3f9 |
children |
line diff
1.1 --- a/mpsplit.pl Sat May 30 23:26:25 2020 +0900 1.2 +++ b/mpsplit.pl Wed Oct 07 13:01:29 2020 +0859 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;