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.
# Re: script Perl
Posté par jmfayard . En réponse au journal script Perl. É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.