1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
use strict;
use PDF::API2::Simple;
my $pdf = PDF::API2::Simple->new(
file => 'new.pdf',
width => 595,
height => 842,
);
$pdf->add_font('Verdana');
$pdf->add_page();
my $long = "lo";
$long .= "o"x100;
$long .="ng";
$pdf->text($long, autoflow => 'on');
$pdf->text($long, autoflow => 'on');
$pdf->save();
2014-12-23T17:26:46 biancabeides korrekt!Vielleicht trennt das Teil nur bei Blanks. Ein 104-buchstabiges Wort trifft man eher seltener an, daher ist der Test nicht sehr praxisnah.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!perl use strict; use warnings; use PDF::API2::Simple; my $pdf = PDF::API2::Simple->new( file => 'new.pdf', width => 595, height => 842, ); $pdf->add_font('Verdana'); $pdf->add_page(); my $long = "lo"; $long .= (" ".("o"x10))x100; $long .="ng"; $pdf->text($long, autoflow => 'on'); $pdf->text($long, autoflow => 'on'); $pdf->save();