エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
[Perl]複数の画像をダウンロード: プログラミング研究室
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
[Perl]複数の画像をダウンロード: プログラミング研究室
【getimages.pl】 use LWP::Simple; use warnings; use strict; #画像のURLを入れてください my @url = ... 【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")