perl提取特定文本内容

2025-03-05 03:23:36

推荐回答（1个）

回答1：

@lines是一个数组，里面是文件中的每一行的内容。对该数据的操作方法是

foreach $line (@lines)   # 循环读取每一行
{
   ....   # $line是一行的内容
}

读到每一行后，对该行进行操作，使用split函数进行拆分。对于不行的文件格式，有不同的拆分方法，你应该看一行列的拆分方式，比如是用的逗号分隔，还是制表符分隔。拆分方法如下：

@cols = split(/[,\t]/, $line)   # 对$line进行拆分，拆分依据是逗号或制表符

然后得到的@cols数组就是每一列了，第一列就是$cols[0]，第二列是$cols[1]，然后你就可以将你的结果输出到OUT了。

不知道你基础如何，而且对你的文本格式不清楚，你需要的输出也描写的不清楚，所以不能给你整个完整程序了。如果还有问题请描写清楚再问。