Нужна помощь в интерпретации этого PERL код

Question

Я с трудом обертывание мою голову вокруг этого небольшого фрагмента кода

мой $ исх = \ @ {$ далее -> {$ этикеточной} {$ ARGV [4]} };

Могу ли я получить некоторую помощь в расшифровке этого?

Answer 1

• $seq хэш ссылка
• $seq->{$label} возвращает значение ключа $label в разыменованного хэш
• Это значение является другой хэш, из которого мы получаем значение $ARGV[4] ключа
  • @ARGV - это массив аргументов командной строки, $ARGV[4] - это элемент индекса 4
• Все это возвращает ссылку на массив, который разыменованная по @{...}
• Добавления обратного косых черт в передней превращает его обратно в массив ссылка

Резюме: это ссылка на массив, который является значением из $ARGV[4] ключ в хэш возвращаемый $seq->{$label}, и все это может быть написано ИМХО

my $ref = $seq->{$label}{$ARGV[4]}; 

Borodin's answer См разницу между \@{$ref} и $ref.

Answer 2

Позволяет переписать его как этот

my $ref = \@{ 

    $seq->{ $label }{ $ARGV[4] } 

} 

внешней my $ref = это назначение. Я полагаю, что это ясно

Тогда @{ ... }разыменовывает содержимое скобок как массив, а затем \ принимает ссылку на это. Ссылка гасит разыменования, так что идентичны к

my $ref = $seq->{ $label }{ $ARGV[4] } 

за исключением того, что разыменования заставит программу умереть с

не является ссылкой на ARRAY

если содержание не относятся к массиву

Теперь у нас есть

$seq->{ $label }{ $ARGV[4] } 

который использует $seq в качестве ссылки на хэш хэш, и использует $label в качестве ключа первого уровня и $ARGV[4] (пятый аргумент командной строки) в качестве второго уровня ключа

Это утверждение было написанный кем-то, кого я буду щедро называть бедным программистом.Я сомневаюсь, что он был предназначен для проверки хэш-значение, представляющее собой ссылку на массив, и по крайней мере $ARGV[4] должен быть скопирован в имени переменной, чтобы прояснять значение

Answer 3

my $ref = \@{$seq->{$label}{$ARGV[4]}}; 

Лучше всего работать с наизнанку порядок работы:

1. $ARGV[4]: пятый аргумент, передаваемый через командную строку (например, ./perlscript.pl "argument1" "argument2" "argument3" "argument4" "argument5.txt")
2. $seq->{ $label }{ $ARGV[4]}: это держит реф на массив, мы знаем это, потому что, когда вы пытаетесь разыменовать него путем обертывания его в @{ ... }, в противном случае вы получили бы предупреждение Не ссылка ARRAY. Кроме того, вместо переменных можно также использовать голые строки (например, $seq->{ 'some label' }{ 'some other label'})
3. @{ $seq->{ $label }{ $ARGV[4] } }: это делает разыменования, как упомянуто в # 3
4. \@{ $seq->{ $label }{ $ARGV[4] } }: слэш делает его ссылкой снова, уточнив, что ссылка на массив держалось в хэш
5. my $ref = \@{ $seq->{ $label }{ $ARGV[4] } };: ваш стандартный присваивание переменной

---

Мы не видели много другого кода, так что трудно сказать, насколько это возможно, потребуется обновить. Обычно вы хотите дезинфицировать свои входы, чтобы не допустить попадания плохих или чрезвычайно больших данных. Кроме того, вы хотели бы сделать его более значимым. $seq может быть последовательностью или чем-то действительно, $label не слишком идентифицируемым, и с помощью любого $ARGV, как вы это делали, обычно означает, что что-то еще не делается в другом месте.