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

diff --git a/foltia-dl.pl b/foltia-dl.pl
index 45be95646e8a6720c1ac53a1d28d9d9745db2ca2..6794165ab74ee3537d45facf058e87de3353c266 100755 (executable)
--- a/foltia-dl.pl
+++ b/foltia-dl.pl
@@ -221,11 +221,15 @@ sub make_basename {
     
     my $basename = "${date}_${title}";
     
     
     my $basename = "${date}_${title}";
     

+    #空白 -> _ にする
+    $basename =~ s/\s+/_/g;
+    $basename =~ s/　+/_/g;
+

     #半角記号類 -> 全角にする
     for ($basename) {
     #半角記号類 -> 全角にする
     for ($basename) {

-        s/\s+/_/g;

         s/"/”/g;
         s/'/’/g;
         s/"/”/g;
         s/'/’/g;

+        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;
         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);
     }
     
     $basename = substr($basename, 0, $LIMIT_LENGTH_OF_FILE_BASE_NAME);