請教：提取含內(nèi)容較多的列

tingshuibanxia

假如文本A各列以tab分隔，其中最后一列包含多個以“；”隔開的內(nèi)容，并且內(nèi)容間有空格:

11    000    3DS    +    S_I "C1,T_,2/";ID "D,34";SSS "TTT"
.....
  
假如要提取第2，3列和最后一列中的下劃線內(nèi)容（不要雙引號），分為4列，輸出到文件B，列重新排序，并且加上各列的名稱，用數(shù)組可以實現(xiàn)嗎？

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

sunzhiguolu

提取第2，3列和最后一列中的下劃線內(nèi)容（不要雙引號），分為4列，輸出到文件B，列重新排序，并且加上各列的名稱，用數(shù)組可以實現(xiàn)嗎？

1.> 列重新排序看出來了, 并且加上各列的名稱. 如何理解?
2.> 用數(shù)組可以實現(xiàn)嗎？ 沒明白是啥意思!

tingshuibanxia

回復(fù) 2# sunzhiguolu

輸出就是上面的結(jié)果，每列分別以AA,BB,CC,DD作為名稱。

假如用數(shù)組的話，原始文件讀進@A:
while(<IN>){
@A = split("\t",$_);

}  

提取內(nèi)容到@B

最后一列不知道怎么提取內(nèi)容。。。。還有每列新命名這樣寫可以嗎？ 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. }
   

復(fù)制代碼

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

tingshuibanxia

回復(fù) 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

回復(fù) 5# tingshuibanxia
個別地方, 根據(jù)你自己的實際情況適當修改.

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. }
    

復(fù)制代碼

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


   

tingshuibanxia

回復(fù) 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. }

復(fù)制代碼

僅供參考~

華小飛_Perl

回復(fù) 5# tingshuibanxia
復(fù)雜的問題簡單化就好，不必在意是否“；”分隔，能正確輸出就行，僅發(fā)表個人建議~


   

華小飛_Perl

回復(fù) 5# tingshuibanxia
字符集前面要加上“\”哦，\w與\s