http://ssorc.tw/?p=850

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 .”
“;
Related posts 相關文章
2020 年迎來了 PHP 8 與 Perl 7
More...
安裝 perl 5.8.1 版本 – 草記
More...
perl 備註
More...
perl 隨機產生 password 密碼
More...

作者

留言

撰寫回覆或留言

發佈留言必須填寫的電子郵件地址不會公開。