的Perl：在線路

Question

卸下空間我有以下文件：

firstname=John 
name=Smith 
address=Som 
ewhere 

正如你可以看到，該地址是在2線（與所述第二線通過的空間開始）。

我必須將「好」輸出（「地址=某處」）寫入另一個文件。

這是第一個腳本（有點複雜），我寫道：

foreach $line (@fileIN) { 
    if ($lastline eq "") { 
     $lastline = $line; 
    } else { 
     if ($line =~/^\s/) { 
      print $line; 
      $line =~s/^\s//; 
      $lastline =~s/\n//; 
      $lastline = $lastline.$line; 
     } else { 
      print fileOUT $lastline; 
      $lastline = $line; 
     } 
    } 
} 

$線=〜/^\ S/=>此正則表達式在$線路匹配的空間，而不是隻在開始。

我也試着寫了一個簡單的，但它並沒有太多的工作：

perl -pe 's/$\n^\s//' myfile 

Answer 1

你似乎做了太多的工作。我會這樣做：

my $full_line; 
foreach my $line (@fileIN) { 
    if ($line =~ /^\s+(.+)\Z/s){     # if it is continuation 
      my $continue = $1;      # capture and 
      $full_line =~ s/[\r\n]*\Z/$continue/s; # insert it instead last linebreak 
    } else {          # if not 
      if(defined $full_line){ print $full_line } # print last assembled line if any 
      $full_line = $line;     # and start assembling new 
    } 
} 
if(defined $full_line){ print $full_line }   # when done, print last assembled line if any 

Answer 2

檢查我的解決方案只有1個正則表達式:)

my $heredoc = <<END; 
firstname=John 
name=Smith 
address=Som 
ewhere 
END 

$heredoc =~ s/(?:\n\s(\w+))/$1/sg; 
print "$heredoc";` 

Answer 3

例如這樣嗎？

while (<DATA>) { 
    chomp; 
    print "\n" if /=/ and $. - 1; # do not insert empty line before the 1st line 
    s/^\s+//;      # remove leading whitespace 
    print; 
} 
print "\n";      # newline after the last line 

__DATA__ 
firstname=John 
name=Smith 
address=Som 
ewhere