#!/usr/bin/perl -w
use File::Basename;
use Data::Dumper;
use File::Find;
my $dir = $ARGV[0] ||= "/" || die $!;
my @files = get_all_files($dir);
sub get_all_files {
my ($dir) = @_;
my @Files;
# Use $File::Find::name instead of $_ to get the paths.
find(sub { push @Files, $_ }, $dir);
return @Files
}
sub work{
# deal with your file
print "good luck!\n";
}
__END__
perl 遍歷目錄及子目錄下的所有文件
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來袖瞻，“玉大人，你說我怎么就攤上這事拆吆×” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵枣耀，是天一觀的道長霉晕。 經(jīng)常有香客問我，道長捞奕，這世上最難降的妖魔是什么牺堰？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮颅围，結(jié)果婚禮上伟葫，老公的妹妹穿的比我還像新娘。我一直安慰自己院促，他們只是感情好筏养，可當(dāng)我...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著常拓，像睡著了一般渐溶。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上弄抬，一...
- 文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼斋配！你這毒婦竟也來了孔飒？” 一聲冷哼從身側(cè)響起灌闺，我...
- 正文 年R本政府宣布青瀑，位于F島的核電站璧亮，受9級特大地震影響，放射性物質(zhì)發(fā)生泄漏斥难。R本人自食惡果不足惜枝嘶，卻給世界環(huán)境...
- 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望哑诊。 院中可真熱鬧群扶，春花似錦、人聲如沸搭儒。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽淹禾。三九已至馁菜，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間铃岔，已是汗流浹背汪疮。 一陣腳步聲響...
推薦閱讀更多精彩內(nèi)容
- （一） 得益于各種內(nèi)容平臺的崛起衅枫，我從幾年前便開始定期地將生活、商業(yè)朗伶、個人所思所想記錄于在網(wǎng)絡(luò)弦撩。 一來是我希望鍛煉...
- 一個微信網(wǎng)友跟我說点晴，她特別想要安靜的環(huán)境來寫作感凤，但是沒有條件。公公婆婆和他們住在一個不到六十平的房子里觉鼻。公婆不思進(jìn)...
- 十九歲坠陈，準(zhǔn)確的說我仍站在十八歲的尾端，但我并不想就這樣在蒼白的時光中長大成人捐康，我并未想過原來成人的世界竟是這樣仇矾，完...
