纯PERL 实现网页的head头文件

纯PERL 实现网页的head头文件
#=================================================================
# httphead usage: head($headtype);#
#=================================================================
sub head{
my $type=$_[0];
if (!$type) {
print "Content-type: text/html\n\n" #普通网页
}elsif($type eq 'html') {
print "Content-type: text/html\n\n"; #普通网页
}
elsif($type eq 'img'){
print "Content-type: image/x-xbitmap\n\n";#图片
}
elsif($type eq 'prog'){#程序
print "Content-type: application/octet-stream\n\n";
}
elsif($type eq 'doc'){#DOC文档
print "Content-type: application/msword\n\n";
}
elsif($type eq 'music'){#MUSIC文件
print "Content-type: audio/mpeg\n\n";
}
elsif($type eq '204'){#不返回,网页不刷新
print "Status: 204 No response\n\n";
exit;#这些完了网页应该完成任务了
}
else{#如果以上都不是，那就可能是一个需要转向的URL地址了，就转向吧
print "Status: 302 Moved\nLocation: $type\n\n";
exit;#这些完了网页应该完成任务了
}
}
#用来打印一个网页的头文件的,如果没有头文件,网页将不会显示,而且不同的头文件也会让浏览器进行不同的处理
#================================================================
###########################
##made by MR.WATER QQ:175 785 113 #
###########################