Perl输出带颜色行号或普通输出行

最新推荐文章于 2022-06-08 17:19:18 发布

转载最新推荐文章于 2022-06-08 17:19:18 发布 · 362 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/f-ck-need-u/p/10791792.html

本文介绍了一个使用Perl编写的脚本，该脚本能够读取文件内容，并根据参数选择是否输出带有颜色行号的数据。通过定义函数print_with_line_num实现行号和字符串的彩色输出，以及测试函数f来展示不同输出方式的效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

定义好了一个可以输出带颜色行号以及行数据的函数print_with_line_num，f()是测试函数。在f()函数中，读取文件并输出读取的每一行数据，但根据参数选项决定是普通输出行还是同时输出带颜色行号的行数据。

这可以当作是偏函数、闭包、作用域的一个用法示例。

脚本内容如下：

#!/usr/bin/perl -w

use strict;
use 5.010;


# print string with colored line_num
# arg1: line num
# arg2: string to print
sub print_with_line_num {
    eval 'use Term::ANSIColor';

    my $line_num = shift;
    my $string = shift;

    my $color = 'bold yellow';

    print colored($line_num, $color), ":", "$string";
}


# test function
# arg1: filename for read and print
# arg2: a bool to control whether print line num
sub f {
    my $filename = shift;

    # arg: print_line_num or not?(bool)
    my $print_line_num = shift;

    # initialize line_num
    my $line_num = 1;

    # define a printer, according to the bool of print_line_num,
    # choose how to print string
    my $myprinter;
    {
        if($print_line_num){
            # print line num
            # specify the arg1 to line_num
            $myprinter = sub { print_with_line_num "$line_num", @_; }
        } else {
            # don't print line num,
            # so make a simple wrapper for builtin print function
            $myprinter = sub { print @_; };
        }
    }

    open my $fh, "$filename" or die "open failed: $!";
    while(<$fh>){
        $myprinter->($_);
        $line_num++;
    }
}

if ($ARGV[0] eq "-n"){
    f($ARGV[1], 1);   # print every line with colored line num
} else {
    f($ARGV[0]);      # print every line normally
}

下面是测试效果：

普通输出/etc/hosts文件行：

输出带颜色行号的/etc/hosts文件行：

转载于:https://www.cnblogs.com/f-ck-need-u/p/10791792.html