Perl提取文本

Question

我一直在研究这么久！ 我会感激你的帮助......

我的文档将是什么样子：

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

• 任何与纠结括号是可选
• 东西可以是任何东西（苹果，橘子，香蕉），但它是什么，我需要提取
• 命令固定

我码S ø远：

#!/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"; 
    } 
} 

Answer 1

基于示例性输入：

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

Answer 2

几件事：

1. 对于提取，不使用取代度（即，使用m//和不s///） 。如果使用匹配，则匹配内的括号组将作为列表返回（如果您愿意，则分配给$1，$2，$3等）。
2. =~绑定您想要匹配的变量。所以你想$extraction实际上是$line。
3. .*您的.*匹配过于贪婪，并会阻止匹配以您想要的方式继续。 “贪婪”的意思是.*将与您行中尾随的"匹配。它将消耗线上的其余输入，然后尝试匹配"，并且因为您已达到该行的末尾而失败。

你想指定该单词可能是什么。例如，如果是字母，然后匹配[a-zA-Z]

my ($extraction) = $line =~ /command \+= "([a-zA-Z]*)"/; 

如果它是一个数字，你想[0-9]：

my ($extraction) = $line =~ /command \+= "([0-9]*)"/; 

如果它可能是除了"任何东西，使用[^"]，意为“什么，但" “：

my ($extraction) = $line =~ /command \+= "([^"]*)"/; 

通常有助于试图匹配只是你在找什么FO而不是毯子.*。

Answer 3

下面的正则表达式会帮助你：

m{ 
    (?<= =)  # Find an `=` 
    \s*    # Match 0 or more whitespaces 
    (?:    # Do not capture 
     [ " \- ] # Match either a `"` or a `-` 
    )?    # Match once or never 
    (    # Capture 
     [^ " \s ]+ # Match anything but a `"` or a whitespace 
    ) 
}x; 

Answer 4

下面的一行将提取随后通过一个可选的加号前缀等号一个单词（不含空格字符序列），包围可选引号。它将从in.txt读取并写入out.txt。

perl -lne 'push @a, $1 if /command\s*\+?=\s*("?\S+"?)/ }{ 
    print for @a' in.txt > out.txt 

完整的代码 - 如果你喜欢脚本形式 - 是：

BEGIN { $/ = "\n"; $\ = "\n"; } 
LINE: while (defined($_ = <ARGV>)) { 
    chomp $_; 
    push @a, $1 if /command\s*\+?=\s*("?\S+"?)/; 
} 
{ 
    print $_ foreach (@a); 
} 

的the O module的Deparse功能的礼貌。

Answer 5

一个轻的解决方案。

#!/usr/bin/env perl 
use warnings; 
use strict; 

open my $ifh, '<','in.txt'; 
open my $ofh, '>', 'out.txt'; 

while (<$ifh>) 
{ 
    if (/ 
     \s command\s\+?=\s 
     (?:-|("))?  # The word can be preceded by an optional - or " 
     (\w+) 
     (?(1)\1)\s+ # If the word is preceded by a " it must be end 
         # with a " 
     /x) 
    { 
     print $ofh $2."\n"; 
    } 
}