[Perl]複数の画像をダウンロード: プログラミング研究室【getimages.pl】 use LWP::Simple; use warnings; use strict; #画像のURLを入れてください my @url = (); #ファイル名 my $time = time; for(my $i = 0; $i < scalar(@url); $i++){ my $html = get($url[$i]); my $prefix = get_prefix($url[$i]); open(OUT, ">$time$i$prefix"); binmode OUT; print OUT $html; close(OUT); my $count = $i + 1; print "$count枚目完了しました\n"; } #拡張子を取得する sub get_prefix{ my $url = shift; if(rindex($url, ".jpg")
