From: satomichan <git-ubuntu-n95.20250719@...>
Date: Sun, 31 Aug 2025 15:10:23 +0000 (+0900)
Subject: 保存先ファイル名: 全角に変換する記号類を追加, 空白は半角 _ に.
X-Git-Url: https://satomichan.jp/gitweb/?a=commitdiff_plain;h=3ca503ea87e3596c3e2496fedc9f06a2ab0574ad;p=foltia-dl.git

保存先ファイル名: 全角に変換する記号類を追加, 空白は半角 _ に.
---

diff --git a/foltia-dl.pl b/foltia-dl.pl
index 45be956..6794165 100755
--- a/foltia-dl.pl
+++ b/foltia-dl.pl
@@ -221,11 +221,15 @@ sub make_basename {
     
     my $basename = "${date}_${title}";
     
+    #空白 -> _ にする
+    $basename =~ s/\s+/_/g;
+    $basename =~ s/　+/_/g;
+
     #半角記号類 -> 全角にする
     for ($basename) {
-        s/\s+/_/g;
         s/"/”/g;
         s/'/’/g;
+        s/`/｀/g;
         s/,/，/g;
         s/\./．/g;
         s/</＜/g;
@@ -235,11 +239,21 @@ sub make_basename {
         s/;/；/g;
         s/\?/？/g;
         s/!/！/g;
+        s/&/＆/g;
+        s/%/％/g;
+        s/~/ï¿£/g;
+        s/\$/＄/g;
         s/\*/＊/g;
         s/\\/ï¿¥/g;
         s/\//／/g;
         s/\./．/g;
         s/\+/＋/g;
+        s/\(/（/g;
+        s/\)/）/g;
+        s/\[/ï¼»/g;
+        s/]/ï¼½/g;
+        s/{/｛/g;
+        s/}/｝/g;
     }
     
     $basename = substr($basename, 0, $LIMIT_LENGTH_OF_FILE_BASE_NAME);