概要

  • 指定 URL のレスポンスの HTTP Header を表示する。

ソース

  • fileshowHeaders.zip
    すべてを展開すべてを収束
      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
     22
     23
     24
     25
     26
     27
     28
     29
     30
     31
     32
    
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    -
    |
    !
    -
    |
    !
     
     
    
    #!/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
    

添付ファイル: fileshowHeaders.zip 172件 [詳細]

リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: Tue, 30 Jun 2015 15:13:16 JST (1084d)