在Perl的正則表達式相同取一些字符串

Question

我輸入的時候替換和刪除：

$str = 'In order to study the opportunity cost of allocating time to the less beneficial act, we need appropriate schedules of reinforcement description <?processing-instruction \value{$$@@%}?> list we need appropriate schedules of reinforcement'; 

my $get_val = ($str=~m/<\?processing\-instruction\s*\\value\{([^\}\?>]*)\}\?>/gi)[0]; 

print $get_val; 

不過，我需要刪除整個處理指令標籤的同時尋找相同。這是否可能在相同的模式？

我試過這個，但沒有成功。

my ($get_val) = ($str=~s/<\?processing\-instruction\s*\\value\{([^\}\?>]*)\}\?>//gi)[0]; 

print $get_val; 

上面的輸出打印'1'。如果有人能幫助解決這個問題，我們將不勝感激。

在此先感謝。

Answer 1

如果替換成功，則您想要的值將在$1中。

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

my $str = 'In order to study the opportunity cost of allocating time to the less beneficial act, we need appropriate schedules of reinforcement description <?processing-instruction \value{$$@@%}?> list we need appropriate schedules of reinforcement'; 

if ($str =~ s/<\?processing\-instruction\s*\\value\{([^\}\?>]*)\}\?>//gi) { 
    say $1; 
} 

say $str; 

輸出：

$$@@% 
In order to study the opportunity cost of allocating time to the less beneficial act, we need appropriate schedules of reinforcement description list we need appropriate schedules of reinforcement 

Answer 2

試試這個：

<\?processing-instruction.*?\?> 

由空字符串替換

Explanation

Perl代碼示例：

use strict; 

my $str = 'In order to study the opportunity cost of allocating time to the less beneficial act, we need appropriate schedules of reinforcement description <?processing-instruction \\value{$$@@%}?> list we need appropriate schedules of reinforcement'; 
my $regex = qr/<\?processing-instruction.*?\?>/p; 
my $subst = ''; 

my $result = $str =~ s/$regex/$subst/rg; 

print $result; 

Run the code here