正则表达式 – Perl提取文本

我一直在研究这个问题！
我很感激你的帮助……

我的文档会是什么样子：

<text>
<text> command <+>= "stuff_i_need" <text>
<text>
<text> command <+>= stuff <text>
<text>
<text> command <+>= -stuff <text>
<text>

>任何带有缠绕括号的东西都是可选的
>东西可以是任何东西(苹果,橙子,香蕉),但它是我需要提取的东西
>命令是固定的

我的代码到目前为止：

#!/usr/bin/env perl

use warnings;
use strict;
use Text::Diff;

# File Handlers 
open(my $ofh,'>in.txt');
open(my $ifh,'<out.txt');

while (<$ifh>)
{
    # Read in a line
    my $line = $_;
    chomp $line;

    # Extract stuff
    my $extraction = $line;

    if ($line =~ /command \+= /i) {        
        $extraction =~ s/.*"(.*)".*/$1/;
        # Write to file
        print $ofh "$extraction\n";
    }
}

解决方法

根据示例输入：

if ($line =~ /command\d*\s*\+?=\s*["-]?(\w+)"?/i) {    
    $extraction = $1; 
    print "$extraction\n";
 }