Как я могу записать коды ответов HTTP в файл на Perl?

Question

Я создал HTTP :: Request, который выглядит так:

 #!/usr/bin/perl
require HTTP::Request;
require LWP::UserAgent;
require HTTP::Cookies;

$request = HTTP::Request->new(GET => 'http://www.google.com/');
$ua = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);
$cookie_jar->set_cookie(0,'testCookie','cookieValue','/','http://www.google.com/',80,0,0,86400,0);

$response = $ua->request($request);
if($response->is_success){
print "sucess\n";
print $response->code;
print "\n";
}
else {
print "fail\n";
die $response->code;
print "\n";
}

сейчас, когда я отправляю запрос: я хочу записать коды ответов http в файл

помогите пожалуйста спасибо

Answer 1

Если вы хотите распечатать в файл, то распечатать в файл:

 open my($log), '>', $log_file or die "Could not open $log_file: $!";

 ....

 if($response->is_success){
     print $log "success:", $response->code, "\n";
 }
 else {
     print $log "fail: ", $response->code, "\n";
 }

Общий способ решения подобных проблем - выяснить, что вы хотите сделать, а затем выясните, как это сделать, заглянув в документацию или учебник по Perl. Большинство вещей, которые вы когда-либо захотите сделать, будут просто сочетать основы, которые вы найдете в Learning Perl .