国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

實(shí)例分享Perl遍歷目錄和使用Linux命令分析日志的代碼

2020-02-23 19:46:50
字體:
供稿:網(wǎng)友

Perl中,可以使用sysopen函數(shù)打開文件進(jìn)行操作,這兩個(gè)函數(shù)都需要文件來讀取、寫入和定位,今天武林技術(shù)頻道小編就為你簡(jiǎn)單介紹,希望你對(duì)你有所幫助!

實(shí)例代碼:

?

#! /usr/bin/perl -w
$path = '/root/Documents';??# 當(dāng)前工作目錄
$dir = "$path/images";?# 要遍歷的目錄
$log_file = "$path/access_201209.log";?# nginx日志0903~0907,? filesize: 5.4G
$result_file = 'result.f';??# 放置結(jié)果的文件

?

if(!open $output, ">>$result_file") {?# 以追加的形式打開文件
???????? die " Open file failed: $!";
}
&find_dir($dir);

sub find_dir() {
??????? my $base_dir = $_[0]; # $_[0]表示子例程(函數(shù))的第一個(gè)參數(shù)
??????? if( !opendir(DIR,"$base_dir") ) {
??????????????? warn "open dir failed: $! /n";
??????? }
??????? my @father_dir = readdir(DIR);?# 資源轉(zhuǎn)儲(chǔ)
??????? closedir(DIR);?????????????????

??????? $base_dir =~ s///$//;?# 刪除目錄最后面的 /
??????? foreach $sub_dir (@father_dir) {
??????????????? if($sub_dir =~ /^/./)? {?# 過濾掉 . 和 .. 以及 隱藏文件
??????????????????????? next;
??????????????? }

??????????????? if(-d "$base_dir/$sub_dir") {?# 如果是目錄則回調(diào)
???????????????????? &find_dir("$base_dir/$sub_dir");?# 引用遞歸函數(shù),避免在內(nèi)存中開辟多個(gè)副本

??????????????? }elsif (-f "$base_dir/$sub_dir") {?# 如果是文件則....

??????????????? ?# 文件前面保留一個(gè)空格,這樣才能保證不會(huì)搜索到 theme_skin/blue/images 這樣的目錄
??????????????? ?my $this_file = " $base_dir/$sub_dir";
??????????????? ?$this_file =~ s/$path//;?????????? # 刪除掉字符串 /root/Documents

??????????????? ?# 使用Linux命令,在 [$log_file文件] 中查找 [$this_file字符串] 并統(tǒng)計(jì)字符串出現(xiàn)的次數(shù)
??????????????? ?my $result = `grep -c? "$this_file"? $log_file`;??# $this_file要用雙引號(hào)括起來,防止圖片名稱中有空格造成程序錯(cuò)誤
??????????????? ?chomp? $result ;??# 刪除Linux執(zhí)行命令后,返回值所帶有的換行符
??????????????? ?print $output "$this_file :???????? $result /n";??# 將處理結(jié)果寫入$output指定的文件

?????????????? ??# 已經(jīng)記錄過的文件刪除掉,這樣每次終止腳本的時(shí)候,都能繼續(xù)之前的內(nèi)容進(jìn)行查找
?????????????? ??unlink "$base_dir/$sub_dir";
??????????????? }
??????? }
}

print "/n Finished /n";

# 現(xiàn)在打開 result.f 文件,把 /images/ 替換成 images/?? 這樣才能在當(dāng)前工作目錄中刪除文件
# Linux命令查找5天內(nèi)被訪問0次的記錄,并刪除
# 數(shù)字0 左右兩邊要有空格,防止找到文件名中含有0的記錄

# 方法 1 :
# gawk -F ':' '$2 ~ / 0 / {print $1}' result.f | xargs rm -rf

# 方法 2 :? (完全等同 方法1)
# grep ' 0 ' result.f | gawk -F ':' '{print $1}' | xargs rm -rf

以上就是武林技術(shù)頻道小編為各位朋友們總結(jié)的實(shí)例分享Perl遍歷目錄和使用Linux命令分析日志的代碼,上面的內(nèi)容有沒有讓大家學(xué)會(huì)呢?

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 来凤县| 历史| 盐山县| 灵川县| 仙居县| 慈利县| 包头市| 安丘市| 容城县| 陆良县| 柘荣县| 德惠市| 荔浦县| 定襄县| 平乐县| 玛多县| 青浦区| 乳山市| 西宁市| 苍溪县| 普安县| 桐柏县| 彭州市| 长兴县| 定襄县| 嘉禾县| 丹阳市| 洱源县| 汨罗市| 故城县| 米泉市| 灯塔市| 临夏县| 杭锦后旗| 吉安县| 汶上县| 土默特左旗| 临澧县| 安多县| 海林市| 科技|