Comment fusionner plusieurs fichiers FLV en utilisant le module FLV :: Splice?

Question

Si j'ai un tableau qui contient plusieurs fichiers FLV comme ceci:

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

Je peux appeler flvbind .exe comme un programme de ligne de commande externe pour faire la fusion comme ceci:

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

Mais l'utilisation par exemple pour FLV::Splice est la suivante:

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

me semble être incapable de comprendre comment faire la même chose comme le flvbind fait. Dois-je ajouter verbeux tous les param comme ceci:

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"); 

Cela ne ressemble pas à la bonne façon. Je veux dire dois-je ajouter verbalement tous les param? Est-il possible de simplifier l'utilisation répétée de la méthode add_input? Des pointeurs? Merci comme toujours :)

MISE À JOUR: Il s'avère que c'est une question idiote. Merci, @Eric de m'avoir donné la bonne réponse. J'ai pensé à utiliser une boucle for pour réduire l'utilisation répétée de la méthode add_input, mais je pensais que ça ne marcherait pas et je pensais que j'étais bloqué. Eh bien, je me souviendrai de ne pas déranger facilement les autres la prochaine fois.

Answer 1

Il est assez facile de réduire la répétition:

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

Ou envelopper le tout dans un sous-programme:

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;