Как уменьшить несколько аргументов в perl-скрипте

Question

Я не знаком с perl и bash, но мне нужно использовать Perl-скрипт, который включает команды bash, чтобы это сделать. вот команда:

basename -t input.nii.gz -o output \ 
      -g atlas1.nii.gz -l labels1.nii.gz \ 
      -g atlas2.nii.gz -l labels2.nii.gz \ 
      -g atlas3.nii.gz -l labels3.nii.gz \ 
      -g atlas4.nii.gz -l labels4.nii.gz \ 
      -g atlas3.nii.gz -l labels3.nii.gz \ 
      -g ............ \ 
      -l ............ 

У меня есть 18 файлов атлас и этикеток, а команда не может быть выполнена только в строго определенном порядке. Можно ли уменьшить аргументы следующим образом:

basename -t input.nii.gz -o output -g atlas%.nii.gz -l labels%.nii.gz 

спасибо.

Answer 1

Вы можете использовать цикл для создания массива аргументов для использования с basename.

for i in {1..18}; do 
    args+=(-g atlas$i.nil.gz -l labels$i.nii.gz) 
done 
basename -t input.nii.gz -o output "${args[@]}"