Regexp 32 Bit Limitierung - #71046 (Allgemeines zu Perl)

bloonix

2006-10-20 16:24

User since
2005-12-17
1615 Artikel
HausmeisterIn

Beispiel bei 3 Zeichen:

Code: (dl )

1
2
3

$text = 'text ist zu lang';
$text  =~ s/^(.{3}).*$/$1/;
print $text, "\n";

tex

Ich möchte einen Text auf eine vorgegebene Länge kürzen.

@renee, wenn ich .* weglasse, wird der Text nicht gekürzt

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.