print auf mehrere zeilen aufteilen - #138040 (Allgemeines zu Perl)

MatthiasW

2010-06-06 18:48

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Ich würde dazu kein substr() benutzen:

Code (perl): (dl )

print join "\n", $string =~ /(.{1,60})/g; #edit: bösen fehler entfernt {60} => {1,60}

Wenn du es aber doch mit substr() machen möchtest:

Code (perl): (dl )

for ( my $i = 0; $i < length($string); $i += 60 ) {
    print substr($string, $i, 60), "\n";
} # for

# oder: (edit)
print join "\n", map substr($string,$_*60,60), 0 .. length($string) / 60;

MfG

edit: int() entfernt
Last edited: 2010-06-06 19:13:46 +0200 (CEST)

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'