跟我一起學 perl系統管理指令碼》第1課

perl在linux/unix下的使用越來越廣,從簡單的文字處理,到web的前端開發都有它的身影,而我呢!也是乙個perl的學習者,現將自己收集的資料一起與大家分享,讓大家能一起掌握這門技術.

#*#* look in the current directory for core files

#*opendir(dir,".") or die "can't open the current directory: $!\n";

# read file/directory names in that directory into @names

@names = readdir(dir) or die "unable to read current dir:$!\n";

closedir(dir);

foreach $name (@names)

if ($name eq "core") }

[學習]

這個指令碼的作用是用來在當前的目錄下查詢core檔案的,類似與bash下的find

find . -type f -name "core"

這個指令碼在功能上看上去很簡單,就是乙個查詢的功能,但我們可以將其擴充套件為乙個函式,用與以後我們在寫大一點的指令碼時,將其作為乙個查詢的功能.最起碼,我們在這裡可以學習目錄控制代碼嘛,像opendir(dir,"."),大家經常寫的其實是檔案控制代碼如open(fin,"/etc/passwd"),還有像迴圈語句foreach.....還有字各個地方串比較符eq,這些都是小的細節,都是我們在脫離書本時,是否能夠想得到呢?我想未必吧,至少我有時也會忘記,哈哈(我是perl的初學者喲)!

[擴充套件]

#!/usr/bin/perl -w

#author:badboy

#2008/11/25 13:30

$file = file.lock;

$tmp=/tmp;

opendir(dir,"$tmp") or die "can't open the current directory: $!\n";

@names = readdir(dir) or die "unable to read current dir:$!\n";

closedir(dir);

foreach $name (@names)

if ($name eq $file) }

這個擴充套件指令碼是用與臨時解決問題的功能,假設我們應用出現乙個這樣的問題,只要在/tmp目錄下出現file.lock,應用將不能使用,而我們此時又找不到根源,這時我們就可以用這個借助cron定時的檢查這個檔案,一出現就發郵件通知給你,讓你在第一時間處理.還可以用在很多地方,還需要大家活用,我這種用法只是解決臨時性的,解決問題才是關鍵......

跟我一起學 perl系統管理指令碼》第1課

跟我一起學攝影

跟我一起學python 跟我一起學人工智慧（一）

跟我一起學OpenGL texture 紋理

跟我一起學 perl系統管理指令碼》 第1課

跟我一起學攝影

跟我一起學python 跟我一起學人工智慧（一）

跟我一起學OpenGL texture 紋理

相關推薦

跟我一起學 perl系統管理指令碼》第1課