忽略前兩行##中的perl

Question

全部。

我是編程中的新手，特別是在Perl中。我想跳過數據集中的前兩行。

這些是我的代碼。

while (<PEPTIDELIST>) { 
     next if $_ !=~ "##"; 
     chomp $_; 
     @data = split /\t/; 
     chomp $_; 
     next if /Sequence/; 
     chomp $_; 
    $npeptides++; 
# print "debug: 0: $data[0] 1: $data[1] 2: $data[2] 3: 
$data[3]  
\n" if ($debug); 
    my $pepseq = $data[1]; 
    #print $pepseq."\n"; 
    foreach my $header (keys %sequence) { 
    #print "looking for $pepseq in $header \n"; 
    if ($sequence{$header} =~ /$pepseq/) { 
     print "matched $pepseq in protein $header" if ($debug); 
     # my $in =<STDIN>; 

     if ($header =~ /(ENSGALP\S+)\s.+(ENSGALG\S+)/ ) { 
      print "debug: $1 $2 have the pep = $pepseq \n\n" if ( 
$debug); 
      my $lprot = $1; 
      my $lgene = $2; 
      $gccount{$lgene}++; 
      $pccount{$lprot}++; 
      # print "$1" if($debug); 
      # print "$2" if ($debug); 

       print OUT "$pepseq,$1,$2\n"; 
       } 
      } 
    } 

    my $ngenes = keys %gccount; 
    my $nprots = keys %pccount; 

某種程度上該肽不在輸出列表中。請幫助指出我哪裏出錯？

感謝

Answer 1

next if $_ !=~ "##";必須是如果你想跳過包含##隨時隨地他們行next if $_ =~ "##";

忽略這個謊言，如果$_匹配##

Answer 2

：

next if /##/; 

如果您只想跳過s與##撻：

next if /^##/; 

如果你總是想跳過前兩行，而不管內容：

next if $. < 3;