如何使用perl在符号之间grep单词

Question

我需要在如下所示的数组中的符号之间grep单词。

my $string = "hi how r u<what is your name>what is your age";

我需要作为进行grep

$str = what is yourname;

Answer 1

您可以使用以下捕获组。

use strict;
use warnings;
my $line = "hi how r u?what is your name?what is your age";
my @str = $line =~ m/?([^?]*)?/g;
print "@strn";

输出：

what is your name

Answer 2

或者，在Perl:中

$string =~ /?(.+)?/;
$result = $1;

Answer 3

您可以在此元字符上拆分字符串。

my @results = split /?/, $string;
print $results[1];