#!/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