Programmieren mit Perl

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 ...