Re: [PERL] Sikker eval

[Ole Tange <sslug@sslug>]

On Thu, 9 May 2002, Kaare Rasmussen wrote:

> Jeg vil gerne lade en bruger taste et aritmetisk udtryk ind og derpå beregne
> det.
>
> Vil det her være sikkert nok
>
>   s/[^\d.\+\-\*\/()]+//g;
>   my $res = eval $_;
>   print "$_ : $res\n"
>
> eller kan man forestille sig et sikkerhedshul i denne kode?

Det er ca. sådan jeg ville formulere det.

  0-9 . - + * / ( )

Nej, jeg kan ikke se, at disse kan give problemer, ud over at din eval kan
fejle.


/Ole
-- 
Registered Linux user #194. Get counted: http://counter.li.org
http://ole.tange.dk