Perl的文本处理

仲夏_mu

我要处理一个文本，比较大，多行多列。而且每一行中有的列不完全，也就是某列是空值，我要将有空值列的行删掉，我应该怎么处理？
一行一行的读？不知道怎么存数据，也不知道该怎么调用、、、
菜鸟，再也进行不下去了、、、

仲夏_mu

How can I do？
回复 1# 仲夏_mu


   

jason680

回复 2# 仲夏_mu

What do you want to do?

Would you give us an example or just keep the question for yourself
   

仲夏_mu

如果把文本内容存进数组，如何将一行设为一个数组，然后进行索引之类，索引后将相应列为空的行删掉。
假如一个类似的文件，去掉lala列为空值的行、、、、怎么做？怎么做？怎么做？！
ID name aihao lala
2        li        qiu       
42        w        ai        q
21        jw        wi       
12        wo        ai        qq

仲夏_mu

ID        name        aihao        lala
2        li        qiu       
42        w        ai        q
21        jw        wi       
12        wo        ai      q
这个可以吗？一个简单的例子，我的文件太大了，不好上传。
就是去掉lala列是空值的那两行。
我该怎么通过索引之类的去完成这个工作呢？回复 3# jason680


   

jason680

回复 5# 仲夏_mu

$ perl rm_empty.pl FILE
ID name aihao lala
42        w        ai        q
12        wo        ai        qq

$ cat FILE
ID name aihao lala
2        li        qiu      
42        w        ai        q
21        jw        wi      
12        wo        ai        qq

$ cat rm_empty.pl

use strict;
use warnings;

while(<>){
next if( split() < 4);
  print;
}

仲夏_mu

果然大神级，谢谢啦~回复 6# jason680


   

南武水寿

awk '{if(NF==4)print}' file回复 4# 仲夏_mu