Как объединить несколько FLV-файлов с помощью FLV :: Splice?

Question

Если у меня есть массив, содержащий несколько файлов FLV, как так:

my @src_files = qw (1.flv 2.flv 3.flv 4.flv 5.flv 6.flv 7.flv); 

Я могу назвать flvbind EXE-файл в качестве внешней программы командной строки, чтобы сделать слияние как так:

my $args = join(' ',@src_files); 
my $dest_file = 'merged.flv'; 
system "flvbind $dest_file $args"; 

Но использование пример для FLV::Splice это:

use FLV::Splic; 
my $converter = FLV::Splice->new(); 
$converter->add_input('first.flv'); 
$converter->add_input('second.flv'); 
$converter->save('output.flv'); 

Я, кажется, не в состоянии понять, как сделать то же самое, как и flvbind делает. ли я пространно добавить каждый из параметров, как так:

use FLV::Splice; 

my $dest_file = 'merged.flv'; 
my $converter = FLV::Splice->new(); 
$converter->add_input('1.flv'); 
$converter->add_input('2.flv'); 
$converter->add_input('3.flv'); 
$converter->add_input('4.flv'); 
$converter->add_input('5.flv'); 
$converter->add_input('6.flv'); 
$converter->add_input('7.flv'); 
$converter->save("$dest_file"); 

Это не похоже на правильный путь. Я имею в виду, нужно ли мне подробно добавлять каждый парам? Есть ли способ упростить повторное использование метода add_input? Любые указатели? Спасибо, как всегда :)

UPDATE: Оказывается, это глупый вопрос. Спасибо, @ Эрик за то, что дал мне правильный ответ. Я думал об использовании цикла for, чтобы уменьшить повторное использование метода add_input, но почему-то я думал, что это не сработает, и я думал, что застрял. Хорошо, я буду напоминать себе, что не буду легко беспокоить других людей в следующий раз.

Answer 1

Это довольно легко уменьшить повторение:

$converter->add_input($_) for @src_files; 

Или обернуть все это в подпрограмме:

sub flv_splice { 
    my $dest_file = shift; 
    my $converter = FLV::Splice->new(); 
    $converter->add_input($_) for @_; 
    $converter->save($dest_file); 
} 

flv_splice 'merged.flv', @src_files;