s4
diff mpsplit.pl @ 905:5acef432b1de
TD-class delimiter changed to :::
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 03 Jan 2021 14:44:56 +0900 |
parents | 07863b13e3f9 |
children |
line diff
1.1 --- a/mpsplit.pl Sat May 30 23:26:25 2020 +0900 1.2 +++ b/mpsplit.pl Sun Jan 03 14:44:56 2021 +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;