Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings; use CAM::PDF;
    my $pdf = CAM::PDF->new("test.pdf"); # test.pdf is the existing pdf
    my $string = $pdf->getPageText(1);
    open (C, ">", "test.txt"); print C $string; # print extracted string
    
  2. or download this
    Failed to open filter FlateDecode (Text::PDF::FlateDecode)
    Unrecognized type in parseAny:
    1 £ý¢═«ý╩▓ØÎ▀O▒:♠÷n£Õ╩...
    
  3. or download this
    @INC=('C:/Perl/lib','C:/Perl/site/lib','.'); # THIS LINE IS ADDED
    use strict; use warnings; use CAM::PDF;
    my $pdf = CAM::PDF->new("test.pdf"); # test.pdf is the existing pdf
    my $string = $pdf->getPageText(1);
    open (C, ">", "test.txt"); print C $string; # print extracted string