Будет ли это выражение работать?

Question

Я совершенно не знаком с Perl и нуждаюсь в помощи, понимая чей-то код. Вложенный ниже фрагмент кода Perl. Можете ли вы помочь мне понять, что это значит?

my @m1 =keys(%{$key}); 
foreach (@m1){ 
    if (m/^(.*)\/$/) { 
      $a=$1; 
} } 

Это не работает. Будет ли это соответствовать значениям в m1 с группой захвата? Будет ли переменная a содержать совпадение группы захвата?

И что на самом деле выполняют функции клавиш?

Answer 1

Это излишне шумно. Этот тип кода - это то, почему Perl получает халтуру. Это то же самое, как

my @m1 = keys %$key; 

for (@m1) { 
    if (m|^(.*)/$|) { 
    $a = $1; 
    } 
} 

Он перебирает все ключи в хэш ссылается $key (установка $_ к каждому из них) и проверяет, заканчивается ли они в слэша /. Если это так, то $a устанавливается в строку ключа без завершающей косой черты.

Я предполагаю, что в цикле должно быть больше, чем вы показали, потому что, поскольку оно стоит, оно малопригодно.