HPをファイルとして保存 - プレーンテキスト備忘録

HPを取得してファイルとして保存

use LWP::Simple;

getstore("http://www.yahoo.co.jp",'save.html');

open(IN,"<save.html");
my @data = <IN>;
close(IN);

# 取得したファイルの中身を一行ずつ表示
for(my $i = 0; $data[$i]; $i++)
{
    printf("%3i:$data[$i]",$i);
}