題名２０個に記事番号付けるには？
[上に]
[前に]
[次に]
矢部くん
1999/05/11(火) 19:00:35
すいません。済マーク押しちゃったのでもう一度発言させてください。
「題名を抜き出すには？」の続きです。
ログから題名だけを取り出すために
#!/usr/bin/perl
$subjectfile = './bbs.dat';
open(DATA,$subjectfile);
while (<DATA>){
chop;
($date,$fname,$email,$value,$subject,$res,$cnt) = split(/,/);
print "$subject\n";
if ($subject ne "") {
last if ++$i>=20;}
}
close(DATA);
というふうに教えていただいて書いたのですが、
題名が並んで表示されてやや見づらいので、
抜き出した題名に１〜２０までの記事番号を付けたいと思いました。
そこで
print "$subject\n";を変更して
print "$i $subject\n";
としたのですが、
これだと、ログの中の題名のない行も記事番号を表示してしまい、
「１１１こんにちは！２２ようこそ！３３３３３３おはよう！」
っていう感じになっちゃいます。
レス式の掲示板のためにログに題名のない行があって困っています。
よろしくお願いします。
ふじ
1999/05/11(火) 19:12:04
if ($subject ne "") {
print "$i $subject\n";
last if ++$i>=20;}
}
てなかんじで。$subject が空でない時だけ printすれば良いのでは。
矢部くん
1999/05/11(火) 19:55:55
[[解決]]
お返事ありがとうございます！
うまく動作しました。
[上に]
[前に]
[次に]