一些 Perl 的筆記
0001 0002 0003 0004 0005 0006 0007 0008 0009 |
use File::Path; #開啟設定檔 my $file="./CONFIG"; #開啟設定檔 open(FHD, "$file") || die "$!n"; #傳入到 all 這個 array my @all=<FHD>; #關閉檔案 close(FHD); |
0001 0002 0003 0004 0005 0006 0007 0008 |
#@content 為一陣列 foreach (@content) { #刪除空白行 $_ =~ s/^$//; #把 \n 取代為 <br> $_ =~ s/\n/<br>/; print "$_"; } |
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 |
use File::Path; # 宣告 $cnf_file 是一個新的 Zip 物件 my $cnf_file = Archive::Zip->new(); # 把 /backup/project 存為 project 壓縮目錄 $cnf_file->addTree("/backup/projects", "projects"); # 把 /backup/documentss 存為 documents 壓縮目錄 $cnf_file->addTree("/backup/documents", "documents"); # 寫入 backup.zip 壓縮檔 $cnf_file->writeToFileNamed("backup.zip"); |
0001 0002 0003 0004 0005 0006 0007 0008 |
# 開啟 sys.cnf 並以附加方式開啟 (代號為 newGLOBAL), 若失敗則傳出錯誤並結束 open (newGLOBAL, ">> system.cnf") || die "$!n"; my $newStr = "Hellon"; print newGLOBAL "$newStr"; #關閉檔案 close(newGLOBAL); |
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 |
# 設定檔案名稱 $file = "CONFIG"; # 開啟檔案 (代號為 GLOBAL) open (GLOBAL, "$file") || die "$!n"; # 設定 @content 陣列來源為 GLOBAL my @content = <GLOBAL>; # 關閉檔案 close (GLOBAL); # 用 foreach 讀取 @contenet 的每一個列 foreach (@content) { # 列印內容 print $_; } |
0001 0002 0003 |
#! /usr/bin/perl # 使用 use strict 可以讓 perl 強制檢查宣告, 較嚴緊的做法 use strict; |
02/14/2007