Perl单行命令 四 - Numbering

头像
yexiaobai
    阅读 6 分钟

    注：该文写作来自于 perl-one-liners-explained 这本书，感兴趣的童鞋可以搜索，然后去购买，大概 9 美元还是多少来着。该作者还有 awk 和 sed 系列的单行命令书。

    以上所有的测试都以这个test.pl为准

    #!/usr/bin/perl
use strict;
use List::MoreUtils qw(uniq);
#use Data::Dumper;
open(FD,"1.txt")||die("Can not open the file!$!n");

my $line;
while($line=<FD>){
    chomp;

    my @log=split(/####/,$line);
    $log[3] =~ s/ *$//;
    if ($log[3] eq '' ) {
        print "insert into 2car_query ( date,ip,mode,querytime) values ( \'$log[0]\',\'$log[1]\',\'$log[2]\',\'$log[4]\');\n";
    }else {
        my @operation=split(/\&/,$log[3]);
        @operation= uniq @operation;

        my %hash;
        foreach (@operation) {
           chomp;
           my @tmp = split (/\=/,$_);

           $hash{$tmp[0]} = $tmp[1];


        }
        while (my ($key, $value) = each(%hash)) {

            print "$key => $value\n";
            push @key,$key;
            push @value,$value;
        }
        foreach (@key) {
            if (s/year/year1/) {
            last;
        }
        my $key_new= join ",",@key;
        my $value_new = join '\',\'',@value;
        print "insert into 2car_query ( date,ip,mode,querytime,$key) values ( \'$log[0]\',\'$log[1]\',\'$log[2]\',\'$log[4]\',\'$value\');\n"
    }
}%

    给一个文件中的所有行编号

    perl -pe '$_ = "$. $_"' test.pl

    结果为：

    1 #!/usr/bin/perl
2 use strict;
3 use List::MoreUtils qw(uniq);
4 #use Data::Dumper;
5 open(FD,"1.txt")||die("Can not open the file!$!n");
6
7 my $line;
8 while($line=<FD>){
9   chomp;
10
11     my @log=split(/####/,$line);
12     $log[3] =~ s/ *$//;
13     if ($log[3] eq '' ) {
14         print "insert into 2car_query ( date,ip,mode,querytime) values ( \'$log[0]\',\'$log[1]\',\'$log[2]\',\'$log[4]\');\n";
15     }else {
16         my @operation=split(/\&/,$log[3]);
17         @operation= uniq @operation;
18
19         my %hash;
20         foreach (@operation) {
21         chomp;
22         my @tmp = split (/\=/,$_);
23
24         $hash{$tmp[0]} = $tmp[1];
25
26
27      }
28      while (my ($key, $value) = each(%hash)) {
29
30          print "$key => $value\n";
31          push @key,$key;
32             push @value,$value;
33      }
34      foreach (@key) {
35             if (s/year/year1/) {
36             last;
37         }
38         my $key_new= join ",",@key;
39         my $value_new = join '\',\'',@value;
40         print "insert into 2car_query ( date,ip,mode,querytime,$key) values ( \'$log[0]\',\'$log[1]\',\'$log[2]\',\'$log[4]\',\'$value\');\n"
41     }
42 }%

    其中会把空行也编号，在这条语句中 -p 参数的作用是相当于对 test.pl 做循环处理并且打印。-e 就是把后面的作为一个 perl 程序执行。 $. 表示行号。 $_ 表示当前处理行。上面这行程序的意思就是把 $. 和 $_的值赋给 $_变量，然后输出，结果就如上，即行号+程序内容

    仅仅只给文件中的非空行编号

    perl -pe '$_ = ++$a." $_" if /./' test.pl

    得出的结果如下：

    1 #!/usr/bin/perl
2 use strict;
3 use List::MoreUtils qw(uniq);
4 #use Data::Dumper;
5 open(FD,"1.txt")||die("Can not open the file!$!n");

6 my $line;
7 while($line=<FD>){
8   chomp;

9     my @log=split(/####/,$line);
10     $log[3] =~ s/ *$//;
11     if ($log[3] eq '' ) {

    可以看到编号5和编号6之间的空行未被编号。这里我们使用 if 条件语句来作判断，当 if 中的条件为真时，就执行 $_ = ++$a." $_" 这个命令，为假时，就不执行，这个命令行中的 if 的判断语句 /./ 作用就是匹配文件中的任何字符，换行除外（即空行除外）,这个 ++$a 表示的是非空行，当条件匹配的时候非空行自加，其中 $a 后面的 . 表示的是连接符。

    在一个文件中，仅仅编号和打印非空行

    perl -ne 'print ++$a." $_" if /./' test.pl

    输出结果如下：

     #!/usr/bin/perl
2 use strict;
3 use List::MoreUtils qw(uniq);
4 #use Data::Dumper;
5 open(FD,"1.txt")||die("Can not open the file!$!n");
6 my $line;
7 while($line=<FD>){
8   chomp;
9     my @log=split(/####/,$line);
10     $log[3] =~ s/ *$//;
11     if ($log[3] eq '' ) {

    可以看到，空行未输出。
    其中命令参数 -n 的作用不像 -p 那样有打印输出功能，因此在这个语句中必须要使用 print 命令来输出内容。因为这个print不是对程序循环打印的，只是在匹配的时候打印下，因此输出的都是匹配到的非空行。

    在一个文件中，编号所有行，但是仅仅打印非空行

    perl -pe '$_ = "$. $_" if /./' test.pl

    输出的结果如下：

    1 #!/usr/bin/perl
2 use strict;
3 use List::MoreUtils qw(uniq);
4 #use Data::Dumper;
5 open(FD,"1.txt")||die("Can not open the file!$!n");

7 my $line;
8 while($line=<FD>){
9   chomp;

    其中，空行也给标记了。因为这个没有对非空行做自增。

    给符合模式匹配的行编号，并且打印其他未作编号的

    perl -pe '$_ = ++$a." $_" if /#/' test.pl

    结果为：

    1 #!/usr/bin/perl
use strict;
use List::MoreUtils qw(uniq);
2 #use Data::Dumper;
open(FD,"1.txt")||die("Can not open the file!$!n");

my $line;
while($line=<FD>){
    chomp;

3     my @log=split(/####/,$line);

    编号并且打印那些仅仅符合模式匹配的行

    perl -ne 'print ++$a." $_" if /#/' test.pl

    结果为：

    1 #!/usr/bin/perl
2 #use Data::Dumper;
3     my @log=split(/####/,$line);

    用经典格式输出编号所有行

    perl -ne 'printf "%-5d %s", $., $_' test.pl

    结果为：

    1     #!/usr/bin/perl
2     use strict;
3     use List::MoreUtils qw(uniq);
4     #use Data::Dumper;
5     open(FD,"1.txt")||die("Can not open the file!$!n");
6
7     my $line;
8     while($line=<FD>){
9       chomp;

    打印一个文件的总行数（相当于 wc -l）

    perl -lne 'END { print $. }' test.pl

    结果为：

    42

    对用 wc -l ```` 和 上面这个对比了下计算性能，wc -l``` 更加消耗 cpu ，而上面的语句执行时间更长点。各位有兴趣的可以拿几个 G 的文件计算对比下。

    这个 END 块是 perl 从 AWK 参考的而来的一个特性。这个 END 块会再程序执行完成后再生效。参数 -l 的作用是通过使用一个换行为输出的记录做分割用，这样我们就不用使用 “$.\n” 了。
    还有一个类似的做法是

    perl -le 'print $n=()=<>' test.pl

    这是一个比较有技巧的命令行。如果你知道 perl 的上下文的概念的话，就非常容易理解了。在这个命令行中 ()=<> 这个引起了钻石操作符被转换成列表上下文。它让钻石操作符把整个文件读取进了一个列表。然后我们把列表分配给变量 $n，因为 $n 是一个标量，因此列表上下文被转换成标量上下文。把列表上下文转换成标量上下文的结果是返回列表的元素数量。因此 $n=()=<> 等于文件的行数。同时这个也和如下语句很像：

    perl -le 'print scalar(()=<>)' test.pl

    还有如下也是一样的：

    perl -ne '}{print $.' test.pl

    参数 -n 的作用相当于一个 while(<>) { }循环处理程序。而 }{ 操作符（eskimo operator 这个不知道咋翻译。）的作用就是跳出这个循环，相当于如下语句：

    while (<>) {
}{ # eskimo operator here
print $.;
}

    打印文件中非空行的行数

    perl -le 'print scalar(grep{/./}<>)' test.pl

    结果为：

    37

    打印文件中空行的行数

    perl -lne '$a++ if /^$/; END {print $a+0}' test.pl

    结果为：

    5

    我们还可以把程序修改成

    perl -le 'print scalar(grep{/^$/}<>)' test.pl

    还可以用 ~~：

    perl -le 'print ~~grep{/^$/}<>' test.pl

    这个操作符相当于做了两次位移操作，使 grep 在标量上下文中被执行

    注：后面这两个版本不是非常高效的，它使把整个文件读取进内存来操作的。第一个版本是一行行的读取。

    打印文件中符合匹配模式的行数（等价与 grep -c）

    perl -lne '$a++ if /regex/; END {print $a+0}' test.pl

    给所有行标记单词数（打印出来好杂乱）

    perl -pe 's/(\w+)/++$i.".$1"/ge' test.pl

    部分结果为：

    #!/1.usr/2.bin/3.perl
4.use 5.strict;
6.use 7.List::8.MoreUtils 9.qw(10.uniq);
#11.use 12.Data::13.Dumper;
14.open(15.FD,"16.1.17.txt")||18.die("19.Can 20.not 21.open 22.the 23.file!$!24.n");

25.my $26.line;
27.while($28.line=<29.FD>){
    30.chomp;

    这个 e 的参数的作用是让 perl 把 s/match/repl/ 表达式作为代码运行。g 表示全局的意思。$1 就是等于 \w+ 匹配到的结果。

    每行独立的打印单词数

    perl -pe '$i=0; s/(\w+)/++$i.".$1"/ge' test.pl

    部分结果为：

    #!/1.usr/2.bin/3.perl
1.use 2.strict;
1.use 2.List::3.MoreUtils 4.qw(5.uniq);
#1.use 2.Data::3.Dumper;
1.open(2.FD,"3.1.4.txt")||5.die("6.Can 7.not 8.open 9.the 10.file!$!11.n");

1.my $2.line;
1.while($2.line=<3.FD>){
    1.chomp;

    用他们数字的位置替换所有的单词

    perl -pe 's/(\w+)/++$i/ge' test.pl

    部分结果如下：

    #!/1/2/3
4 5;
6 7::8 9(10);
#11 12::13;
14(15,"16.17")||18("19 20 21 22 23!$!24");

    注：下一系列是单行命令计算相关。敬请期待。

    perl-命令行perl
    yexiaobai
    4.8k 声望875 粉丝

    就是不告诉你 O(∩_∩)O哈哈~。

    « 上一篇
    Go 程序的性能调试问题 - CPU 篇
    下一篇 »
    基于 Docker 构建 Flume -- Part1

    引用和评论

    推荐阅读
    头像
    K8S client-go Patch example

    yexiaobai赞 2阅读 14.4k评论 1

    0 条评论
    得票最新