关于 glob() 的警告。默认版本基于 C-shell,会在空格处中断。如果您的文件名包含空格,请使用 File::Glob 中的 BSD 版本。
#!/usr/bin/perluse strict;use warnings;
use File::Glob qw( :bsd_glob );
foreach my $file (glob "*.xml") {my $new = substr($file, 0, -3) . "html";rename $file, $new; }
适用于使用版本控制的任何人,不仅仅是管理员。
1. 添加一个 critic 来检查提交。critic 不仅检查语法,还检查常见错误。
2. 添加一个 tidy 来检查提交。它将代码重新格式化为 The Style。这样,开发人员就不必浪费时间使其符合 The Style。
作者评论
关于 glob() 的警告。默认版本基于 C-shell,会在空格处中断。如果您的文件名包含空格,请使用 File::Glob 中的 BSD 版本。
#!/usr/bin/perl
use strict;
use warnings;
use File::Glob qw( :bsd_glob );
foreach my $file (glob "*.xml") {
my $new = substr($file, 0, -3) . "html";
rename $file, $new;
}
适用于使用版本控制的任何人,不仅仅是管理员。
1. 添加一个 critic 来检查提交。critic 不仅检查语法,还检查常见错误。
2. 添加一个 tidy 来检查提交。它将代码重新格式化为 The Style。这样,开发人员就不必浪费时间使其符合 The Style。