在Perl中从括号中删除键 - 值对

Question

如果我有一个由括号中的元组组成的字符串，我想从Perl中的元组中获得最大值？例如：

输入：[每天，32] [HOHO，16] [toodledum，128] [越后，4]

输出：128

Answer 1

对于输入提供：

$input = "[everyday,32][hoho,16][toodledum,128][echigo:4]"; 
$max = -Inf; 
foreach ($input =~ /\[\w+,(\d+)\]/g) { 
    $max = $_ if $max < $_; 
} 
print $max; 

如果这些值可能是浮点值，则使用([^\]]+)而不是(\d+)。

Answer 2

如果你想要所有的数据，你可以先把它放到一个散列中。

my %data = $str =~ /\[([^,]+),([^\]]+)\]/g; 
use List::Util qw'max'; 
my($max) = max(values %data); 
print "max: $max\n"; 

如果你想知道哪个键（S）使用该号码，然后你可以使用一个grep

print "key: $_\n" for grep { $data{$_} == $max } keys %data; 

如果你真的只需要最大值：

use List::Util qw'max'; 
print max $str =~ /\[[^,]+,([^\]]+)\]/g;