HTTP::Cookiesの挙動調査

cookie-survey-http.go

package main

import "net/http"
import "log"

func main() {
    http.HandleFunc("/", func(w http.ResponseWriter, req *http.Request) {
        w.Header().Set("Set-Cookie", "-ryozi-net=-ryozi-net; Path=/; Domain=.ryozi.net")
        http.SetCookie(w, &http.Cookie{Name: "none", Value: "nodomain", Path: "/"})
        http.SetCookie(w, &http.Cookie{Name: "ryozi-net", Value: "ryozi-net", Path: "/", Domain: "ryozi.net"})
        //      http.SetCookie(w, &http.Cookie{Name: "-ryozi-net", Value: "-ryozi-net", Path: "/", Domain: ".ryozi.net"})
        http.SetCookie(w, &http.Cookie{Name: "main-ryozi-net", Value: "main-ryozi-net", Path: "/", Domain: "main.ryozi.net"})
    })
    log.Fatal(http.ListenAndServe(":11111", nil))
}

cookie-survey.pl

#!/usr/bin/perl
use 5.10.1;
use utf8;

use WWW::Mechanize;
use HTTP::Cookies;
use Encode qw(encode decode);

use constant USER_AGENT => 'Mozilla/5.0 (Linux; Android 4.2.2; SHL24 Build/S8190) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.89 Mobile Safari/537.36';

my @urls = qw(
http://ryozi.net:11111/
http://main.ryozi.net:11111/
http://sub.ryozi.net:11111/
);

my $c = 0;
for my $url1 (@urls){
	say "=== $url1 ===";
	for my $url2 (@urls){
		
		my $m = WWW::Mechanize->new(
		  agent => USER_AGENT,
		  autocheck => 1,
		    cookie_jar => {
			  file => sprintf("test-%d.cookie", $c++),
			  autosave => 1,
			  hide_cookie2 => 1,
			  ignore_discard => 1,
			}
		);

		$m->add_handler("request_send", sub {
		  my $req = shift;
		  say "--- REQ -----------------------------------------------";
		  say $req->as_string;
		  undef;
		});

		$m->add_handler("response_done" => sub {
		  my $res = shift;
		  say "--- RES -----------------------------------------------";
		  say $res->message;
		  say $res->headers->as_string;
		  undef;
		});
		
		$m->get($url1);
		$m->get($url2);
	}
}