[perl] [regular expressions] string afkappen

[sharkzor]

Ik moet met perl&asp een colom vullen met tekst, maar het mag maar iets van 25 tekens zijn anders vern**kt het de layout.
kan ik dit inkorten met een of andere expressie? ik zit al een tijdje te googlen, maar ik vind het maar lastig...

[CyBeR]

code:

$var ~= s/(.{0,25}).*/$1/;

Simpel, even snel.

[JaWi]

Waarom zou je een RegExp gebruiken?

Perl:

my $display_text = substr( $the_text, 0, 25 );