perl - 在 Perl 中使用 argv[0] 拒绝空白查询

标签 perl argv

我试图在输入空白查询时使脚本退出。根据我的阅读,这段代码应该可以正常工作,但似乎不想这样做,因为“”不是数字。解决方法是什么?

if(($#ARGV < 0) || ($ARGV[0] == "")){
  print "$0: Enter a query.\n";
  exit 1;
}

澄清一下,

perl run.pl "query"

应该可以工作,同时

perl run.pl ""

应该提示输入字符串。

最佳答案

尝试

if(($#ARGV < 0) || ($ARGV[0] eq "")){
  print "$0: Enter a query.\n";
  exit 1;
}

eq 用于字符串比较。

关于perl - 在 Perl 中使用 argv[0] 拒绝空白查询,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14657720/

相关文章:

perl - 分配给 $!在 Perl 中?

perl - 如何使用 Perl 的 Net::LDAP 进行复杂查询?

mysql - 如何使用 MYSQL 数据在 perl 脚本中创建键值 JSON 响应

c++ - 如何使用 argv 作为变量

c - argv 读取 C 中不相关的字符

创建 argv[] 以将参数发送到另一个函数

c++ - 防止 C++ 异常使我的 Perl 脚本崩溃

perl - 如何在运行时获取子程序的签名?

c - 指针的行为;字符 ** argv

c - argv 中的字符串是否可以修改?