创建用于批处理过程文件的perl脚本
创建用于批处理过程文件的perl脚本
提问于 2011-03-18 02:53:05
我有这行代码：
convert 1234_Page_1_....png 1234_Page_2_....png output.pdf 这将这些特定的pngs合并到一个pdf中(使用ImageMagick)。我有很多这种格式的文件。我想执行这个合并/转换-pdf的行动，对文件有相同的号码之前的“页面”。有时需要转换的页面超过两页。
我希望在我可以在Windows上运行的perl脚本中完成这个任务。
谢谢你，杰克
Stack Overflow用户
回答已采纳
发布于 2011-03-18 04:30:15
如果您想在必要的情况下调用convert(1)几次：
#! /usr/bin/perl
use strict;
use warnings;
my %processed = ();
for my $prefix (map { /^(\d+)/ } glob('[1-9]*_Page_*.png')) {
next if $processed{$prefix}++;
system("convert ${prefix}_Page_*.png ${prefix}_output.pdf");
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/5347553
复制相关文章
相似问题
腾讯云开发者
