?? nph-count.cgi
字號:
#!/usr/bin/perl -wTuse strict;print "$ENV{SERVER_PROTOCOL} 200 OK\n";print "Server: $ENV{SERVER_SOFTWARE}\n";print "Content-type: text/plain\n\n";print "OK, starting time consuming process ... \n";# Tell Perl not to buffer our output$| = 1;for ( my $loop = 1; $loop <= 30; $loop++ ) { print "Iteration: $loop\n"; ## Perform some time consuming task here ## sleep 1;}print "All Done!\n";
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -