我一直在研究这个问题！
我很感激你的帮助……
我很感激你的帮助……
我的文档会是什么样子：
<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";
}
