在perl中将更多参数传递给glob函数

Question

push @hex_locations, glob("$ptxdist_env->{root}/project/platform-$PLATFORM-$BUILD_SUBTYPE/build-target/gnss-*");
push @hex_locations, glob("$ptxdist_env->{root}/project/platform-$PLATFORM-$BUILD_SUBTYPE/build-target/gps-q6image-*");
push @hex_locations, glob("$ptxdist_env->{root}/project/platform-$PLATFORM-$BUILD_SUBTYPE/build-target/hexagon-infra-*");
push @hex_locations, glob("$ptxdist_env->{root}/project/platform-$PLATFORM-$BUILD_SUBTYPE/build-target/tfcs-*");

有没有更好的方法来做到这一点，例如单行而不是四行？ 我必须使用glob，因为它的末尾有通配符，当我尝试在单行中使用它时，glob抱怨参数过多。

谢谢。

Answer 1

这里有四个：

1.  my @hex_locations = ( glob("$base/gnss-*"), glob("$base/gps-q6image-*"), glob("$base/hexagon-infra-*"), glob("$base/tfcs-*"), ); 

2.  my @hex_locations = glob(join(' ', "$base/gnss-*", "$base/gps-q6image-*", "$base/hexagon-infra-*", "$base/tfcs-*", )); 

3.  my @hex_locations = map glob("$base/$_-*"), qw( gnss gps-q6image hexagon-infra tfcs ); 

4.  my @hex_locations = glob("$base/{gnss,gps-q6image,hexagon-infra,tfcs}-*"); 

Answer 2

您可以尝试：

my @loc = ("gnss-*","gps-q6image-*","hexagon-infra-*","tfcs-*");

for (@loc) {
    push @hex_locations, glob("$ptxdist_env->{root}/project/platform-$PLATFORM-$BUILD_SUBTYPE/build-target/$_");
}