實例代碼：
代碼如下:
#! /usr/bin/perl -w
$path = '/root/Documents';  # 當前工作目錄
$dir = "$path/images"; # 要遍歷的目錄
$log_file = "$path/access_201209.log"; # nginx日志0903~0907,  filesize: 5.4G
$result_file = 'result.f';  # 放置結果的文件

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

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

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

                if(-d "$base_dir/$sub_dir") { # 如果是目錄則回調
                     &find_dir("$base_dir/$sub_dir"); # 引用遞歸函數，避免在內存中開辟多個副本

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

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

                 # 使用Linux命令，在 [$log_file文件] 中查找 [$this_file字符串] 并統計字符串出現的次數