怎样分隔csv文件

freesiaSS

my $csv1 = 'atp1 CDS,CDS,"92,220","93,761","1,542",3,forward';
my $csv2 = 'atp1 exon 2,exon,"93,209","93,269",61,1,forward';

将上述两个字符串分隔成两个数组 my $csv1 split= @temp1:
                                                                    atp1 CDS
                                                                    CDS
                                                                   "92,220"
                                                                   "93,761"
                                                                   "1,542"
                                                                    3
                                                                    forward
my $csv2 split = @temp2:
                         atp1 exon 2
                         exon
                         "93,209"
                         "93,269"
                         61
                         1
                         forward

哪位大神能帮助我写这个正则表达式啊？

104359176

使用现成的完美解决方案, 用模块: cpan.org --> search CSV

freesiaSS

请问能否具体一点，我不明白，谢谢啦
回复 2# 104359176


   

104359176

就是使用模块,我帮你查一下:

1. use Text::CSV;
   
2. 
   
3. my @rows;
   
4. my $csv = Text::CSV->new ( { binary => 1 } )  # should set binary attribute.
   
5.                 or die "Cannot use CSV: ".Text::CSV->error_diag ();
   
6. 
   
7. open my $fh, "<:encoding(utf8)", "test.csv" or die "test.csv: $!";
   
8. while ( my $row = $csv->getline( $fh ) ) {
   
9.     $row->[2] =~ m/pattern/ or next; # 3rd field should match
   
10.     push @rows, $row;
    
11. }
    
12. $csv->eof or $csv->error_diag();
    
13. close $fh;
    
14. 
    
15. $csv->eol ("\r\n");
    
16. 
    
17. open $fh, ">:encoding(utf8)", "new.csv" or die "new.csv: $!";
    
18. $csv->print ($fh, $_) for @rows;
    
19. close $fh or die "new.csv: $!";

复制代码

首先要安装这个模块,如果是 activeperl + windows:

1. > ppm install Text::CSV

复制代码

如果这个不行,下面的办法在所有的平台上都OK:

1. > cpan
   
2. .....
   
3. > install Text::CSV
   

复制代码

安装好了以后,就可以执行上面的代码了,前提是你吧你的 CSV 内容写到文件中, 替换掉代码中的文件名.

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.     foreach (split (/,("[^"]*")?/)){
   
7.         print $_ ? "$_\n" : "";
   
8.     }
   
9. }
   
10. 
    
11. __DATA__
    
12. atp1 CDS,CDS,"92,220","93,761","1,542",3,forward
    
13. atp1 exon 2,exon,"93,209","93,269",61,1,forward
    

复制代码

perl abc.pl
-------------------------------------------------------
atp1 CDS
CDS
"92,220"
"93,761"
"1,542"
3
forward

atp1 exon 2
exon
"93,209"
"93,269"
61
1
forward

freesiaSS

强人，很简单的实现方法，非常感谢
回复 5# sunzhiguolu


   

freesiaSS

大神，谢谢你打这么多字，详细指导我，受教了！
回复 4# 104359176


   

华小飞_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $csv1 = 'atp1 CDS, CDS, "92,220" , "93,761", "1,542", 3, forward';
   
7. my $csv2 = 'atp1 exon 2, exon, "93,209", "93,269", 61, 1, forward';
   
8. my @items = ( \$csv1, \$csv2 );
   
9. foreach my $item (@items) {
   
10.         my @csv_temp = split /"/, ${$item};
    
11.         my @temp = map {
    
12.                 if (/^\d+,\d+/m) {
    
13.                         $_;
    
14.                 } else {
    
15.                         split /,/, $_;
    
16.                 }
    
17.         } @csv_temp;
    
18.         print $_, "   ", for @temp;
    
19. }

复制代码

仅供楼主参考咯~

唐归来

回复 5# sunzhiguolu
厉害！

   

麻烦了321

看看了。。。。。。。