PHPからPerl へのコンバート

質問

現在、PHPで作成したものをPerlへ変換しております。
Perlはあまりやった事がないので四苦八苦しております。
下記の処理をPerlへ変換する場合、どの様な記述になりますでしょうか？
精通している方、ご助言お願いいたします。

my $fp = fsockopen( $Host, "80", $ErrNo, $ErrStr, 10 );
if ( $fp ) {
$out = "GET " . $Path . " HTTP/1.1\r\n";
$out.= "Host: " . $Host . "\r\n";
$out.= "Connection: Close\r\n\r\n";
fputs( $fp, $out );

while( !feof( $fp ) )
$ret .= fgets( $fp, 128 );
}
fclose( $fp );

回答No.1

panerai777 · ベストアンサー

要は、HTTP通信して、該当のページを取ってきて、ファイルに保存したいってことでしょうから、

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use FileHandle;

# 取得対象URL
my $url = "http://hoge.com/fuga.html";
# 保存ファイル
my $file = "/hoge/fuga.txt";

my $ua = LWP::UserAgent->new();
my $response = $ua->get( $url );

if( $response->is_success ){
my $fh = FileHandle->new;
$fh->open(">>$file");
$fh->print( $response->content );
$fh->close();
}

です。