データ件数が多くなってもエラーにならない方法
perlで、URLからサイトが表示されるかを確認するプログラムを作成しました。
ただ現在の方法だと、チェックするデータ件数が多くなるとエラーとなってしまいます。
現在のソース
(ここから)
open(DB,"$memfile") || &error("Open Error : $memfile");
flock DB, 2;
@lines = <DB>;
close(DB);
@new=();
foreach $line (@lines) {
$flag=0;
($num,$url,$title) = split("<>", $line);
&url_ckeck("$url");
$data = "$num<>$url<>$title\n";
$data =~ s/\n<>/<>/g;
$data =~ s/\r\n<>/<>/g;
$data =~ s/\r<>/<>/g;
push(@new,$data);
}
open OUT, "> $memfile";
print OUT @new;
close OUT;
(ここまで)
この方法だと300件を超えると「ページが表示出来ない」エラーがでてしまうので、
チェックの方法を小分けしてエラー回避できないかを考えているのですが、とのようにすれば良いのかがわからず先に進められなくなってしまいました。
プログラムも見よう見真似で作成しているのでおかしな箇所が多々あるかと思いますが、助けていただけないかと思い書き込みました。
「$line (@lines)」を「$start .. $end」として件数を小分けにしてボタンを表示させてクリックして進められるようにしてみたらとも思いましたが
データがうまく更新出来ずにいます。
不明点はご指摘ください。
よろしくお願いいたします。
お礼
有難うございました。