溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

Perl編程中文件遍歷操作是怎樣的

發(fā)布時(shí)間：2021-11-25 16:19:16 來源：億速云 閱讀：118 作者：柒染 欄目：開發(fā)技術(shù)

Perl編程中文件遍歷操作是怎樣的，針對(duì)這個(gè)問題，這篇文章詳細(xì)介紹了相對(duì)應(yīng)的分析和解答，希望可以幫助更多想解決這個(gè)問題的小伙伴找到更簡單易行的方法。

幾個(gè)知識(shí)點(diǎn)：

use Cwd  引用當(dāng)前目錄

cwd：當(dāng)前目錄

shift：獲取位置參數(shù)；

chdir 改變目錄位置

opendir 打開目錄

closedir 關(guān)閉目錄

foreach 。。。next

#!perl -w
use strict;
use Cwd;  //
sub scanDirectory {
    my $workdir=shift;
    my $startdir=cwd;
    chdir $workdir or die "Unable to enter the $workdir dir!\n";
    opendir my $DIR,'.' or die "can't open the dir\n";
    my @names = readdir $DIR or die "can't readdir\n";
    closedir $DIR;
    foreach my $name(@names){
        next if($name eq '.');
        next if($name eq '..');
        if(-d $name){
            scanDirectory($name);
            next;
        }
        if($name eq 'core.txt'){
            print "find a core file! Path:". cwd ."\n";
            next;
    }
    }
    chdir $startdir or die "Unable to enter the $startdir dir!\n";
}
&scanDirectory('.');

關(guān)于Perl編程中文件遍歷操作是怎樣的問題的解答就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注億速云行業(yè)資訊頻道了解更多相關(guān)知識(shí)。

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場，如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手