?? move-runs.pl
字號:
#!/pkg/gnu/bin//perl5
#
#move-runs.pl,v 1.2 2000/06/04 22:00:03 brunsch Exp
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
html_begin();
if ($runsdir ne $oldrunsdir) {
print CLIENT "<BODY>Moving $oldrunsdir to $runsdir...";
if (-e $runsdir) {
print CLIENT "<STRONG>Error: $runsdir already exists!</STRONG>";
}
rename($oldrunsdir, $runsdir);
print CLIENT "<P>Done.";
}
else
{
print CLIENT "<STRONG>Can't move $runsdir <P>to $oldrunsdir</STRONG>";
}
html_end();
# end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -