概要

• 指定 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

リンク

• CPAN:libwww-perl
• CPAN:HTTP-Message