Perl 程式備忘錄 (續) II

1。用 exists 來判斷某個是否存在
ref: http://linux.tnc.edu.tw/techdoc/perl_intro/x578.html

5。$yesno = ($i == 10) ? ‘yes’ : ‘no’; # 如果i 是 10 的話 $yesno 變數就為 yes，否則為 no

6。unlink $filename if -e $filename; # 如果檔案存在就刪除

7。rename(“舊檔”,”新檔”); # 將擋案改名

8。複製檔案
use File::Copy;
copy(“檔案1″,”檔案2”);

9。mkdir($dir,0755) || die “$!”; # 建立目錄

10。取得環境變數

print $ENV{COMPUTERNAME};

11。呼叫附程式 sub 的方式

# 第一種
subxxx();
# 第二種
&subxxx;

12。將資料寫入檔案

open(OUT, “>tmp.txt”) || die “$!”;
print OUT “WWWW “;
close OUT;

13。先定義一串我要作的指令，再將給 open 去執行

$command =”echo www >> /root/www.txt”;
$perform=”|”.$command;
open(DOIT, $perform);
close(DOIT);

14。取現在路徑

use Cwd;
$now_dir = getcwd;
print $now_dir .”
“;