Aurai
[E-Mail]
1999/12/27(月) 01:48:00
# それぞれの行に対し・・・
loop: for ($i = 0; $i <= $#lines; $i++) {
$line = $lines[$i];
# EUCに変換する
if ($jflag) {
&jcode'convert(*line, "euc");
}
# タイトルを覚えておく
if (($title eq "") && ($line =~ /<TITLE>/i)) {
$title = $line;
}
を次のように変更……で大丈夫ですかね
$bflag = 0;
# それぞれの行に対し・・・
loop: for ($i = 0; $i <= $#lines; $i++) {
$line = $lines[$i];
# EUCに変換する
if ($jflag) {
&jcode'convert(*line, "euc");
}
# タイトルを覚えておく
if (($title eq "") && ($line =~ /<TITLE>/i)) {
$title = $line;
}
if (!$bflag) {
$bflag =($line =~ /<BODY/i);
next;
}