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

---

287: 04/03/17 17:14 ID:??? AAS
>>285
78文字+改行になってるよw
さらに強引に短くしてみた。

変更点
pack"H2"→pack H2　DLファイル名→$f-$t-$k.log　$1*$2→$1のみ判定　[3,4,5]→[3..5]

#! perl
($a,$f,$t,$k)=@ARGV;$k=~s/%([\da-f]{2})/pack H2,$1/egi;print"Content-Type: te".
"xt/",$a?"tab-separated-values\nContent-Disposition: attachment;filename=$f".($
t&&"-$t").($k&&"-$k").'.log':plain,"\n\n";$f?do{/^....(..)(..)$/&&$1&&$1<13&&$2
<32&&(open(F,"$_.txt"),print grep$k?/\Q$k/o:1,<F>)for$f..$t||$f}:do{($d,$m,$y)=
(localtime)[3..5];open F,sprintf">>%d%02d%02d.txt",$y+1900,$m+1,$d;print F join
("\t",''.localtime,@ENV{REQUEST_URI,REMOTE_ADDR,HTTP_USER_AGENT,HTTP_REFERER}),
"\n"}

あと5バイト

---

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

---

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

---

ぬこの手 ぬこTOP 0.012s