主頁 > 知識(shí)庫 > Perl腳本實(shí)現(xiàn)遞歸遍歷目錄下的文件

Perl腳本實(shí)現(xiàn)遞歸遍歷目錄下的文件

熱門標(biāo)簽:萬利達(dá)百貨商場(chǎng)地圖標(biāo)注 熱門電銷機(jī)器人 上海企業(yè)外呼系統(tǒng) 智能機(jī)器人電銷神器 okcc外呼系統(tǒng)怎么調(diào)速度 電話機(jī)器人哪里有賣 河南虛擬外呼系統(tǒng)公司 外呼電信系統(tǒng) 惠州龍門400電話要怎么申請(qǐng)
#!/usr/bin/perl -w
use strict;
use File::Spec;

local $\ ="\n";#當(dāng)前模塊的每行輸出加入換行符  

my %options;

#目錄路徑
$options{single_case} = '/home/jiangyu/src/pl/Example';

  my @cases;
  if (-d $options{single_case}) {#判斷目錄是否存在
    my @files;
    my $dh;
    push(@files, $options{single_case});
    while (@files) {
      if (-d $files[0]) {#若是目錄執(zhí)行以下操作
        opendir $dh, $files[0] or die $!;#打開目錄句柄,若失敗打印錯(cuò)誤信息
        @_ = grep { /^[^\.]/ } readdir $dh;#過濾掉以"."和".."的文件,即UNIX下的隱藏文件
        foreach (@_) {
          push(@files, File::Spec->catfile ($files[0], $_));#連接目錄名和文件名形成一個(gè)完整的文件路徑:
        }
        closedir $dh;
      }
      #若是文件直接壓入數(shù)組@cases中
      elsif ($files[0] =~ /\.t$/) {
        push(@cases, $files[0]);
      }
      shift @files;
    }
  }
  else {
    @cases = ($options{single_case});
  }


print $_ foreach @cases;#打印文件列表

標(biāo)簽:淮安 百色 合肥 綿陽 周口 周口 綏化 秦皇島

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Perl腳本實(shí)現(xiàn)遞歸遍歷目錄下的文件》,本文關(guān)鍵詞  Perl,腳本,實(shí)現(xiàn),遞歸,遍歷,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Perl腳本實(shí)現(xiàn)遞歸遍歷目錄下的文件》相關(guān)的同類信息!
  • 本頁收集關(guān)于Perl腳本實(shí)現(xiàn)遞歸遍歷目錄下的文件的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章