word wrap - #55591 (Allgemeines zu Perl)

esskar

2005-06-20 02:17

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

wollte wörter länger als 20 zeichen ein leerzeichen verpassen...
was mach ich falsch?

Code: (dl )

sub WordWrap {
    my ($text) = @_;
    $text =~ s!(\s|^)([\S]{20,}?)([\S]*)(\s|$)!$1$2 $3$4!g;
    return $text;
}