O'Reilly logo

Programmieren mit Perl by Jon Orwant, Tom Christiansen, Larry Wall

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Text::Wrap

use Text::Wrap;  # Importiert wrap()
.
@lines = (<<"EO_G&S" =~ AS.*\S/g);

    This particularly rapid,
    unintelligible
    patter isn't generally
    heard,
    and if
    it is, it
    doesn't matter.

EO_G&S

$Text::Wrap::columns = 50;
print wrap(" " x 8, " " x 3, @lines), "\n";

Das liefert die folgende Ausgabe:

This particularly rapid, unintelligible
patter isn't generally heard, and if it is, it doesn't matter.

Das Modul Text::Wrap implementiert einen einfachen Absatzformatierer. Die wrap-Funktion formatiert jeweils einen Absatz, indem sie die Zeilen an den Wortgrenzen umbricht. Das erste Argument ist das Präfix, das der ersten zurückgelieferten Zeile vorangestellt wird. Das zweite Argument ist der Präfix-String, der allen anderen Zeilen vorangestellt wird. Alle ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required