由Perl抓取文本

Question

這裏是一個文本文件。

BEGIN:----------------------------------------------- 
test 1 
test 2 %%%%%%%%%% TEST TEST TEST 
test 3 
END: 

我需要抓住標籤BEGIN:和END:之間的文本。

我該如何用Perl以兩種不同的方式做到這一點？

Answer 1

這個味道像家庭作業，所以我會給你一些方法來快速皮膚貓，但也許有更好的方法來做到這一點。

方法1

#!/usr/bin/perl 
open FILE, "infile.txt" 
# assuming bad formatting in the question and that BEGIN and END are on their own lines 
my @text; 
while (<FILE>) 
    if ($_ =~ /BEGIN:/) { 
     next; 
    } else if ($_ =~ /END:/) { 
     next; 
    } else { 
     push $_,@text; 
    } 
close FILE 

@Text是與所有的文本

方法2的陣列（這實際上是換行和回車的更foregiving）

#!/usr/bin/perl 
$oldirs = $/; 
$/=''; # set IRS to nothing 
open FILE, "infile.txt"; 
$line = readline *FILE; 
close FILE; 
$line =~ s/BEGIN://g; 
$line =~ s/END://g; 
$/=$oldirs; 

$line now contains all the text 

Answer 2

另一替代...假設文字在$foo ...

$foo =~ /^BEGIN:([\S\s]+?)END:$/m; 
result = $1; 

OP的獎勵積分...爲什麼$foo =~ /^BEGIN:(.+?)END:$/m無法正常工作？

Answer 3

只問Perl文檔：

我怎麼可以拉了兩次 模式，本身就 不同線路之間的線路？

perldoc -q between

Answer 4

use common::sense; 

local $/ = ''; 

my $file_content = <DATA>; 

say $file_content; 

say 'first result:'; 
say $file_content =~ /BEGIN:(.+?)END:/s; 

say 'second result:'; 
my $begin = index($file_content,'BEGIN:') + 6; 
my $end = index($file_content,'END:',$begin); 

say substr($file_content,$begin,$end-$begin); 

__DATA__ 
BEGIN:----------------------------------------------- 
test 1 
test 2 %%%%%%%%%% TEST TEST TEST 
test 3 
END: