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

原著是一个有趣的人,若有侵权,请通知删除