perl - Perl 中的 "Use of uninitialized value in scalar chomp"

Question

运行脚本时出现以下错误:有人可以帮我解决这个问题吗

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);
}

Answer 1

该程序在命令行上需要参数 - 用户、模型名称和应用程序，而您没有提供

无需chomp从命令行传递的值，因为它永远不会以新行结尾

你的代码最好这样写

usage() unless @ARGV == 3;

my ($user, $modelName, $Application) = @ARGV;