Regex PERL

[raider]

Boa noite, sou novo no PERL, estava a precisar de ajuda na construção da seguinte REGEX PERL, dada a expressão $res = "100\$*10%"  efectuar o calculo atraves de expressoes regulares     (resultado = 10), tentei isso mas dá erro...

 

$res="100\$*10%";

$res =~ s/(\d)\$(\d)\$/$1\+$2*10%/;

printf("\n\nRes com printf: %.2f\n",eval($res));

[Rui Carlos]

A expressão regular que tens vai fazer match de um dígito, seguido de $, seguido de outro dígito, seguido de um $.  Para começar, tu queres fazer match de números (i.e. múltiplos dígitos).  Depois falta-te o * no meio, e no final devias estar a fazer match de um % (e não de $).

Isto também não faz sentido: $1\+$2*10%.  Queres algo do género de x1*x2/100 (isto em notação matemática, depois converte para Perl).