Sikker eval

[Kaare Rasmussen <sslug@sslug>]

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?

-- 
Kaare Rasmussen            --Linux, spil,--        Tlf:        3816 2582
Kaki Data                tshirts, merchandize      Fax:        3816 2501
Howitzvej 75               Åben 12.00-18.00        Web:      www.suse.dk
2000 Frederiksberg        Lørdag 11.00-17.00       Email: sslug@sslug