araraloren/gist:b71482265faa2c103340d99ff5cd9b66

## gistfile1.txt
has Cro::HTTP::Client $!c;
    has Str $.root is required;
    has Supplier $!supplier;
    has $!xml-cache;
    has $!result-count;
    has $!index;
    has $.debug;
    has $!taped;

    submethod TWEAK() {
        $!c .= new(
            :follow,
            :cookie-jar,
            # 这是默认的请求头
            # 每次请求的时候都会带上
            headers => [
                'User-Agent'        => 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:57.0) Gecko/20100101 Firefox/57.0',
                'Accept'            => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
                'Accept-Language'   => 'zh-CN,zh;q=0.8,zh-TW;q=0.7,zh-HK;q=0.5,en-US;q=0.3,en;q=0.2',
                'Accept-Encoding'   => 'gzip, deflate',
                'Content-Type'      => 'application/x-www-form-urlencoded',
                'DNT'               => 1,
                'Connection'        => 'keep-alive',
                'Cache-Control'     => 'max-age=0',
                'Upgrade-Insecure-Requests' => 1
            ]
        );
        $!supplier .= new;
    }

    method reset() {
        $!index = 0;
        $!result-count = Int;
        unless $!taped {
            $!supplier.Supply.tap;
            $!taped = True;
        }
    }

    # 第一次搜索，我们需要自己构造 form
    # 默认提供一个关键字即可
    method construct-first-body(*%body) {
        state %default-body = %{
            tag             => 'search',
            subtag          => 'simsearch',
            gcbook          => 'yes',
            viewtype        => '',
            flword          => '',
            corename        => '',
            searchType      => 'oneSearch',
            title           => '',
            searchFieldType	=> 'text',
            aliasname       => '全部馆藏',
    #       q               => '中国农民战争史'
            searchModel     => 'front',
            su              => '',
            field           => 'title'
        };
        my %ret = %default-body;
        for %body.kv -> $key, $value {
            %ret{$key} = $value;
        }
        return %ret;
    }

    method check-status($status) {
        fail "Get page failed!" if $status != 200;
    }

    # 获取页面
    method GET(Str $path) {
        note "GET PAGE => ", $path if $!debug;

        my $resp = await $!c.get("{$!root}{$path}");

        given $resp {
            self.check-status(.status);
            return $resp.body-text().result;
        }
    }

    # 请求页面
    method POST(Str $path, *%args) {
        note "POST PAGE => {$path} " if $!debug;
        note "--------------" if $!debug;
        note %args if $!debug;
        note "--------------" if $!debug;

        my $resp = await $!c.post("{$!root}{$path}", |%args);

        "POST OK".note if $!debug;

        note $resp if $!debug;

        given $resp {
            self.check-status(.status);
            my $bt = $resp.body-text;
            while $bt.status !~~ Kept {
                note "Planned ..." if $!debug;
                sleep 0.2;
            }
            return $bt.result;
        }
    }
	has Cro::HTTP::Client $!c;
	has Str $.root is required;
	has Supplier $!supplier;
	has $!xml-cache;
	has $!result-count;
	has $!index;
	has $.debug;
	has $!taped;

	submethod TWEAK() {
	$!c .= new(
	:follow,
	:cookie-jar,
	# 这是默认的请求头
	# 每次请求的时候都会带上
	headers => [
	'User-Agent' => 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:57.0) Gecko/20100101 Firefox/57.0',
	'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8',
	'Accept-Language' => 'zh-CN,zh;q=0.8,zh-TW;q=0.7,zh-HK;q=0.5,en-US;q=0.3,en;q=0.2',
	'Accept-Encoding' => 'gzip, deflate',
	'Content-Type' => 'application/x-www-form-urlencoded',
	'DNT' => 1,
	'Connection' => 'keep-alive',
	'Cache-Control' => 'max-age=0',
	'Upgrade-Insecure-Requests' => 1
	]
	);
	$!supplier .= new;
	}

	method reset() {
	$!index = 0;
	$!result-count = Int;
	unless $!taped {
	$!supplier.Supply.tap;
	$!taped = True;
	}
	}

	# 第一次搜索，我们需要自己构造 form
	# 默认提供一个关键字即可
	method construct-first-body(*%body) {
	state %default-body = %{
	tag => 'search',
	subtag => 'simsearch',
	gcbook => 'yes',
	viewtype => '',
	flword => '',
	corename => '',
	searchType => 'oneSearch',
	title => '',
	searchFieldType => 'text',
	aliasname => '全部馆藏',
	# q => '中国农民战争史'
	searchModel => 'front',
	su => '',
	field => 'title'
	};
	my %ret = %default-body;
	for %body.kv -> $key, $value {
	%ret{$key} = $value;
	}
	return %ret;
	}

	method check-status($status) {
	fail "Get page failed!" if $status != 200;
	}

	# 获取页面
	method GET(Str $path) {
	note "GET PAGE => ", $path if $!debug;

	my $resp = await $!c.get("{$!root}{$path}");

	given $resp {
	self.check-status(.status);
	return $resp.body-text().result;
	}
	}

	# 请求页面
	method POST(Str $path, *%args) {
	note "POST PAGE => {$path} " if $!debug;
	note "--------------" if $!debug;
	note %args if $!debug;
	note "--------------" if $!debug;

	my $resp = await $!c.post("{$!root}{$path}", \|%args);

	"POST OK".note if $!debug;

	note $resp if $!debug;

	given $resp {
	self.check-status(.status);
	my $bt = $resp.body-text;
	while $bt.status !~~ Kept {
	note "Planned ..." if $!debug;
	sleep 0.2;
	}
	return $bt.result;
	}
	}