解释和修改Perl一行程序？
我在网上找到了以下Perl“one liner”脚本，所以不是我的：解释和修改Perl一行程序？,perl,email,Perl,Email,我在网上找到了以下Perl“one liner”脚本，所以不是我的： perl -lsne ' /$today.* \[([0-9.]+)\]:.+dovecot_(?:login|plain):([^\s]+).* for (.*)/ and $sender{$2}{r}+=scalar (split / /,$3) and $sender{$2}{i}{$1}=1; END { foreach $sender(keys %sender){
perl -lsne '
/$today.* \[([0-9.]+)\]:.+dovecot_(?:login|plain):([^\s]+).* for (.*)/
and $sender{$2}{r}+=scalar (split / /,$3)
and $sender{$2}{i}{$1}=1;
END {
foreach $sender(keys %sender){
printf"Recip=%05d Hosts=%03d Auth=%s\n",
$sender{$sender}{r},
scalar (keys %{$sender{$sender}{i}}),
$sender;
}
}
' -- -today=$(date +%F) /var/log/exim_mainlog | sort
$ perl -MO=Deparse -lsne '/$today.* \[([0-9.]+)\]:.+dovecot_( ...
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE:
while ( defined($_ = <ARGV>) ) {
chomp $_;
$sender{$2}{'i'}{$1} = 1 if
/$today.* \[([0-9.]+)\]:.+dovecot_(?:login|plain):([^\s]+).* for (.*)/
and $sender{$2}{'r'} += scalar split(/ /, $3, 0);
sub END {
foreach $sender (keys %sender) {
printf "Recip=%05d Hosts=%03d Auth=%s\n",
$sender{$sender}{'r'},
scalar keys %{$sender{$sender}{'i'};}, $sender;
}
}
}
-e syntax OK
$ perl -MO=Deparse -lsne '/$today.* \[([0-9.]+)\]:.+dovecot_( ...
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE:
while ( defined($_ = <ARGV>) ) {
chomp $_;
$sender{$2}{'i'}{$1} = 1 if
/$today.* \[([0-9.]+)\]:.+dovecot_(?:login|plain):([^\s]+).* for (.*)/
and $sender{$2}{'r'} += scalar split(/ /, $3, 0);
sub END {
foreach $sender (keys %sender) {
printf "Recip=%05d Hosts=%03d Auth=%s\n",
$sender{$sender}{'r'},
scalar keys %{$sender{$sender}{'i'};}, $sender;
}
}
}
-e syntax OK
~$ perl -h|perl -ne 'print if /^\s+(-l|-s|-n|-e)/'
-e program one line of program (several -e's allowed, omit programfile)
-l[octal] enable line ending processing, specifies line terminator
-n assume "while (<>) { ... }" loop around program
-s enable rudimentary parsing for switches after programfile
~$ perldoc perlrun
~$ perl -h|perl -ne 'print if /^\s+(-l|-s|-n|-e)/'
-e program one line of program (several -e's allowed, omit programfile)
-l[octal] enable line ending processing, specifies line terminator
-n assume "while (<>) { ... }" loop around program
-s enable rudimentary parsing for switches after programfile
~$ perldoc perlrun
与OP中的问题无关，我知道这并不是一个完整的答案，并没有我现在能够添加的那么多，所以如果这个帖子/答案违反了任何so规则，版主应该删除它。Thx.-l、-s、-n和-e记录在每个$sender中。。。将$sender别名添加到foreach迭代的列表的每个元素。但是我想你可能问过%sender，它的元素是由赋值运算符+=和=.正则表达式？：login | plain匹配login和plain。有一种编写多行一行Perl程序的方式。虽然对自己这样做是可以的，就像你可以用一个字母标识符编写没有插入的代码，并且在你的私人时间里不严格使用或刷牙一样，我认为让别人接受这样的东西是非常不礼貌的。是的@Xanagandr我意识到这不是你自己的代码，我很同情。有人在以你为代价炫耀，我这样说是希望其他人停止这样做。除其他事项外，它非常不可移植，并且会对Windows用户造成唾沫。@ikegami感谢您在这方面的两个输入。-l、-s、-n和-e都记录在perlruformeach$sender中。。。将$sender别名添加到foreach迭代的列表的每个元素。但是我想你可能问过%sender，它的元素是由赋值运算符+=和=.正则表达式？：login | plain匹配login和plain。有一种编写多行一行Perl程序的方式。虽然对自己这样做是可以的，就像你可以用一个字母标识符编写没有插入的代码，并且在你的私人时间里不严格使用或刷牙一样，我认为让别人接受这样的东西是非常不礼貌的。是的@Xanagandr我意识到这不是你自己的代码，我很同情。有人在以你为代价炫耀，我这样说是希望其他人停止这样做。除其他事项外，它非常不可移植，并且会对Windows用户产生唾沫。@ikegami感谢这两方面的投入。@mob:谢谢。我离任何类型的命令行都不远，也不能确定是否会扩展。在我看来，整个事情似乎有点不对劲。regex模式以$today开头，这是未定义的。在那之后，任何东西都不能正常工作。$today是由perl-s设置的…--今天=$date%F@mob非常感谢你的回答。我能感觉到我通过缩进更好地理解了这段代码。谢谢！我不知道这是怎么解释的。例如，您将-l替换为BEGIN{$/=\n；$\=\n；}，这更为神秘。你也不包括-s、：login | plain或$sender，尽管这是OP提出的三个问题@暴民：谢谢你。我离任何类型的命令行都不远，也不能确定是否会扩展。在我看来，整个事情似乎有点不对劲。regex模式以$today开头，这是未定义的。在那之后，任何东西都不能正常工作。$today是由perl-s设置的…--今天=$date%F@mob非常感谢你的回答。我能感觉到我通过缩进更好地理解了这段代码。谢谢！我不知道这是怎么解释的。例如，您将-l替换为BEGIN{$/=\n；$\=\n；}，这更为神秘。你也不包括-s、：login | plain或$sender，尽管这是OP提出的三个问题！我不知道，但是对于Perl初学者来说，有一些宝贵的信息。我很感谢您的努力。我不知道，但是对于Perl初学者来说，这里有一些宝贵的信息。我感谢你的努力。