定义好了一个可以输出带颜色行号以及行数据的函数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: strin…