📄 subroutines.lib
字号:
#!/usr/local/bin/perl;
sub cap {
$captext = $_[0];
$captext =~ tr/a-z/A-Z/;
return $captext;
}
sub which {
$browser = $ENV{'HTTP_USER_AGENT'};
if ($browser =~ /MSIE/) {
$browser = "Explorer";
} elsif ($browser =~/Mozilla/) {
$browser = "Netscape";
} else {
$browser = "something besides Netscape and Explorer";
}
}
sub header {
print "<HTML><HEAD><TITLE>";
print "$_[0]";
print "<TITLE><HEAD><BODY>"
}
sub footer {
print "<BODY><HTML>";
}
sub mime {
print "Content-type: text/html\n\n";
}
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -