2020-04-30windows下獲取目錄下所有文件夾及文件內容

#!/usr/bin/perl

use warnings;

use strict;

my ($Filepath) = @ARGV;

sub scan_file{

? ? my @files = glob(@_[0]);

? ? foreach (@files){

? ? #-d為目錄

? ? ? ? if(-d $_){

? ? ? ? ? ? my $Filepath = "$_/*";

? ? ? ? ? ? ? ? print "Filepath=$Filepath\n";

? ? ? ? ? ? scan_file($Filepath);

? ? ? ? ? ? #-f為普通文本

? ? ? ? }elsif(-f $_){

? ? ? ? ? ? print "file $_\n";

? ? ? ? }

? ? }

}

scan_file($Filepath);

腳本


輸出


最后編輯于 ：
?著作權歸作者所有,轉載或內容合作請聯系作者
平臺聲明：文章內容（如有圖片或視頻亦包括在內）由作者上傳并發布，文章內容僅代表作者本人觀點，簡書系信息發布平臺，僅提供信息存儲服務。