From 3ca503ea87e3596c3e2496fedc9f06a2ab0574ad Mon Sep 17 00:00:00 2001 From: satomichan Date: Mon, 1 Sep 2025 00:10:23 +0900 Subject: [PATCH] =?utf8?q?=E4=BF=9D=E5=AD=98=E5=85=88=E3=83=95=E3=82=A1?= =?utf8?q?=E3=82=A4=E3=83=AB=E5=90=8D:=20=E5=85=A8=E8=A7=92=E3=81=AB?= =?utf8?q?=E5=A4=89=E6=8F=9B=E3=81=99=E3=82=8B=E8=A8=98=E5=8F=B7=E9=A1=9E?= =?utf8?q?=E3=82=92=E8=BF=BD=E5=8A=A0,=20=E7=A9=BA=E7=99=BD=E3=81=AF?= =?utf8?q?=E5=8D=8A=E8=A7=92=20=5F=20=E3=81=AB.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- foltia-dl.pl | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) 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/