Вопросы по теме 'perl-data-structures'
Есть ли способ заменить if-elsif-else в Perl чем-то лучшим?
Я хочу создать кучу подпрограмм Perl, у которых у всех будет один и тот же шаблон if elsif elsif else , который принимает решение на основе факторной переменной. Вот пример шаблона подпрограммы:
sub get_age{
my $factor=shift;
if...
1095 просмотров
schedule
04.03.2023
Удалить значение из 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 просмотров
schedule
05.10.2022
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 просмотров
schedule
22.04.2022
Сортировка хэша хэшей массива массивов в Perl
Я сделал хэш ( %locus ) для организации своих данных, когда я печатаю его с помощью Data::Dumper , он показывает структуру данных:
'locus8 >9.2668516.276570.GABA3.1.54.6586237.218516.2718570 74280 74440 locus8'
=> {
'3 70.75 0.995018...
64 просмотров
schedule
18.12.2023
функция ключей в perl
У меня есть perl-скрипт, который оценивает xml-скрипт с помощью функции keys() . Мой скрипт написан таким образом, атрибуты/теги в xml идут не по порядку. Работают ли ключи в Perl, оцениваются случайным образом??
Ex:
if( (keys %{$data})[0]...
204 просмотров
schedule
29.04.2024
Perl: как получить доступ к массиву хэшей, переданных подпрограмме
Имейте perl-скрипт, читающий из xml, анализирующий данные в хэши в одной подсистеме, выводящий массив хэшей, а затем из основного вызова второй подсистемы для обработки массива хэшей.
Data::Dumper показывает, что все передается правильно.
Мне...
164 просмотров
schedule
21.08.2022
Проблема с доступом к Hash в Perl
У меня есть хеш следующей структуры в perl -
my %testHash = (
KeyL1 => {
KeyLL1 => {
KeyLLL1 => [1,2],
KeyLLL2 => [2,3],
},
KeyLL2 => {...
49 просмотров
schedule
01.12.2022