我想知道搜索子文件夹,如果我已经在目录中。
例如:.. build/clean/test/subfolder <-
我已经写好了如何进入测试的脚本,但不知道如何进入子文件夹。
脚本看起来像这样:Directory Handle in Perl Not Working Properly
sub response {
foreach my $arg (@ARGV) {
print "Investigating $arg directory below:-\n";
opendir(my $DIR, $arg) or die "You've Passed Invalid Directory as Arguments\n";
my $size = 0;
while(my $fileName = readdir $DIR) {
next if $fileName =~ /^\./;
my $path = File::Spec->catfile( $arg, $fileName );
if( -d $path) {
say "Folder1($arg, $fileName)"
}
$size++;
}
closedir $DIR;
if($size == 0) {
print "The $arg is an empty directory\n";
}
}
字符串
这是子文件夹
sub Folder1
{
my $prevPath = shift;
my $receivedFolder = shift;
my $realPath = "$prevPath/$receivedFolder";
my $path = File::Spec->rel2abs($realPath);
print "$path\n";
print "$receivedFolder Folder Received\n";
foreach my $folder (@folder)
{
opendir(DIR, $path) or die "You've Passed Invalid Directory as Arguments\n";
while(my $file = readdir $DIR) {
next if $file =~ /^\./;
my $path1 = File::Spec->catfile( $folder, $file );
if( -d $path1) {
say "Folder2($folder2, $file)"
}
closedir(DIR);
}
型
sub 2文件夹
sub Folder2 {
my $prevPath1 = shift;
my $receivedFolder1 = shift;
my $realPath1 = "$prevPath1/$receivedFolder1";
my $path1 = File::Spec->rel2abs($realPath1);
print "$path1\n";
print "$receivedFolder1 Folder Received\n";
opendir(DIR, $path1) or die "You've Passed Invalid Directory as Arguments\n";
while(my $file = readdir DIR) {
print "Current Folder has $file file\n";
}
closedir(DIR)
}
型
我想读取子2文件夹内的文件。但是,我一直使用子2文件夹返回到主目录。
my @arg = ('clean');
my @folder = ('logs');
型
但是,在构建目录中也有一个logs文件夹。它将被重定向到那里,而不是../clean/test/logs
2条答案
按热度按时间cwdobuhd1#
对于使用路径,我强烈推荐Path::Tiny。
字符串
vof42yt12#
也许像下面的代码片段可以阐明解决问题的可能方法。
字符串
文档Perl File Test Operators