Rekursion mit regulärem Ausdruck - #118649 (Allgemeines zu Perl)

murphy

2009-02-04 16:42

User since
2004-07-19
1776 Artikel
HausmeisterIn

Gast+2009-02-04 11:39:28--
[...]
Code (perl): (dl )
$input =~ s/$(.*)$/$1/x;
[...]

Hier wuerde ich eher substr benutzen, oder den regulaeren Ausdruck verankern -- das erscheint mit sauberer und vielleicht ist es auch ein wenig schneller:

Code (perl): (dl )

$input = substr($input, 1, length($input) - 2);

oder

Code (perl): (dl )

$input =~ s/^\((.*)\)\z/$1/;

Ansonsten finde ich die Loesung kreativ und gut :-)

When C++ is your hammer, every problem looks like your thumb.