Perl使用技巧15：使用CGI模块获取COOKIE内容

arche77

$shop=cookie('shop');
say $shop;

获取1个cookie

($shop,$token)=cookie('shop','token');
say "$shop,$token";

获取多个cookie

sub cookie {
        return map{$cgi->cookie($_)} @_;
}