Public Scratchpad
Download
,
Select Code To D/L
#!/bin/perl use strict; use warnings; use CAM::PDF; my $doc = CAM::PDF->new('PPC_Info_Leaflet.pdf'); my $txt; for (1..4) { $txt .= $doc->getPageText($_); $txt .= "\n"; } print $txt;