使用perl提取兩個分隔符之間的子串並將其作爲新字符串存儲

Question

我正在使用Perl腳本，並且想要在兩個不同變量之間分割字符串。

這是我的字符串

<p>Hello my server number is 1221.899999 , please select an option</p> 

我希望能夠提取的服務器數量，所以我想<p>Hello my server number is後的字符串分割和下面的空間之前，讓我結束字符串將打印爲

1221.899999 

是正則表達式最好的解決方案，而不是使用拆分？

Answer 1

如何：

$str = 'Hello my server number is 1221.899999 , please select an option'; 
$str =~ s/^.*\b(\d+\.\d+)\b.*$/$1/; 
say $str; 

或

$str =~ s/^Hello my server number is (\d+\.\d+)\s.*$/$1/; 

如果字符串的開頭總是說。

輸出：

1221.899999 

Answer 2

我只想用一個正則表達式。

my $str = 'Hello my server number is 1221.899999 , please select an option'; 
my ($num) = $str =~ /Hello my server number is (\d+\.\d+) ,/; 

$num如果匹配沒有成功，將會是未定義的。

Answer 3

我會使用正則表達式。這個怎麼樣：

$str = 'Hello my server number is 1221.899999 , please select an option'; 
print $1 if $str =~ /is (.*) ,/; 

Answer 4

只要你是肯定總是有逗號前的空間，正確答案是類似於此

my $string = '<p>Hello my server number is 1221.899999 , please select an option</p>'; 

my ($server) = $string =~ /server number is (\S+)/; 

print $server; 

輸出

東西

1221.899999 

如果逗號可能在服務器編號結束後立即出現，那麼您需要修改iy是這個

my ($server) = $string =~ /server number is ([^\s,]+)/;