如何使用perl在符號之間使用grep

Question

我需要在符號之間插入如下所示的數字。

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

我需要grep as

$str = what is yourname;

Answer 1

或者，在Perl中：

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

Answer 2

您可以使用下面的捕獲組。

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

輸出：

what is your name

Answer 3

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

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