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

---

182(4): 03/12/03 06:43 ID:4m1BwtbU(1) AA×
>>175


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
182: [] 03/12/03 06:43 ID:4m1BwtbU >175 $p の指定に不具合あり。join忘れてた。 use CGI':all';use File::Find;$P=join'/',grep/^\D\w*$/,(@i=split'/',path_info);( $Y,$M,$D)=grep/^\d+$/,@i;find sub{($d,$m,$y)=(localtime($t=(stat)[9]))[3..5];!( !($Y&&$Y-$y-1900)&&!($M&&$M-$m-1)&&!($D&&$D-$d)&&/\.txt/&&(!$i[-1]||/^$i[-1]$/) )or$e{$File::Find::name}=$t},"./$P";put header,start_html;for(sort{$e{$b}<=>$e{ $a}}keys%e){open F,$_;s/^\.//;chomp($h=<F>);put h2(a{href,url.$_},$h),pre<F>,hr ;close F}put end_html; 若干仕様変更。 - カテゴリ名は /^\D\w*$/ - ファイルの指定は、PATH_INFO の末尾のみ有効。 - findの対象はカレントディレクトリ以下のみ。(絶対パス指定できるのは、流石にちょっと BTW,ファイルハンドルってスコープ抜けたら勝手にcloseされるんだっけ？perlって。 http://medaka.5ch.net/test/read.cgi/php/1036141603/182
の指定に不具合あり忘れてた 若干仕様変更 カテゴリ名は ファイルの指定は の末尾のみ有効 の対象はカレントディレクトリ以下のみ絶対パス指定できるのは流石にちょっと ファイルハンドルってスコープ抜けたら勝手にされるんだっけ？って

---

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

---

あと 270 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.023s