如何使用"或"运算符为变量赋值？

Question

我是perl的新手.

我想说变量可以取2个值,然后我从另一个函数调用它.

我试过了:

  my(@file) = <${dirname}/*.txt || ${dirname}/*.xml> ;

但这似乎不适用于第二个价值,任何建议？

Answer 1

使用<*>运算符作为fileglob运算符时,可以使用任何常见的glob模式.可用的模式是

• * (任意数量的任何字符),
• ? (任何单个字符),
• {a,b,c}(任意的a,b或c图案),

所以你可以做到

my @file = glob "$dirname/*.{txt,xml}";

要么

my @file = (glob("$dirname/*.txt"), glob("$dirname/*.xml"));

要么

my @file = glob "$dirname/*.txt $dirname/*.xml";

因为glob模式在空白处分成子模式