read file

2013-08-26 18:10

#!/usr/local/bin/perl -w

use strict;

open LOG, "/var/log/messages";  	# 打開這個日誌檔
while () {  			# 利用鑽石符號讀入資料
    print if (/sudo/);  		# 符合比對的資料就列印出來
}