在Perl中，如何打印從文件中讀取的行並刪除了可選的前導空白字符？

#!/usr/bin/perl 
open(SARAN,"first.txt") or die "Can't Open: $!\n"; 
while($line=<SARAN>) 
{ 
print "$line\n"; 
} 
close SARAN;

嗨，在上面的Perl腳本，我需要一個功能... 在first.txt，每一行與前面的一些空間開始.. 我需要打印的線條，而不在前面的空間.. 怎麼辦。在Perl中，如何打印從文件中讀取的行並刪除了可選的前導空白字符？

感謝..

來源

2010-09-17 John

您的問題不明確：您是否想要打印不帶空格的行或刪除任何前導空格後打印所有行？

@codaddict顯示瞭如何做後者。我將展示如何做前：

#!/usr/bin/perl 

use strict; 
use warnings; 

open my $SARAN, '<', "first.txt" 
    or die "Can't open 'first.txt': $!"; 

while (my $line = <$SARAN>) 
{ 
    print $line unless $line =~ /^\s/; 
} 

close $SARAN;

注意以下幾點：

usestrict將幫助您捕捉編程錯誤。
usewarnings會提醒您可疑構造。
諸如SARAN之類的粗體文件句柄是包全局變量。使用詞法文件句柄。
優選open的三參數形式，特別是如果文件名爲未硬編碼。
在錯誤消息中包含文件名。
既然你不chomp荷蘭國際集團 $line，print "$line\n"會導致換行符加倍。

來源

2010-09-17 12:15:48

+1爲最佳實踐和問題的替代含義。 – Toto 2010-09-17 12:23:45

輕微的步伐。該正則表達式可以簡化爲/ \ s /在這種情況下。無需查找多個主要空白字符。 – 2010-09-17 12:33:22

@davorg更正量詞。但是，該模式仍需要加以錨定。 – 2010-09-17 12:40:21

你可以這樣做：

while($line=<SARAN>) { 
    $line=~s/^\s+//; # delete the leading whitespace. 
    print "$line\n"; 
}

我們使用Perl's substitute operators，讓我們用一個正則表達式匹配並替換成另一個字符串匹配字符串的一部分。

這裏我們使用正則表達式^\s+

^是開始錨。
\s是任何空格字符。
+量詞來標記一個或多個

我們基本上相匹配，並沒有這實際上意味着刪除它們替換領先的一個或多個空格字符。

來源

2010-09-17 11:51:35 codaddict

在Perl中，如何打印從文件中讀取的行並刪除了可選的前導空白字符？

回答

相關問題