Perl的正則表達式：非貪婪

Question

我需要編寫一個腳本，執行以下操作：

$ cat testdata.txt 
this is my file containing data 
for checking pattern matching with a patt on the back! 
only one line contains the p word. 

$ ./mygrep5 pat th testdata.txt 
this is my file containing data 
for checking PATTERN MATCHING WITH a PATT ON THe back! 
only one line contains the p word. 

我已經能夠打印與「一」資本以及其修改就行了。我不知道如何只採取需要的。

我一直在搞亂（下面是我的腳本到目前爲止），所有我設法返回的是「PATT ON TH」部分。

#!/usr/bin/perl 

use strict; 
use warnings; 
use feature 'say'; 
use Data::Dump 'pp'; 

my ($f, $s, $t) = @ARGV; 
my @output_lines; 

open(my $fh, '<', $t); 

while (my $line = <$fh>) { 
    if ($line =~ /$f/ && $line =~ /$s/) { 
     $line =~ s/($f.+?$s)/$1/g; 
     my $sub_phrase = uc $1; 
     $line =~ s/$1/$sub_phrase/g; 
     print $line; 
    } 
    #else { 
    #  print $line; 
    #} 
} 

close($fh); 

它返回：「用於檢查模式匹配與PATT ON返回！」

我該如何解決這個問題？

Answer 1

所以你想從pat到th大寫，除了包含空格的a實例嗎？最簡單的方法是大寫整個事情，然後修復由空間包圍的任何A實例。

sub capitalize { 
    my $s = shift; 
    my $uc = uc($s); 
    $uc =~ s/ \s \K A (?=\s) /a/xg; 
    return $uc; 
} 

s{ (\Q$f\E .* \Q$s\E) }{ capitalize($1) }xseg; 

的缺點是，將替換任何現有A通過空間與a包圍。以下是更復雜，但不會從問題的困擾：

sub capitalize { 
    my $s = shift; 
    my @parts = $s =~ m{ \G (\s+ | \S+) }xg; 
    for (@parts) { 
     $_ = uc($_) if $_ ne "a"; 
    } 

    return join('', @parts); 
} 

s{ (\Q$f\E .* \Q$s\E) }{ capitalize($1) }xseg; 

---

的代碼的其餘部分可以簡化爲：

#!/usr/bin/perl 

use strict; 
use warnings; 

sub capitalize { ... } 

my $f = shift; 
my $s = shift; 

while (<>) { 
    s{ (\Q$f\E .* \Q$s\E) }{ capitalize($1) }xseg; 
    print; 
} 

Answer 2

所以，你要每個序列匹配以pat開頭並以th結尾，非貪婪且大寫該序列，則可以簡單地使用替換右側的表達式：

$line =~ s/($f.+?$s)/uc($1)/eg; 

$line =~ s/($f.+?$s)/uc($1)/eg; 

就是這樣。