运行脚本时出现以下错误:有人可以帮助我吗
Use of uninitialized value $user in scalar chomp at ./temp.pl line 38, <DATA> line 558.
Use of uninitialized value $modelName in scalar chomp at ./temp.pl line 39, <DATA> line 558.
Use of uninitialized value $Application in scalar chomp at ./temp.pl line 40, <DATA> line 558.
Use of uninitialized value $user in string eq at ./temp.pl line 42, <DATA> line 558.
代码如下,有人可以帮助我吗:
my ($user) = $ARGV[0];
my ($modelName) = $ARGV[1];
my ($Application) = $ARGV[2];
chomp($user);
chomp($modelName);
chomp($Application);
if ( ($user eq "") || ($modelName eq "") || ($Application eq "")) {
&usage;
}
sub usage {
print "\tUsage : $0 User ModelName Application\n";
exit (1);
}
最佳答案
程序需要命令行上的参数 - 用户、型号名称和应用程序,但您没有提供任何参数
无需chomp
从命令行传递的值,因为它永远不会以新行结束
你的代码最好这样写
usage() unless @ARGV == 3;
my ($user, $modelName, $Application) = @ARGV;
关于perl - Perl 中的 "Use of uninitialized value in scalar chomp",我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11822049/