perlである別のサイトの画像をサーバーにコピーする手段はあるのでしょうか?
たとえば、yahooのhttp://img.yahoo.co.jp/images/new2.gifをファイルにしたいです。
get_gazou.cgi
にそのソースを記述して、アクセスしたら、指定のサーバー内にファイルを作るというものです。
wgetのperl版です。
No.1ベストアンサー
- 回答日時:
LWP::Simpleなどどうでしょうか。
http://oshiete.goo.ne.jp/search/search.php?statu …
参考URL:http://oshiete.goo.ne.jp/search/search.php?statu …
No.2
- 回答日時:
#!/usr/local/bin/perl
$file_name = time . ".gif";
&get_gazou($file_name);
sub get_gazou{
$host = "img.yahoo.co.jp";
$path = "/images/new2.gif";
use Socket;
$port = 80;
$ipaddress = inet_aton("$host");
$sock_addr = pack_sockaddr_in($port,$ipaddress);
socket(SOCKET,PF_INET,SOCK_STREAM,0);
connect(SOCKET,$sock_addr);
select(SOCKET);$ |= 1;select(STDOUT);
print SOCKET "GET $path HTTP/1.0\r\n";
print SOCKET "HOST: $host\r\n";
print SOCKET "\r\n";
open(FILE, ">$_[0]");
while(<SOCKET>){
print FILE "$_";
}
close(SOCKET);
}
こんな感じに出来ます(但しこの場合はヘッダ情報を含めてしまうので除去が必要)。
最近私はwgetをそのまま使ったりします。楽なんですよね。
$command = "wget http://img.yahoo.co.jp/images/new2.gif";
if(!open(WGET,"|$command 2>&0")){print "can't open wget.";}
close(WGET);
サーバにもwgetを置きます。まぁ、普通は置いてありますよね。
Windowsサーバなら、cgiの場所にコピーするだけです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パスワードを外部ファイルから...
-
die関数のエラー出力先について
-
バッチファイルの作り方(CSV→...
-
openした後、closeしないでプロ...
-
ExcelをCSV書き出す場合のシー...
-
VBAコードを張り付け後のエクセ...
-
VBAでCSVファイルを途中行まで...
-
エクセルVBA コードが同じでも...
-
データの日付でソートをしたい
-
awkスクリプトでダブルクォーテ...
-
VBAで巨大なファイルの途中から...
-
dos変数の%~dp0は powershellで...
-
VBAでCSVファイルの特定行を書...
-
Perl エラーログを指定の場所...
-
PerlからのCSV出力
-
MATLAB グローバル変数の宣言
-
時刻表を分でソートする方法を...
-
ReadLineでの読み出し行を指定する
-
エクセルVBAで素数だけを出力す...
-
sprintfについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
close()で例外が投げられる理由
-
改行コードが勝手に
-
perlで大容量CSVのsort方法につ...
-
die関数のエラー出力先について
-
open中のファイルをrename
-
perlを用いた特定文字列間の抽...
-
AutoCADのスクリプト
-
microsoft multimedia control ...
-
perlでURLから画像ファイルを作...
-
perlでファイル内の文字列を置...
-
巨大ファイルの行をを逆順に並...
-
オープンしたファイルで行の連結
-
ハッシュにファイルハンドル
-
Perl:ファイルハンドルをスカラ...
-
perlで、文字列の中から何番目...
-
Perlでファイル出力時にデッド...
-
プログラムのヒントを下さい
-
ファイルから読み込んだ文字を
-
パスワード自動生成スクリプト...
-
Perl変数から外部プログラムの...
おすすめ情報