Perl循环语句在图形批处理中的实用技巧

做图形设计时，经常要处理大量图片文件，比如批量重命名、转换格式或调整尺寸。虽然有图形软件能完成这些操作，但面对几百张图，手动点鼠标显然不现实。这时候，写个小脚本自动跑一遍就省事多了。ref="/tag/2034/" style="color:#2B406D;font-weight:bold;">Perl 虽然不是专为图形设计而生，但它处理文本和文件的能力很强，配合循环语句，能轻松搞定批量任务。

for 循环：按序处理文件列表

假设你有一堆 PNG 图片，名字是 image_001.png 到 image_100.png，想把它们全部转成 JPG 格式。可以用 for 循环遍历编号：

for my $i (1..100) {
    my $png = sprintf("image_%03d.png", $i);
    my $jpg = sprintf("image_%03d.jpg", $i);
    # 假设用系统命令转换
    system("convert", $png, $jpg) if -f $png;
}

这段代码会从 1 跑到 100，自动生成文件名并调用 ImageMagick 的 convert 命令进行转换。只要安装了相关工具，几秒就能处理完所有图片。

foreach 遍历目录中的图像文件

更常见的情况是，你根本不知道文件有多少个，直接读取整个目录更方便。这时用 foreach 配合 glob 模式就很顺手：

my @files = glob("*.tif");
foreach my $file (@files) {
    next unless -f $file;
    my $output = $file;
    $output =~ s/\.tif$/.jpg/i;
    system("convert", $file, "-resize", "800x600", $output);
}

这个脚本会找出当前目录下所有 .tif 文件，逐个缩放尺寸并保存为 JPG。设计师常遇到客户给的 TIFF 太大，网页用不了，这种小脚本一跑，马上就能交差。

while 实现条件控制：动态处理队列

有时候图片处理需要根据状态决定是否继续。比如监控某个上传目录，只要有新图进来就自动加水印。while 可以配合文件检测实现简单监听：

while (1) {
    my @new_images = grep { /\.jpg$/ } glob("incoming/*.jpg");
    foreach my $img (@new_images) {
        system("composite", "-gravity", " southeast", "logo.png", $img, $img);
        # 处理完移走，避免重复
        system("mv", $img, "done/");
    }
    sleep(10); # 每10秒检查一次
}

这就像一个迷你自动化流水线，适合接外包时长期挂机用。虽然不能替代专业工作流工具，但临时救急非常有效。

Perl 的循环语句语法简洁，结合系统命令能快速构建图形处理小工具。不需要深入学习整套语言，掌握这几个基本结构，就能让电脑替你干活，腾出时间专注真正需要创意的设计部分。