Tag: Perl

Perl 陣列排序

Perl 要對陣列進行排序, 可以用內建函式 sort 來做, 例如: 以上第 7 行用了 sort 對 @words 進行排序, 輸出結果會是: abc def mmm xyz 但這個 sort 函式是用字串排序的,如果陣列的值是數值,sort 也會根據字串的方式排序,即 123 會排在 23 前面,因為 “1” 是排在 “2” …

Perl DBI 防止 SQL Injection

現在很多地方都用上資料庫系統, 有一些是檢查用戶名稱及密碼的登入系統, 但如果沒有對用戶輸入進行過濾, 會有很多潛在危除, 例如以下程式碼: my $sth = $dbh->prepare(“select * from user where user=’$user’ and pass=’$pass'”); 以上這句 SQL 會檢索 user 資料表, 找出 user 及 pass 與用戶輸入匹配的紀錄, 有回傳便可以登入, 沒有回傳便登入失敗, 這個很容易理解。但如果用戶的輸入包括了一些特定的 …

Perl 複製/重新命名/刪除檔案

在 Perl Scripts 裡面除了可以用系統指令進行檔案處理外, 也可以用 Perl 直接實現, 做法是這樣: 複製檔案 Perl 沒有內建函式可以複製檔案, 但可以透過載入 File::Copy 實現: 上面的語句會將 $old_file 複製到 $new_file. 重新命名檔案 雖然 Perl 內建有 rename 函式可以用, 但它在某些檔案系統不能運作, 所以用 File::Copy 實現會更好: move …

Perl 檢查檔案存取及修改時間

Perl 有很多實用的的檔案運算子, 要檢查檔案的最後存取及修改時間, 可以用 -M 及 -A 實現,在程式內可以便可以找出指定時間沒有被取存或修改的檔案, 以下是簡單的例子檢查檔案是否在 30 日內沒有修改過: 而除了以上兩個外, Perl 還有很多實用的檔案運算子: -e 檔案存在 -z 檔案是空檔案 (大小為 0) -s 檔案不是空檔案 (回值檔案大小) -f 檔案是普通文件 -d 檔案是目錄 -l 檔案是連結 …

還會繼續用 Perl

在十多年前讀書的時候學 C/C++, 後來因工作關係開始學習 PHP, 學習了 PHP 兩年左右開始學 Perl, 主要是寫一些系統管理的工具。其他的程式語沒有認真學, 要用再找資料。直到目前為止, 當要寫一些網頁應用程式, 我會用 PHP, 而一些 Linux 系統管理工具會用 Perl。 近年用 Perl 的人越來越少, 我覺得主要原因是很多原本用 Perl 的系統管理員轉用 Python, 因為 Python 在 OOP 方面做得比 …

Perl 實現 Search & replace

一些用靜態 HTML 編寫的網站,如果要將每一頁的特定文字更新 (例如 copyright),要逐頁逐頁更改真的十分麻煩。這個問題有幾個解決方法,其中一個是在指令模式用 perl 來做替換,例如: 以上指令會將目錄下所有 .html 尾的檔案更新,用 “new_str” 替換 “src_str”。