Help for this page

Select Code to Download


  1. or download this
        my $pdf = PDF->new("$path/$aa");
  2. or download this
    foreach my $aa (@all) {
    
...
        print "$aa is corrupted\n";
    }
}
  3. or download this
    # from PDF/Parse.pm

sub IsaPDF {
    return ($_[0]->{Header} != undef) ;
}