使用perl脚本语言处理文本文件

前段时间，因为工作需要，使用perl脚本对一个txt文件做了一些处理。

需要处理的txt文件inputfile.txt结构是：
#col1 col2 col3 col4 col5
1_1   1_2  1_3  1_4  1_5
2_1   2_2  2_3  2_4  2_5
3_1   3_2  3_3  3_4  3_5
4_1   4_2  4_3  4_4  4_5
5_1   5_2  5_3  5_4  5_5

处理之后的txt文件outfile.txt结构是：
#col1 col2 col3 col4 col5
1_1,1_2,1_3,1_4,1_5
2_1,2_2,2_3,2_4,2_5
3_1,3_2,3_3,3_4,3_5
4_1,4_2,4_3,4_4,4_5
5_1,5_2,5_3,5_4,5_5

 

这个处理是非常简单的，很快就解决了问题。为了简单介绍一下perl脚本的使用方式，故借用这个例子，对其实现过程做以介绍，希望能起到抛砖引玉的作用。

 

脚本的实现代码如下所示，其中添加了不少注释以解释实现过程。

 

#$numArgs：numArgs前面加上“$”表示声明变量。
$numArgs = @ARGV; #获取传递参数的个数，注意，需要除去这两个：perl.exe和perl_do.pl
if(numArgs != 3)
{
    print "Usage: perl.exe perl_do.pl inputfile.txt outfile.txt inputfile_cols";#输出信息的一种方式
    exit(1);