工作不正常

Question

的Perl格格功能我有一個包含這樣的事情

name: A id: B cl: C 
name: D id: E cl: F 
name: I id: G cl: K 

我正在用grep內容CL後一個文件並將其存儲在一個陣列

  #!/usr/bin/perl 
      @success=qw(C J K L); 
      @arr=qw(P M C); 
      my $pattern="is present here"; 
      local $/; 
      open (<FILE>, sl.txt); 
      my $ln=<FILE>; 

      while($ln=<FILE>) 
      { 

      if($ln=~$pattern) 
      { 

      {local $/="\n"; @using=`grep "cl" sl.txt | cut -d " " -f 6 `;} 
         print "\n the using array is @using \n"; 
         print "$using[0] ,$using[1] \n"; 
         chomp(@using); 
         print" after chomp @using\n"; 
       foreach my $lb (@using) 
       { 
       if($lb eq $success[2]) 
       { 
        print " comparison true\n"; 
       }   
       else 
       { 
        print " false comparison\n"; 
       } 
       } 
       } 
      } 
      close(<FILE>); 

請爲什麼這個comaprison在失敗之後失敗了。爲Chomp @using前後格格@using相同

Answer 1

鑑於此腳本：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my @using = qx{grep "cl:" sl.txt | cut -d " " -f 6}; 
print "Before:\n"; 
print "[$_]\n" foreach (@using); 
chomp @using; 
print "After:\n"; 
print "[$_]\n" foreach (@using); 

而且該數據文件sl.txt：

name: A id: B cl: C 
name: D id: E cl: F 
name: I id: G cl: K 

的Perl 5.18.1在Mac OS X 10.9 .1收益率：

Before: 
[C 
] 
[F 
] 
[K 
] 
After: 
[C] 
[F] 
[K] 

這看起來像代碼行爲正確。當你把調試打印循環放到位時，你從每個腳本中得到什麼？ （使用qx{ … }是寫回報價的另一種方式。）