Как передать произвольный список аргументов в командной строке в Perl 6?

Question

Я знаю, как передать одиночные и именованные аргументы в командной строке скрипту Perl 6, но как передать произвольный список аргументов?

Например,

script.pl6 fileA.txt fileB.txt

а затем запустить его с

script.pl6 fileC.txt fileD.txt .. fileZ.txt

Answer 1

Необработанные аргументы командной строки можно найти в @*ARGS,

Вы также можете использовать саб &MAIN с параметром невнятного, т.е.

sub MAIN(*@args) { ... }

Обратите внимание, что это будет отклонять вызовы, которые проходят флаги. Если вы хотите захватить их, используйте

sub MAIN(*@args, *%flags) { ... }