PDF erstellen & automatischer Zeilenumbruch...

[R00Ki3]

#!/appl/local/ivmpkg/IVMprl560/bin/perl		 -w
use PDF::Create;
 
my $root = $pdf->new_page('MediaBox' => [ 0, 0, 612, 792 ]); #Din A4 Werte
my $page = $root->new_page; 
my $font = $pdf->font('Subtype' => 'Type1',
						'Encoding' => 'WinAnsiEncoding',
						'BaseFont' => 'Helvetica',
my $fontsize =20;
...
$page->string($font, $fontsize, $horizontal, $vertikal, "$text");

URL zu Create http://search.cpan.org/~ftassin/PDF-Create-0.01/lib/PDF/Create.pm

Wenn ich nun den TEXT in die PDF Datei schreibe, fängt der Text an Position ($horizontal, $vertikal)an und hat keinen Automatischen Zeilenumbruch sondern läuft einfach endlos weiter.

Wie kann ich für den Automatischen Zeilenumbruch sorgen?

(\n funkt nicht wird einfach übersprungen.)

 

[renee]

Mit \n funktioniert es nicht, aber bei PDF::Create gibt es eine Funktion namens string_width. Damit kannst Du berechnen, wie lang der String ist. Wenn der Text über die Seite hinausgeht, musst Du den Text "brechen" und einen neunen ->string()-Aufruf machen...