找出一个文件中过长的行

往往，某些情况，例如源码，是不允许过长的行的，这个脚本可以用来找出一个文件中过长的行：

#!/usr/bin/perl


use strict;
use warnings;

use Getopt::Long;

my $max_length = 76;

GetOptions ("length=i" => \$max_length);

while (<>) {
    my $len = length;
    print "$len $. : $_" if $len >= $max_length;
}