多行匹配PERL

Question

我有一个快速的问题..

我想匹配一个特定的多线程实例。问题是，当我执行我的代码时，它只打印我编辑的内容，而不是整个文件。

例如。这是我输入：

JJJ 
1234   123.00  1234.28    123456.00  1234567.72 constant 
ld;afksd;l REst of file blah blah blah...rest of file and other info I neeed etc. 

我的目标是获得：

JJJ 1234   123.00  1234.28    123456.00  1234567.72 constant 
ld;afksd;l REst of file blah blah blah...rest of file and other info I neeed etc. 

所以基本上我只是想与JJJ或1倍或更大的资本任何其他变化来发出声音的数据到行字母。

然而，当我这样做，我只得到这样的：

JJJ 1234   123.00  1234.28    123456.00  1234567.72 constant 

我只得到这一点，只是，而不是其他的信息，我需要的文件中。我知道有一个简单的解决方案，但我是perl非常新，并不能完全弄清楚。

这是我的代码，也许你们中的一些人会有建议。

use File::Slurp; 
my $text = read_file('posf.txt'); 
while ($text =~ /(^[A-Z]+)(\d+.*?\.\d+ Acquired$)/gism) { 
$captured = $1." ".$2; 
$captured =~ s/\n//gi; 

print $captured."\n"; 
} 

任何帮助将是伟大的。我知道我只是告诉程序打印“抓取”，但我无法弄清楚如何让它打印文件的其余部分，并将线路放到所需的位置。

我希望我的问题有意义，不难理解，请告知我是否可以进一步查询。

Answer 1

希望我能正确理解你的问题：你想在文本中的每行之后删除换行符，只包含大写字母。试试这个代码：

#!/usr/bin/perl 

use strict; 
use warnings; 

my $text = qq{JJJ 
1234   123.00  1234.28    123456.00  1234567.72 constant 
ld;afksd;l REst of file blah blah blah...rest of file and other info I neeed etc. 
JJJ 
1234   123.00  1234.28    123456.00  1234567.72 constant 
ld;afksd;l REst of file blah blah blah...rest of file and other info I neeed etc. 
}; 

$text =~ s/(^[A-Z]+) #if the line starts with at least 1 capital letter 
     \r?   #followed by optional \r - for DOS files 
     \n$/   #followed by \n 
     $1 /mg;  #replace it with the 1-st group and a space 
print $text; 

它打印：

JJJ 1234   123.00  1234.28    123456.00  1234567.72 constant 
ld;afksd;l REst of file blah blah blah...rest of file and other info I neeed etc. 
JJJ 1234   123.00  1234.28    123456.00  1234567.72 constant 
ld;afksd;l REst of file blah blah blah...rest of file and other info I neeed etc. 

我没有从文件中读取文本显示测试数据。但您可以轻松地添加read_file呼叫。