小编Faz*_*lin的帖子

我试着写一个小的perl脚本来理解Getopt::Long.

以下是脚本:

#!/usr/bin/perl

use strict;
use Getopt::Long;

my $op_type = "";
my @q_users;

GetOptions (
  'query' => $op_type = "query",
  'create' => $op_type = "create",
  'modify' => $op_type = "modify",
  'delete' => $op_type = "delete",
  'user=s' => \@q_users
) or usage ("Invalid options.");

print "operation : $op_type\n";

当我运行此脚本时,如下所示:

$ ./all_opt.pl --query
operation : delete

我假设在我的程序中缺少某种破坏声明.我期待operation : query结果.

请让我知道我在这里缺少什么.

我试图用来logger记录我的脚本中的消息.我使用logger如下所示:

logger -p auth.notice -t "TEST" "$line"

如果$line有一些带连字符的字符串,例如:

line="-retries"

然后logger失败并出现错误:

logger: invalid option -- r
usage: logger [-is] [-f file] [-p pri] [-t tag] [-u socket] [ message ... ]

请帮我摆脱这个错误.我也尝试过:

logger -p auth.notice -t "TEST" "$(echo $line)"