七行プログラミング (452ﾚｽ)
上下前次1-新

---

283(1): 266 04/03/17 10:18 ID:??? AAS
($a,$f,$t,$k)=@ARGV;$k=~s/%([\da-f]{2})/pack"H2",$1/egi;$l=$f.($t?"-$t":"").($k
?"-$k":"");print"Content-Type: text/",$a?"tab-separated-values\nContent-Dispo".
"sition: attachment;filename=log$l.csv":plain,"\n\n";$f?do{/^\d{4}(\d\d)(\d\d)$
/x&&$1*$2&&$1<13&&$2<32&&(open(F,"$_.txt"),print grep$k?/\Q$k/o:1,<F>)for$f..$t
||$f}:do{s/^\d$/0$&/for($s,$n,$h,$d,$m,$y)=localtime;$y+=1900;$m++;$m=~s/^\d$/0
$&/x;open F,">>$y$m$d.txt";print F join("\t",$y,$m,$d,$h,$n,$s,@ENV{REQUEST_URI
,REMOTE_ADDR,HTTP_USER_AGENT,HTTP_REFERER}),"\n"}

■記録時
・ログファイルに日付も記録するよう変更。
（日付範囲を指定してログ表示した際に日付が無いとわけわからないため）

■閲覧時
・ダウンロード時のファイル名に抽出条件を盛り込むよう変更。
・1〜12月の1〜31日の間だけファイルオープンを試みるよう変更。

いろいろ増やしたらshebang無し七行になっちゃいました。

---

上下前次1-新書関写板覧索設栞歴

---

あと 169 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.023s