在Perl中，如何打印从文件中读取的行，并删除了可选的前导空格？

Question

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

嗨，在上面的perl脚本中，我需要一个功能...在first.txt中，每一行都以前面的一些空格开始..我需要打印前面没有空格的行...怎么做。

谢谢..

Answer 1

您的问题含糊不清：您是否要打印不以空格开头的行或删除任何前导空格后打印所有行？

@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;

请注意以下事项：

• use strict将帮助您捕获编程错误。
• use warnings会提醒您可疑的结构。
• 裸词文件句柄如SARAN是包全局变量。 使用词法文件句柄。
• 首选open参数形式，特别是如果文件名不是硬编码的话。
• 在错误消息中包含文件名。
• 既然你是不是格格荷兰国际集团$line ， print "$line\\n"会导致换行加倍。

Answer 2

你可以做：

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

我们使用Perl的替换运算符 s ，它允许我们使用正则表达式找到匹配项并替换与另一个字符串匹配的字符串部分。

这里我们使用正则表达式^\\s+

• ^是起始锚。
• \\s是任何空格字符。
• +量词来标记一个或多个

基本上我们匹配并替换前导的一个或多个空格字符，没有任何有效意味着删除它们。

Answer 3

#!/usr/bin/perl

 open(SARAN,"first.txt") or die "Can't Open: $!\n";

 @line=< SARAN>;

 $str_line = join("", @line);

 print(SARAN "$str_line");

 close SARAN;