📄 p6.pl
字号:
#!/usr/bin/perlprint "Content-type:text/html\n\n";$webmaster="root";($seconds,$minutes,$hour)=localtime(time);if($hour<=6){$greeting="Midnite to 6 am";}elsif(($hour>6)&&($hour<=12)){$greeting="6 am to afternoon";}elsif(($hour>12)&&($hour<=16)){$greeting="Afternoon to evening";}elsif(($hour>16)&&($hour<=23)){$greeting="Evening to till midnite";}open(CHK,"/usr/bin/w -h -s $webmaster|");if(<CHK>=~/$webmaster/){$inout="Webmaster is currently logged in";}else{$inout="Not logged in";}print"<html>";print"<body>";print $greeting;print $inout;print"</body>";print"</html>";exit(0);⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -