salut a tous,
je n'arrive pas a me tirer d'affaire avec le perl alors j'ai besoin d'un petit coup de main.
En fait je dois faire une code qui prend en parametre une chaine de caractere qui est une operation arithmetique de probabilite.
ex d'execution:
>201event "1+-8" 0,954
>201event "1+3+5" 0,978

ben j'ai d'abord essayer de recuperer les chiffres dans un tableaux puisqu'il ya une operation prealable a faire pour chaque chiffre avant d'effectuez l'operation visible.voici mon code:
if(scalar @ARGV < 2)
{
print("201event needs some arguments \n");
exit 0;
}

my @tab = $ARGV[1];
$i = 0;
$a = 0;
my @opr;

while($tab[$i])
{
if($tab[$i] == '-')
{
$opr[$a] = 1 - (((4 * $tab[$i + 1]) + 5) / (10 * $tab[$i + 1]));
print ("$opr[$a]");
print ("$tab[$i + 2]");
}
else
{
$opr[$a] = (((4 * $tab[$i]) + 5) / (10 * $tab[$i]));
print ("$opr[$a]");
print ("$tab[$i + 1]");
}
$i += 2;
$a++;
}
print ("bon test");
exit 0;

et il me met une erreur comme suit:
./201event.pl: No match.
alors jene comprends pas vraiment pourkoi il me met cette erreur la vu que je suis encore debutant en perl, j'aimerai bcp que vs m'aidiez dans ce sens a parfaire ce code.merci d'avance pour votre comprehension.