Греческие пары ключевых значений из скобок в Perl

Question

Что делать, если у меня есть строка, состоящая из кортежей в скобках, и я хотел бы получить максимальное значение из кортежа в Perl? Пример:

Входной сигнал: [повседневный, 32] [HOHO, 16] [toodledum, 128] [Echigo, 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"; 

Если вы хотите знать, какой ключ() иметь этот номер, вы могли бы использовать grep

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

Если вам действительно нужно только максимальное значение:

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