在perl中向glob函数传递更多参数

有没有更好的方法可以做到这一点，比如用一行代替四行？我不得不使用glob，因为它的末尾有通配符，当我试图在单行中使用它时，glob抱怨参数太多

谢谢。

这里有四个：

你可以试试：

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

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

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

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

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

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

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