Perl使用技巧14：使用CGI模块生成头部

arche77

Perl使用技巧14：使用CGI模块生成头部

# header();
生成标准utf8的html头部

# header('jpg');
生成二进制图片的头部

# header('json');
生成json接口的头部

# header($cookie);
生成带cookie的头部

# header('baidu.com');
生成重定向的头部，别忘了带h*t*t*p

sub header {
        my $type=shift;
        switch ($type) {
                case 'jpg' {
                        print $cgi->header(-type=>'image/jpeg',-charset=>'utf-8');
                }
                case 'json' {
                        print $cgi->header(-type=>'text/json',-charset=>'utf-8');
                }
#删除掉这2个zzz
                case /zzzhttpzzz/ {
                        print $cgi->redirect($type);
                }
                case /;/ {
                        print $cgi->header(-type=>'text/html',-charset=>'utf-8',-cookie=>$type);
                }
                else {
                        print $cgi->header(-type=>'text/html',-charset=>'utf-8');
                }
        }
}