Вопросы по теме 'perl-data-structures'

Есть ли способ заменить if-elsif-else в Perl чем-то лучшим?
Я хочу создать кучу подпрограмм Perl, у которых у всех будет один и тот же шаблон if elsif elsif else , который принимает решение на основе факторной переменной. Вот пример шаблона подпрограммы: sub get_age{ my $factor=shift; if...
1095 просмотров

Удалить значение из Perl хеша массивов хешей
Я пытаюсь удалить значения из хэша массивов хэшей, которые я создал с помощью следующего кода: while ((my $Genotype1, my $Fitness1) = each (%Normalisedfithash)) { while ((my $Parent1A, my $TallyP1) = each(%P1Tallyhash)) { my $ParentTally =...
3088 просмотров
schedule 01.04.2022

Как получить порядковый суффикс целого числа в Perl (например, st, nd, rd, th)
У меня есть номер, и мне нужно добавить суффикс: «st», «nd», «rd», «th». Так, например: если число равно 42, суффикс будет «nd», 521 — «st», 113 — «th» и так далее. Мне нужно сделать это в Perl. Любые указатели.
2188 просмотров

Perl-сериализация и десериализация хэшей хэшей
Я пытаюсь сериализовать хэш хэшей, а затем десериализовать его, чтобы вернуть исходный хеш хэшей. Проблема в том, что всякий раз, когда я его десериализую, он добавляет автоматически сгенерированный $ var1, например. оригинальный хеш...
4165 просмотров
schedule 16.02.2022

Разбор выходного массива JSON Data::Dumper в Perl
Я пытаюсь отредактировать старый Perl-скрипт, и я совсем новичок. Запрос с сервера возвращается как: $VAR1 = [ { 'keywords' => [ 'bare knuckle boxing', 'support...
7452 просмотров
schedule 22.09.2022

не могу получить массив хэшей в perl
У меня есть данные CSV сотрудников, и я пытаюсь вставить хэш каждого сотрудника в массив open($empOutFh,">empOut.txt") $hash= []; while(<$empFh>) { @columnNames = split /,/, $_ if $.==1; @columnValues = split /,/,...
81 просмотров
schedule 02.08.2023

Perl: ошибка нехватки памяти при построении двумерного массива во время выполнения
Я новичок в перле. Я пытаюсь построить 2D-массив во время выполнения из двоичного файла. Я получаю сообщение об ошибке "недостаточно памяти". Я использую Perl 5.16.3 в Windows7. Размер моего входного файла составляет ~ 4,2 МБ. В моей системе...
270 просмотров

Сортировка хэша хэшей массива массивов в Perl
Я сделал хэш ( %locus ) для организации своих данных, когда я печатаю его с помощью Data::Dumper , он показывает структуру данных: 'locus8 >9.2668516.276570.GABA3.1.54.6586237.218516.2718570 74280 74440 locus8' => { '3 70.75 0.995018...
64 просмотров

функция ключей в perl
У меня есть perl-скрипт, который оценивает xml-скрипт с помощью функции keys() . Мой скрипт написан таким образом, атрибуты/теги в xml идут не по порядку. Работают ли ключи в Perl, оцениваются случайным образом?? Ex: if( (keys %{$data})[0]...
204 просмотров

Perl: как получить доступ к массиву хэшей, переданных подпрограмме
Имейте perl-скрипт, читающий из xml, анализирующий данные в хэши в одной подсистеме, выводящий массив хэшей, а затем из основного вызова второй подсистемы для обработки массива хэшей. Data::Dumper показывает, что все передается правильно. Мне...
164 просмотров

Проблема с доступом к Hash в Perl
У меня есть хеш следующей структуры в perl - my %testHash = ( KeyL1 => { KeyLL1 => { KeyLLL1 => [1,2], KeyLLL2 => [2,3], }, KeyLL2 => {...
49 просмотров