use LWP::Simple;
$filename=1;
while(<>){
chomp;
$url=$_;
$file = $filename.'.jpg';
getstore($url,$file);
$filename++;
}
amebloから移行したブログの画像を取得する。画像のurlはファイルに書いてあり、それを引数とする。本当はそのurl一覧も取得したかったのだがなぜかできないので、そこはしかたなく手でコピペした。
centos5.5をいれて、ファイルサーバにする。メインのPCはスペックが低く、動画再生中に止まることがある。 centosをインストールすると入るtotemとかいうプレイヤーでは、mpegすら再生できない。コーデックがないのかとかいろいろやってみたが どうにもならず、xineをインストールすることで解決した。
centosではyumを使ってアップデートをするようだが、標準の「レポジトリ(ソフトウェア保管場所)」にあるソフトウェアはごく標準的なものしかないようなので、 dagというレポジトリから取ってくる。xineは標準レポジトリにはない。grep xineとすると xinetdしか引っかからない。