script Perl - LinuxFr.org

Bonjour à tous, j'ai récupéré récemment un script perl qui permet de gérer la création de divx. je souhaiterais cependant automatiser davantage la démarche par l'intermédiaire de questions posés à l'utilisateur, ce qui m'oblige à intervenir dans le code source du script. Ne connaissait que les stricts rudiments de perl, je fais appel à vous pour obtenir des infos somme toute de bases.
voici ce que je souhaiterais faire.
1. je pose une question avec print : "indiquer le titre du DVD que vous souhaitez encoder"
2. l'utilisateur doit pouvoir rentrer le titre du DVD (un chiffre)
3. une variable interne doit stocker l'information entré par l'utilisateur de sorte que cette information soit réutilisable plus tard.

Voila c pas bien sorcier mais quand on sait pas, meiux vaut demander, non ? :)

merci du coup de main

# Re: script Perl

Posté par jmfayard le 17 octobre 2003 à 10:39. Évalué à 1.

my $titre_max=42;
my ($titre,$a);

while( true ) {
    print "indiquer le titre du DVD que vous souhaitez encoder (0-$titre_max) : " ;
    chomp ($a= <STDIN> );
    if ($a =~ /(\d+)/ ) {
         $titre=$1;
         last if ( $titre <= $titre_max ) ;
   }
}

Comme je peux pas tester, il y a surement un bug idiot. Et comme d´habitude, there is more than one way to do it. Et si tu veux, tu peux corriger ta fote dortografe.