changeset 748:1ba114ebcf2c

Filename regularization
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 06 Jun 2020 20:46:54 +0900
parents 42cc0aeaa498
children f9f88278f6a0
files mpsplit.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/mpsplit.pl	Sat Jun 06 16:58:53 2020 +0900
+++ b/mpsplit.pl	Sat Jun 06 20:46:54 2020 +0900
@@ -30,7 +30,7 @@
     if ($fn =~ /^([^\/]*)$/) {
       $fn = $1;
     }
-    $fn =~ s/ /_/g;
+    $fn =~ s/[ 	<>&\#'\"\&|*?]/_/g;
     $fn =~ s,.*[/\\],,;
     open(OUT, ">$dir/$fn");
       print OUT $body;

yatex.org