s4
diff mpsplit.pl @ 921:7b887bea6ecd
Team.csv with gecos names
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 12 Jan 2021 12:30:02 +0900 |
parents | 07863b13e3f9 |
children |
line diff
1.1 --- a/mpsplit.pl Sat May 30 23:26:25 2020 +0900 1.2 +++ b/mpsplit.pl Tue Jan 12 12:30:02 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;