Perl函数定义在图形处理脚本中的实用技巧

做图形设计时，经常要批量处理图片命名、格式转换或尺寸调整。虽然主流工具是Photoshop或Figma，但有些重复性任务用ref="/tag/134/" style="color:#643D3D;font-weight:bold;">脚本更省事。比如用Perl写个小工具，自动重命名导出的PNG文件，这时候就得靠自定义函数来组织代码。

函数让重复操作变简单

假设你每周都要把设计稿按模块拆成多个切图，然后加上版本号命名。手动改几十个文件名太累，写个Perl脚本能一键搞定。函数就是这个脚本的核心部件，把重命名逻辑封装起来，随时调用。

sub rename_images {
    my ($folder, $version) = @_;
    opendir(my $dh, $folder) or return;
    while (my $file = readdir($dh)) {
        next unless $file =~ /.png$/;
        my $new_name = $file;
        $new_name =~ s/(.+)\.png$/$1_v${version}.png/;
        rename "$folder/$file", "$folder/$new_name";
    }
    closedir($dh);
}

# 调用函数
rename_images("/Users/me/designs", "202404");

参数传递很灵活

函数定义用 sub 开头，后面跟名字和代码块。所有参数都存进 @_ 这个默认数组里，用 my 解构出来就行。你可以传路径、版本号，甚至回调规则，比如要不要加水印前缀，全都通过参数控制。

局部变量避免冲突

在函数里处理文件名时，总会临时生成新字符串。用 my 声明变量，确保它们只在当前函数有效。这样就算主程序也用了 $new_name，也不会互相干扰。设计稿多了，脚本复杂了，这招能少踩不少坑。

sub add_prefix {
    my ($name, $prefix) = @_;
    my $result = $prefix . '_' . $name;
    return $result;
}

my $final = add_prefix("header.png", "web");  # 得到 web_header.png

返回值直接用在流程中

函数处理完数据，return 把结果交回去。你可以把它嵌进其他语句，比如直接当成系统命令的参数。这样从读取文件到重命名再到移动位置，一串动作连贯执行，不用中间变量打断节奏。