我的剧本：
#!/usr/local/bin/perl
use POSIX qw(strftime);
use strict;
use warnings;
use Getopt::Long;
##input parameters
my ($artifact,$package_id);
GetOptions("artifact=s" =>\$artifact,
"package_id=i" => \$package_id);
if($artifact =~ /\.zip$/i)
{
chdir("/apps/checkout/artifactory/xxkintana/$package_id");
unzip $artifact;
}
跑 ：
./script.pl 4370177 test-1.0.zip
错误：
在./script.pl第21行的模式匹配（m //）中使用未初始化的值。
请帮助我，以了解其是否为zip文件。 输入文件，如test-1.0.zip
-Thnaks
您正在检查$artifact是否以.zip结尾，但是在调用脚本时实际上并没有设置它。
./script.pl --package_id=4370177 --artifact=test-1.0.zip
我建议清理选项的解析，以便您实际上进行一些错误检查。
#!/usr/local/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);
use Getopt::Long;
##input parameters
GetOptions(
"artifact=s" => \my $artifact,
"package_id=i" => \my $package_id,
) or usage();
usage("Unknown arguments: @ARGV\n") if @ARGV;
usage("--artifact is required\n") if ! $artifact;
usage("--package_id is required\n") if ! $package_id;
if ($artifact =~ /\.zip$/i) {
chdir("/apps/checkout/artifactory/xxkintana/$package_id");
unzip $artifact;
}
sub usage {
my $message = shift;
die "${message}Usage: ./$0 --artifact=<artifact> --package_id=<id>\n";
}
最后，我可能会进行其他错误检查，以确保要尝试chdir的目录存在， $artifact存在，并针对那些以及您可能想到的更多情况抛出适当的错误消息。