概要
- 指定 URL のレスポンスの HTTP Header を表示する。
ソース
-
showHeaders.zip
#!/usr/bin/perl # HTTP Header の表示 use strict; use warnings; use utf8; use Encode; use LWP::UserAgent; #my $charsetConsole = 'UTF-8'; # Linux my $charsetConsole = 'CP932'; # Windows my $charsetFile = 'UTF-8'; binmode( STDIN, ":encoding($charsetConsole)" ); binmode( STDOUT, ":encoding($charsetConsole)" ); binmode( STDERR, ":encoding($charsetConsole)" ); my $url = $ARGV[0] or die("usage: showHeaders.pl <URL>\n"); my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new( HEAD => $url ); # send request my $res = $ua->request($req); if ( !$res->is_success ) { die( "Error: " . $res->status_line . "\n" ); } foreach my $field ( sort( $res->header_field_names ) ) { printf( "%s\t%s\n", $field, $res->header($field) ); } # EOF