perl — вопросы с тегом
-
Захватить команду «ls» в массив на Perl
Мне нужно захватить выводls команду в массив. Я пробовал что-то вроде этого:use strict; use warnings; use diagnostics; use feature 'say'; use feature "switch"; my $a= system("ls /media"); my @words = split / /, $a; my $name = $words[0]; my $name2 = $words[1]; say $name; Но н...
2 ответа03 июнь 2021, в 12:50 -
Как вызвать определенный параметр из другого файла конфигурации в Perl
Я пытаюсь выполнить сценарий оболочки внутри сценария Perl. Я могу выполнить сценарий оболочки, если вручную назначу переменную. Но я хотел бы вызвать переменную вне скрипта, который находится в файле конфигурации. Как выполнить сценарий? Ниже приведены мои примеры команд.my $confdir = $ENV{CFG_DIR}...
1 ответ03 июнь 2021, в 11:11 -
Perl-скрипт обрабатывает входной файл и достигает желаемого результата
Это Perl-скрипт, читает файл, содержащий имена IP и stsco. Я разложил элементы на два столбца и использую второй c2 для обработки. И вызов другого сценария Perl, чтобы вернуть нужные мне значения и распечатать их в файле. Если вы видите, что моя строка входного файла 8 (10.22.1.50 stsco25527020) не ...
2 ответа02 июнь 2021, в 03:48 -
Плагины Perl5 для IntelliJ IDEA
Я пытался получить IDE для Perl 5, но только с помощью строки whileprint "8"; он проходит много минут и в конце концов ничего не делает. [IMG_OUR_ID=950.jpg]
1 ответ01 июнь 2021, в 21:16 -
Perl, перебрать массив хэшей и распечатать определенный элемент хэша на основе критериев
У меня есть более крупный многомерный хеш, который состоит из хешей и массива внутри него, я могу получить массив хешей из того, что полезно только для всего большего хеша, теперь я пытаюсь напечатать определенный элемент или значения ключа. Исходный хеш{ "grade1": { "se...
2 ответа01 июнь 2021, в 17:50 -
Преобразование часового пояса из MST в целевой часовой пояс не работает в Perl
my $apptStartDateTime = "20210401100000"; my $formatter = DateTime::Format::Strptime->new(pattern => "%Y%m%d%H%M%S", time_zone => "MST"); my $dt_obj = $formatter->parse_datetime($apptStartDateTime); $dt_obj->strftime("%Y%m%d%H%M%S"), "\n&q...
1 ответ21 апр. 2021, в 17:23 -
как напечатать строку, которая начинается с $ в perl?
Я хочу напечатать строку ($ abc $ aaaaa # a $ aa #) в файле. Как я могу это сделать? Код ниже не работает.#!/usr/bin/perl my $temp = "$abc$aaaaa#a$aa#"; my $filename = '/log/a.log'; open(FH, '>', $filename) or die $!; print FH $temp ; close(FH); ...
2 ответа06 апр. 2021, в 14:30 -
Получите уникальные элементы из ценностей HoA и распечатайте
У меня есть HoA с определенными ценностями. Мне нужны только уникальные элементы из HoA. Ожидаемый результат:Key:1 Element:ABC#DEF Key:2 Element:XYZ#RST Key:3 Element:LMN Ниже мой сценарий:#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %Hash = ( '1' => ['ABC', 'DEF'...
1 ответ24 март 2021, в 08:00 -
как преобразовать файл кодировки ascii в кодировку utf-8 в Perl?
Я хочу преобразовать текстовый файл с кодировкой ascii в кодировку utf-8. Пока я пробовал это:open( my $test, ">:encoding(utf-8)", $test_file ) or die("Error: Could not open file!\n"); и выполнил команду ниже, которая показывает кодировку файлаfile $test_file test_file: ASCII...
2 ответа23 март 2021, в 10:12 -
Perl Template Toolkit - как объединить / объединить несколько переменных (в одну)
Perl Template Toolkit - как объединить / объединить несколько переменных (в одну), например, желая этого, при выборе выбранного элемента в поле / комбо-поле выбора html. Я нашел здесь вопрос https://www.perlmonks.org/?displaytype=print;replies=1;node_id=880584 , но, похоже, на него нет ответа. Точки...
1 ответ23 март 2021, в 09:35 -
извлекать данные из файла yaml с помощью Perl
Мне нужно получить значения, связанные с переменными, из файла yaml с помощью Perl. Я начинаю с Perl. Помогите мне начать. Я пробовал это до сих пор.#my $fh = new FileHandle; #my $mydir = "/proj/1a/ct_tst/cf"; #my $file = "tsan.yml"; #opendir($dh, $mydir) or die ("Cannot r...
1 ответ10 март 2021, в 16:27 -
Как установить код состояния в Perl, аналогично в пути, как он работает в PHP? [закрыто]
Закрыто . Этот вопрос требует подробностей или ясности . В настоящее время он не принимает ответы. Хотите улучшить этот вопрос? Добавьте подробности и проясните проблему, отредактировав этот пост . Закрыт 3 месяца назад . Уточните этот вопрос Каков аналог этого PHP-кода, который делал бы то же сам...
1 ответ10 март 2021, в 13:38 -
Perl 5 ООП программирование
Я пытаюсь перенести на perl5 следующую программу Python:import numpy as np class Hensuu: def __init__(self, data): self.data = data class Kansuu: def __call__(self, input): x = input.data y = x ** 2 output = Hensuu(y) return output x = Hensuu(np.a...
1 ответ25 фев. 2021, в 16:01 -
Как сохранить количество десятичных знаков в Perl после умножения
У меня есть одно число с плавающей запятой в Perl, и после умножения на отрицательное целое все конечные нули удаляются автоматически. Однако мне все еще нужны эти лишние нули. Пример:my $float = 1.40000; my $multiply = -1 * $float; print "Negative number: $multiply"; //-1.4 Есть ли спосо...
1 ответ11 фев. 2021, в 16:39 -
Прагма «no autovivication» не работает с grep в Perl
Я пытаюсь отключить автовивикацию с помощью модуля: https://metacpan.org/pod/autovivification, но grep не работает:#!/usr/bin/env perl use strict; use warnings FATAL => 'all'; use feature 'say'; use autodie ':all'; use DDP; no autovivification; my %h = ( 'a' => 1, 'b' => 2, ); p %...
2 ответа11 фев. 2021, в 14:43
Коротко о perl
"Завидую тестировщикам: все хотят с ними дружить."