我使用过PDF :: Reuse.这让它变得如此简单,甚至都不好笑.以下是我的一个脚本的相关代码段:
while ( my $line = <$page_list> ) {
chomp $line;
my ($class, $drug, $page) = split ' ', $line;
my $dir = canonpath( catfile $OUTPUT_DIR, $class );
mkdir $dir unless -e $dir;
my $target = canonpath( catfile $dir, "$drug.pdf" );
prFile( $target );
prCompress( 1 );
prDoc( $INPUT_PDF, $page, $page + 1 );
prEnd();
}
Run Code Online (Sandbox Code Playgroud)