在终端输入： ./change 源文件名 目标文件名 即可将源文件中的行号滤去。 ^_^方便运行教程中的一些带行号的程序 比如 1: #!/usr/bin/perl -w 2: 3: $radius=50 4: 5: $area=3.14159*($radius ** 2) 6: print $area 经过处理后变成 #!/usr/bin/perl -w $radius=50