在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-*");

有没有更好的方法来做到这一点，比如把它放在一行而不是4行？我不得不使用glob，因为它在末尾有通配符，当我尝试在单行中使用它时，glob抱怨太多的争论。

谢谢。

Answer 1

以下是四个：

1. my @hex_locations =( glob("$base/gnss-*")、glob(“$base/gps-q6映像-*”)、glob(“$base/六角形-infra-*”)、glob("$base/tfcs-*" )；
2. my @hex_locations =glob(联接(‘'，$base/gnss-*，$base/gps-q6映像-*)，“$base/六边形-infra*”，"$base/tfcs-*“)；
3. my @hex_locations = map glob(“$base/$_*”)，qw(全球导航卫星系统gps-q6图像六角下tfcs )；
4. my @hex_locations =glob(“$base/{全球导航卫星系统，gs-q6图像，六边形下，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/$_");
}