1。用 exists 來判斷某個是否存在
ref: http://linux.tnc.edu.tw/techdoc/perl_intro/x578.html
2。用 keys 取出雜湊的鍵,ref: http://linux.tnc.edu.tw/techdoc/perl_intro/x560.html
3。用 values 取出雜湊的值,ref: http://linux.tnc.edu.tw/techdoc/perl_intro/x568.html
4。each 則是取出 keys 及 values,ref: http://linux.tnc.edu.tw/techdoc/perl_intro/x573.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 .”
“;
留言