使用perl打印幾個字符串時的小問題

Question

我有這段代碼;

print "$score\n"; 
for (my $i = 0; $i < $n; $i++) 
{ 
print $output[$i]; 
if($i == $center) 
{ 
    print "*"; 
} 
print "\n"; 
} 

，它應該打印：

-62 
ttagggcccgg-a-tc---attaccgggc--caa 
tta--gcgcgg-attcg-gatta-cggg---c-a* 
gcg--gggcggcattagcaattt-gggg-atc-a 
-ta--gcgc---a-----aataa-ccgg------ 

而是它打印此：

-62 
ttagggcccgg-a-tc---attaccgggc--caa 
*ta--gcgcgg-attcg-gatta-cggg---c-a 
gcg--gggcggcattagcaattt-gggg-atc-a 
-ta--gcgc---a-----aataa-ccgg------ 

如果我刪除 「*」 的字符串是正確的（他們是真的我想要打印的字符串），問題在於它的放置。這是印刷：

-62 
ttagggcccgg-a-tc---attaccgggc--caa 
tta--gcgcgg-attcg-gatta-cggg---c-a 
gcg--gggcggcattagcaattt-gggg-atc-a 
-ta--gcgc---a-----aataa-ccgg------ 

爲什麼打印的字符串的開始，而不是結束德，因爲它是咋辦？

非常感謝。

Answer 1

您的代碼完美適用於* nix系統，其中\n是唯一的行終止符，並且@output中的文本行不會以\n結尾。

#!/usr/bin/perl 

my @output = ("ttagggcccgg-a-tc---attaccgggc--caa", 
       "tta--gcgcgg-attcg-gatta-cggg---c-a", 
       "gcg--gggcggcattagcaattt-gggg-atc-a", 
       "-ta--gcgc---a-----aataa-ccgg------"); 

my $center = 1; 
my $score = -62; 

print "$score\n"; 
for (my $i = 0; $i < 4; $i++) 
{ 
    print $output[$i]; 
    if($i == $center) 
    { 
     print "*"; 
    } 
    print "\n"; 
} 

輸出：

-62 
ttagggcccgg-a-tc---attaccgggc--caa 
tta--gcgcgg-attcg-gatta-cggg---c-a* 
gcg--gggcggcattagcaattt-gggg-atc-a 
-ta--gcgc---a-----aataa-ccgg------ 

我看到你的代碼生成您發佈是如果包含在@output文本的每一行與\r這將導致發生回車結束輸出的唯一方法，那麼你會打印*（它會覆蓋剛剛輸出的行的第一個字符），然後打印循環底部的\n。

如果我在我的例子改變@output到：

my @output = ("ttagggcccgg-a-tc---attaccgggc--caa\r", 
       "tta--gcgcgg-attcg-gatta-cggg---c-a\r", 
       "gcg--gggcggcattagcaattt-gggg-atc-a\r", 
       "-ta--gcgc---a-----aataa-ccgg------\r"); 

然後輸出爲：

-62 
ttagggcccgg-a-tc---attaccgggc--caa 
*ta--gcgcgg-attcg-gatta-cggg---c-a 
gcg--gggcggcattagcaattt-gggg-atc-a 
-ta--gcgc---a-----aataa-ccgg------ 

所以最終的答案是：讓那些年底擺脫\r的。 :)

編輯：作爲TLP在下面的評論中指出，使用正則表達式替換，以確保沒有什麼對這些線路的末端應解決您：

for (my $i = 0; $i < 4; $i++) 
{ 
    $output[$i] =~ s/\s*$//; 
    print $output[$i]; 
    ... 

最後編輯時間：從TLP下面的評論，我會猜測這個數據是從一個文件中讀取的，這個文件來自一臺windows機器，其中的行以\r\n結尾。在OSX上的perl中讀取該文件時，您正在使用chomp刪除換行符。在OSX中，chomp只會刪除\n（默認情況下）並保持\r不變。