请教：提取含内容较多的列

tingshuibanxia

假如文本A各列以tab分隔，其中最后一列包含多个以“；”隔开的内容，并且内容间有空格:

11    000    3DS    +    S_I "C1,T_,2/";ID "D,34";SSS "TTT"
.....
  
假如要提取第2，3列和最后一列中的下划线内容（不要双引号），分为4列，输出到文件B，列重新排序，并且加上各列的名称，用数组可以实现吗？

AA    BB    CC    DD
C1,T_,2/    000    D,34    3DS  
.....  

sunzhiguolu

提取第2，3列和最后一列中的下划线内容（不要双引号），分为4列，输出到文件B，列重新排序，并且加上各列的名称，用数组可以实现吗？

1.> 列重新排序看出来了, 并且加上各列的名称. 如何理解?
2.> 用数组可以实现吗？ 没明白是啥意思!

tingshuibanxia

回复 2# sunzhiguolu

输出就是上面的结果，每列分别以AA,BB,CC,DD作为名称。

假如用数组的话，原始文件读进@A:
while(<IN>){
@A = split("\t",$_);

}  

提取内容到@B

最后一列不知道怎么提取内容。。。。还有每列新命名这样写可以吗？ print OUT "AA\tBB\tCC\tDD\t";

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $_ = qq (11    000    3DS    +    S_I "C1,T_,2/";ID "D,34";SSS "TTT");
   
6. my @aHead = qw /AA BB CC DD/;
   
7. if (m/\A\S+\s+(?<BB>\d+)\s+(?<DD>\w+)[^"]+"(?<AA>[^"]+)"[^"]+"(?<CC>[^"]+)/){
   
8.     print "@aHead\n@+{@aHead}\n";
   
9. }
   

复制代码

perl abc.pl
------------------------------------
AA BB CC DD
C1,T_,2/ 000 D,34 3DS

tingshuibanxia

回复 4# sunzhiguolu


  看不太懂啊。。。我写了一个代码好像有问题，可以帮忙看下吗？
#!/usr/bin/perl -w
use strict;

open (IN, "<", "A.txt" or die $!;
open (OUT,">", "B.txt') or die $!;

my @B;

while (<IN>{
    chomp;
    my (undef, $a, $b, undef, $c) = split("\t", $_);
    @tmp = split (";", $c);
    my $c1 = $tmp[0];
    my $c2 = $tmp[1];                 
    $c1 =~ m/w+,s+,^"[+]"/;                              
    $c2 =~ m/w+,s+,^"[+]"/;
    push (@B, $c1, $a, $c2, $b)
    print OUT "AA\tBB\tCC\tDD\t';
    print OUT join("\t", @B);
}

close IN;
close OUT;

sunzhiguolu

回复 5# tingshuibanxia
个别地方, 根据你自己的实际情况适当修改.

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. while (<>){
   
5.     chomp;
   
6.     my (undef, $a, $b, undef, $c) = split (/\t/, $_);
   
7.     my @aT = split (";", $c);
   
8.     my $c1 = $aT[0];
   
9.     my $c2 = $aT[1];
   
10.     ($c1) = $c1 =~ m/"([^"]+)"/;
    
11.     ($c2) = $c2 =~ m/"([^"]+)"/;
    
12.     print "AA\tBB\tCC\tDD\n";
    
13.     print join ("\t", $c1, $a, $c2, $b), "\n";
    
14. }
    

复制代码

perl abc.pl a
----------------------------------
AA      BB      CC      DD
C1,T_,2/        000     D,34    3DS


   

tingshuibanxia

回复 6# sunzhiguolu


    thank u sooooooooooo much~

华小飞_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. print "AA \t BB \t CC \t DD\n";
   
7. while (<>) {
   
8.         chomp;
   
9.         my @list = split /\t+/, $_;
   
10.         my @result = split /"/, $list[4];
    
11.         print $result[1], "\t", $list[1], "\t", $result[3], "\t", $list[2], "\n";
    
12. }

复制代码

仅供参考~

华小飞_Perl

回复 5# tingshuibanxia
复杂的问题简单化就好，不必在意是否“；”分隔，能正确输出就行，仅发表个人建议~


   

华小飞_Perl

回复 5# tingshuibanxia
字符集前面要加上“\”哦，\w与\s