元のスレッド
倉庫番サボりすぎ。
- 1 名前： まいどの名無しさん 投稿日： 2001/10/11(木) 21:06
- 過去ログどんどんたまっていく一方だぜ。
全然見れない。html化はやくしてよ。
事故にでもあったのか？
- 2 名前： まいどの名無しさん 投稿日： 2001/10/11(木) 21:14
- http://isweb30.infoseek.co.jp/computer/hotzonu/
http://members.tripod.co.jp/tatsu01/
- 3 名前： そんな時はとりあえず 投稿日： 2001/10/12(金) 01:28
- こうやって見るんですよforeach $name(@ARGV){
if(-f $name){&dat2txt($name);}
}sub dat2txt
{
local($filename,$sender,$mail,$date,$text,$subj,$num) = @_;
open(IN, "<$filename") || die;
$filename =~ s/^(.+)\.dat$/\1\.txt/i;
open(OUT, ">$filename") || die;
$num = 0;
while(<IN>){
chop;
s/\s+$//;
# ($sender,$mail,$date,$text,$subj) = split(/<>/);
if(/<>/){
s/,/,/g;
s/<>/,/g;
}
($sender,$mail,$date,$text,$subj) = split(/,/);
if($subj){print OUT "<< $subj >>\n\n";}
$num++;
if($mail){$mail="($mail)";}else{$mail=' ';}
print OUT "$num: ${sender}$mail $date\n\n";
$text =~ s/ *<br> */\n\t/g;
$text =~ s/<[^>]*>//g;
$text =~ s/>/>/g;
$text =~ s/</</g;
$text =~ s/"/"/g;
$text =~ s/&;/&/g;
$text =~ s/,/,/g;
print OUT "\t$text\n\n";
}
close(OUT);
close(IN);
}
- 4 名前： まいどの名無しさん 投稿日： 2001/10/12(金) 19:41
- いや
HTML化されてない過去ログはdatにアクセスできねーのよ
- 5 名前： まいどの名無しさん 投稿日： 2001/10/13(土) 17:43
- そう？
鯖によるのかな
- 6 名前： まいどの名無しさん 投稿日： 2001/10/17(水) 13:40
- いまさぼってるの？
- 7 名前： まいどの名無しさん 投稿日： 2001/10/17(水) 13:47
- 過去ログなんてあるからいけないんだよ。
ある程度スプールして、消していけばいいのに。
戻る