如何正则表达式并获取文件和目录路径

Question

我的数组（@array）包含这些目录结构。在目录和文件路径下面。

/home/testuser/mysql/data/userdata/pushdir/ 
/home/testuser/mysql/data/userdata/pushdir/test1.sql 
/home/testuser/mysql/data/userdata/nextdir/testdir/ 
/home/testuser/mysql/data/userdata/pushdir/testdir/test2.sql 

/home/testuser/mysql/data/userdata/ - from above list till this line path is constant. 

我想处理文件到另一个循环。为此，我正在寻找文件名输出只有像“pushdir/test1.sql”和“pushdir/testdir/test2.sql”

我使用此代码来获取，但我没有得到预期的输出如“pushdir/test1.sql”和“pushdir/testdir/test2.sql”。请分享你的想法，正则表达式，并得到输出

foreach $dir(@array) 
{ 
chomp $dir; 
print "$dir\n"; 
@files = <$dir/*>; 
my @names=join("\n", sort(@files)); 
print @names,"\n"; 
} 

foreach my $filepath (@names) { 

    (my $volume,my $dirs, my $filelist) = File::Spec->splitpath(+$filepath); 
    print "$filelist\n"; 
} 

Answer 1

@names都被定义为my，因此范围的只有foreach $dir循环中。没有@names数组可以在第二个foreach循环中迭代。此外，join 返回一个字符串，你可能不希望字符串去数组，你想要个别文件名去那里。

使用strict（它会告诉你没有声明@names）和warnings。正确缩进代码块以查看哪些命令属于哪里。

#!/usr/bin/perl 
use warnings; 
use strict; 

use File::Spec; 

my @array = qw(home/testuser/mysql/data/userdata/pushdir/ 
       home/testuser/mysql/data/userdata/pushdir/test1.sql 
       home/testuser/mysql/data/userdata/nextdir/testdir/ 
       home/testuser/mysql/data/userdata/pushdir/testdir/test2.sql); 

my @names; 
for my $dir (@array) { 
    print "DIR: $dir\n"; 
    push @names, sort glob "$dir/*"; 
    print "NAMES: @names\n"; 
} 

for my $filepath (@names) { 
    my ($volume, $dirs, $filelist) = 'File::Spec'->splitpath($filepath); 
    print "FL: $filelist\n"; 
}