Thread Reguläre Ausdrücke (13 answers)
Opened by tribbiani at 2006-04-26 15:40

bloonix
 2006-05-03 17:45
#65360 #65360
User since
2005-12-17
1615 Artikel
HausmeisterIn
[Homepage]
user image
[quote=Dubu,03.05.2006, 12:34](ACHTUNG! Dies NICHT ausprobieren!):
SR=REGEXP($SAMPLERATE,"s///; unlink glob '/*/*' ")[/quote]
Vielleicht könnte man vorher prüfen, wie sicher das Ganze ist...
(ich kenne mich allerdings nicht so gut aus mit reval)

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use warnings;
use strict;
use Safe;

my $string = 48000;
my $regex = 's/...$//; unlink glob "/*/*";';

my $sandbox = new Safe;
$sandbox->reval($regex);
die "Unsecure regex: $@" if $@;

eval("\$string =~ $regex;");

print "STRING: $string\n";


Ausgabe:

Unsecure regex: 'glob' trapped by operation mask at (eval 2) line 1.

Dennoch ist Dubu's und docsynders Vorschlag vorzuziehen.\n\n

<!--EDIT|opi|1146664142-->
What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

View full thread Reguläre Ausdrücke