Perl - это процедурный высокоуровневый динамический язык программирования общего назначения, известный своей собственной поддержкой регулярных выражений и возможностей синтаксического анализа строк. Пожалуйста, используйте этот тег для вопросов о Perl в целом. Для вещей, связанных с новым (но связанным) языком Raku (ранее «Perl 6»), используйте тег raku. Для регулярных выражений в стиле Perl на других языках используйте тег regex или, если они основаны на библиотеке PCRE, тег pcre.

Подробнее про perl...

У меня есть сценарий Perl, который берет системную дату и записывает эту дату в имя файла. Системная дата присваивается переменной TRH1, а затем устанавливается в имя файла. $TRH1 =`date + %Y%m%d%H%M`; print "TRH1 => $TRH1\n"; open(TPFILE, ">./log/errTS_TPList_$TRH1.csv"); Однако TRH1, похоже, име....
4 Мар 2021 в 10:16
У меня есть 2 хэша (%hash1, %hash2) с определенными значениями в нем. Я хочу манипулировать хешем, чтобы распечатать результат желаемым образом. Вот мой сценарий: #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %hash1 = ( 'Network=Europe,Node=S02,Sec=1' => [ ....
2 Мар 2021 в 21:10
У меня есть строка, как показано ниже stringinput = Sweééééôden@ Я хочу получить результат вроде stringoutput = Sweden Символы spl ééééô и @ должны быть удалены. Я использую $stringoutput = `echo $stringinput | sed 's/[^a-z A-Z 0-9]//g'`; Я получаю результат вроде Sweééééôden, но ééééô не удаляе....
2 Мар 2021 в 15:54
Я хочу сравнить значения одного и того же ключа в хэш-карте. Я хотел бы сравнить и получить самую последнюю дату того же ключа. Он возвращает последнюю дату, которая отображается в хэш-карте. Я хочу сравнить и получить самую последнюю дату, даже если она появляется первой в хэш-карте. Когда тот ....
1 Мар 2021 в 18:23
Используя grep, я пытаюсь сопоставить строки, состоящие из двух символов, один за которым повторяется, за которым следует другой, но совпадают только тогда, когда количество появлений первого символа равно количеству появлений второго символа. В качестве примера представьте, что я могу сопоставить т....
27 Фев 2021 в 08:39
Я пытаюсь создать файл правил для инструмента биоинформатики FMAP. https://github.com/jiwoongbio/FMAP Я застрял при создании правила для скрипта FMAP_table.pl. Это мое текущее правило: rule fmap_table: input: expand(str(CLASSIFY_FP/"mapping"/"{sample}_abundance.txt"), sample=Samples.ke....
26 Фев 2021 в 14:28
Я пытаюсь понять, как подсчитать все символы, не являющиеся пробельными, в строке, чтобы в приведенном ниже примере я получил бы результат 4. my $str = 'A b C $'; my $cnt =~ /\S/g; print "Char Count: $cnt\n"; ....
25 Фев 2021 в 23:25
Я пытаюсь создать много хеш-ссылок с одинаковым содержимым. Использование оператора x дает копии той же ссылки. Как я могу получить разные ссылки? Мне нужны разные ссылки, чтобы позже я мог обновлять их независимо от других. Мой код: use strict; use warnings; use autodie; use feature qw(say); use....
25 Фев 2021 в 18:01
Я пытаюсь извлечь значение System.Title в переменную из файла JSON ниже. Я застрял с ошибкой «Не ссылка на массив». Вы можете помочь? my $json_text = do { open(my $json_fh, "<:encoding(UTF-8)", $filename2) or die("Can't open \$filename2\": $!\n"); local $/; <$....
24 Фев 2021 в 00:15
Я сделал код Python, который должен последовательно выполнять серию команд perl в оболочке ПК, проблема в том, что я не понимал, что для отправки этих скриптов мне нужно добавить параметры (у меня .......
23 Фев 2021 в 16:55
У меня есть веб-сайт (не мой собственный), на котором есть СУПЕР длинные строки, где они минимизировали HTML. Обычно это не проблема, но это вызывает проблемы с некоторыми из моих регулярных выражений (в этом примере, над которым я работаю, есть 12 строк, и одна из строк имеет длину 750 тыс. Символ....
22 Фев 2021 в 18:05
#!/usr/bin/perl use Data::Dumper; use strict; use List::Util qw(shuffle); my @arr = [qw(Foo Bar Baz Qux Quux Quuz)]; @arr = shuffle @arr; print Dumper @arr; Версия Perl - v5.32.0. Я всегда вижу результат Foo Bar Baz Qux Quux Quuz. $ ~/tmp/shuffle.perl $VAR1 = [ 'Foo', 'Bar', 'B....
19 Фев 2021 в 19:32
Я нашел этот код в Интернете (Источник) для загрузки изображений Bing. . Этот Perl-скрипт загружает сегодняшнее изображение обоев Bing, как я могу изменить его, чтобы проверить все возможные даты в обратном порядке? Неважно, когда он остановится, потому что я остановлюсь вручную. Я пробовал нескол....
17 Фев 2021 в 21:04
У меня есть демон Perl, который работает 24 X 7 и работает примерно так my_program.pl > /logs/user/data.out My_program.pl будет писать только в файл data.out только тогда, когда в приложении есть ошибка, иначе он не будет писать в него. Теперь я являюсь приложением, которое выполняет очистку и пров....
17 Фев 2021 в 17:40
У меня есть файл вроде $ cat num_range.txt rate1, rate2, rate3, rate4, rate5 pay1, pay2, rate1, rate2, rate3, rate4 rev1, rev2 rate2, rate3, rate4 И мне нужно отфильтровать строки, разделенные запятыми, по префиксу и числовому диапазону. Например, если введено "скорость" и диапазон от 2 до 5, то я....
17 Фев 2021 в 12:52
У меня есть такая строка: $x = \x02 . 'raz' . \x02; Как это убрать, чтобы остался только "раз"? Я пробую это: $x =~ s/^[a-zA-z0-9,]//g; Но я бы получил: SCALAR0x560917295870razSCALAR0x560917295900 Как получить просто "раз"?....
12 Фев 2021 в 18:28
Я наткнулся на этот код if (-p STDIN) { while (<STDIN>) { ... } } Что означает условное -p STDIN? Есть и другие подобные -p?....
12 Фев 2021 в 15:43
Как лучше всего создать / выделить анонимный записываемый скаляр / строку? В документе perlref есть абзац: *foo{THING} returns undef if that particular THING hasn't been used yet, except in the case of scalars. *foo{SCALAR} returns a reference to an anonymous scalar if $foo hasn't been used yet. Th....
12 Фев 2021 в 13:51
Я пытаюсь использовать регулярное выражение для извлечения информации, заключенной в двойные кавычки в каждой строке файла конфигурации. Я согласен с некоторыми регулярными выражениями базового уровня, но когда дело доходит до сложных; особенно с группами захвата. Я все время натыкаюсь на кирпичны....
12 Фев 2021 в 12:43
У меня есть строка, которая может содержать буквы и / или цифры, и я хочу определить, есть ли в ней 10 заглавных букв в строке, и вычесть их, если они существуют: Пример : my $string = "MyString-MetadataDZEDDMWKQMsomeothertext"; Я хочу определить, что эта строка содержит 10 заглавных букв одна за д....
12 Фев 2021 в 12:35
Я пытаюсь отключить автовивикацию с помощью модуля: 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 %h....
11 Фев 2021 в 17:43
Я загружаю JSON в какой-то веб-перехватчик, чтобы вызвать уведомление (M $ Teams). Это хорошо работает. Однако я хочу расширить свой сценарий Perl: мне нужно добавить новый узел в мою конструкцию «карточки сообщений» при определенном условии . Например. Я определил это: my $payload={}; $payload ....
11 Фев 2021 в 13:28
Я понимаю общую цель следующего фрагмента кода (т.е. суммировать числовую часть строки, например, для currstr = "3S47M" тогда seqlength = 50). Но может ли кто-нибудь объяснить мне, что происходит построчно? В частности, мне сложно понять, какое значение where удерживается на каждом ходу. Точнее, мн....
11 Фев 2021 в 00:48
Задокументированный пример в perldoc IPC::Open2 (чтение из родительского STDIN и запись в уже открытый дескриптор) - это упрощенная версия того, чего я пытаюсь достичь. А именно, родительский элемент записывает преамбулу в выходной файл, а затем подпроцесс записывает свои выходные данные непосредст....
10 Фев 2021 в 03:35
Я пытаюсь добавить через заданный ввод в JSON, но формат вывода не соответствует ожидаемому. Пожалуйста, предложите какие-либо изменения в этом коде. Для тестирования я передаю одну запись через $data_to_json, но мне нужно передать много похожих строк в файл JSON. #!/usr/bin/perl use strict; use w....
9 Фев 2021 в 16:23