Вопросы с меткой [perl]
Perl (не путать с Perl 6) — высокоуровневый динамический интерпретируемый язык программирования общего назначения.
484
вопроса
0
голосов
0
ответов
33
показа
Как присвоить переменную для целого условия в PERL?
Есть некий фрагмент кода
open FILE, '<', $test_txt or die $!;
while (<FILE>) {
$content = $_;
if (m/Difference/) {
print "$diff\n";
} else {
if (m/FC:/) ...
0
голосов
1
ответ
29
показов
PERL поиск информации по всему документу
Есть некий файл test.txt, в котором 1000+ строк
Как на языке PERL написать скрипт, чтобы когда читался файл, и находил одну или более строчек с надписью difference found, то выдавал error, а в ...
0
голосов
0
ответов
20
показов
Генерация криптокошельков из Brainwallet
Есть 70 блокчейнов, необходимо сгенерировать по ним адреса и закрытые ключи по одному только Brainwallet.
На эту тему есть какая-либо информация? Или нужно колупать отдельно каждый опенсорс проект?
...
0
голосов
2
ответа
57
показов
PERL чтение одной строки
Всем доброго времени суток, вопрос в следующем:
У меня есть некий test.txt, в котором находится 5 строчек информации.
Как в скрипте PERL я могу вывести только 3-ю строчку ?
Собственно вот код:
use ...
0
голосов
1
ответ
47
показов
Не работает вставка utf8 символов в mssql из-под Апача
Есть сайт написанный на Perl, работает на старой версии Ubuntu server. Начали переезд на новую версию сервера и сделали тестовую инсталяцию на убунте 20.04. Столкнулись с тем, что вставка utf8 ...
0
голосов
2
ответа
48
показов
Установка языка Perl В linux 2022
Здравствуйте начал изучать язык программирования Perl, работаю в Gnu/linux - Debian/Ubuntu. По умолчанию стоит версия Perl-5.30.0
Устанавливал через Perlbrew последнюю версию, официальная документация:...
0
голосов
1
ответ
53
показа
Как отследить обращение к файлу?
Сижу на CentOS 7. Есть огромное приложение (биллинг). В основном, состоящий из perl-файлов. Внутри его структуры лежит файл "license.key", к которому идёт обращение из разных уголков ...
0
голосов
1
ответ
28
показов
как в perl использовать ссылки на файлы с двойным слеш \\?
Есть ссылка на диск, например:
\link\
print '\\link';
результат получается:
\link
а мне нужен:
\\link Чтобы ссылка работала корректно
как этого добиться наиболее оптимальным способом?
0
голосов
1
ответ
45
показов
Выполнение одной подпрограммы множеством потоков
столкнулся с проблемой вернее с тем как заставить множество потоков выполнять одну подпрограмму,насколько я понял в Perl для этого используется функция lock(), но при запуске кода:
use warnings;
use ...
0
голосов
1
ответ
58
показов
Определение типов в динамически типизированных языках
Пишу на динамических языках как Python, Common Lisp и тд. И вот, бывает просматриваю исходный код библиотек, если у них не хватает документации, и бывает проблема определить какого типа входные данные ...
0
голосов
1
ответ
39
показов
Количество замен в регулярке
Пусть есть синтетическая конструкция (которая полезного не делает):
my $T = "dfg df dfg";
my $Cnt = ($T =~ s/(df)/$1/sg);
print "$Cnt\n";
Выведет:
3
Вопрос: А есть ли какая ...
0
голосов
1
ответ
24
показа
PERL прерывается цикл
Беру данные из одной таблицы. Там 10 записей получается.
Далее перерабатываю одно значение в каждой строке и это значение подставляю в новый запрос.
Но срабатывает только первая строка. Остальные ...
0
голосов
0
ответов
35
показов
PERL добавить символ к каждому элементу
Получаю из формы данные, выбираю те, которые начинаются с f
foreach my $key (param()) {
if ($key =~ /^f(\d+)$/) {
push(@pos, $key);
}
}
После чего ...
1
голос
2
ответа
52
показа
Выполнение команды оболочки из perl-скрипта
Изучаю perl, решил написать небольшой скриптик для личных нужд.
Среди прочего, скрипт должен выполнить переход в указанную папку и запустить там приложение. Проблема пока возникла именно с переходом в ...
0
голосов
1
ответ
35
показов
PERL SQL запрос
print Dumper $turu;
$VAR1 = [ '40', '41', '43', '44', '45' ];
Дампер показывает верные данные.
Делаю запрос
my @items = ();
my $sth = $dbh->prepare("SELECT * FROM catn WHERE id IN (?)...
1
голос
0
ответов
31
показ
PERL получить из формы и сформировать
Из формы получаю данные вида (name-value соответственно).
f40: 2930
f41: 6353
f42: 14755
f43: 21221
Далее пытаюсь получить значения без F
foreach my $key (param()) {
if ($key =~ /^f(\d+)$/) {
...
2
голоса
1
ответ
33
показа
Получить список дат последних модификаций файлов в папке
Собственно сабж. Опыта с Perl нет никакого. Нужно получить массив с датами последних модификаций всех файлов в конкретной папке. Пока пробую использовать нативные команды ОС и парсить результат, но ...
0
голосов
1
ответ
61
показ
При создании образа командой genisoimage файлы в проекте с кириллицей в образе отображаются кракозяблами. AstraLinux
Есть скрипт на perl который создает iso используя genisoimage. При запуске скрипта в терминале от рута кириллица в iso отображается нормально, при запуске из php русские символы названиях файлов ...
0
голосов
1
ответ
146
показов
Perl помогите разобраться с HTML::Parser
Гуглил, читал, примеры смотрел, но принцип работы парсера не понимаю...
sub title_handler {
my $self = shift;
$self->handler(text => sub { print @_ }, "dtext");
$self->...
1
голос
1
ответ
32
показа
Как заархивировать директорию Compress::Zlib в Perl
В дирректорию /home/logs/app/ пишутся csv файлы. Нужно директорию app упаковать и получить архив в /home/logs/.
Сейчас делаю системным вызовом "system ('zip -jr '/home/logs/app/logs.zip '/home/...
1
голос
2
ответа
40
показов
Вычитание времени в строках, используя awk, perl или другой однострочник
Подскажите, пожалуйста, каким способом можно решить следующую задачу с помощью однострочника?
Задача в том, чтобы вычитать значение из первого столбца предыдущей стройки из первого столбца текущей ...
-1
голос
1
ответ
73
показа
регулярное выражение чтобы достать текст после слова и внутри лапок [закрыт]
есть строка
name='asd',color='3',ids='1,2,2re'
мне надо достать 1,2,2re
1
голос
1
ответ
55
показов
PERL. Кол-во знаков после запятой после деления
Нужно с помощью Perl (или другим способом) поделить число, и результат вывести с точностью до 10 знаков после запятой.
Например, если в Bash использовать команду:
echo "scale=10;...
1
голос
1
ответ
37
показов
Почему возвращается Can't call method "value" on an undefined value?
#!usr/bin/perl
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
my $outfile = "out.htm";
my $url = "https://id.rambler.ru/login-20/login/";
my $username = "test";
my $...
3
голоса
1
ответ
44
показа
Помогите понять алгоритм работы автоинкремента(autoincrement operator), применительно к строкам
Приведу пример. Допустим, есть код:
$a = "A9"; print ++$a, "\n";
$a = "bz"; print ++$a, "\n";
$a = "Zz"; print ++$a, "\n";
$a = "z9&...
1
голос
1
ответ
32
показа
строки. оператор повторения(repetition operator)
Есть две инструкции:
print "o" . "la" x 4 * 3, "\n";
print "ba" ."na" x4*3,"\n";
Если в первом случае вывод очевиден: o0, то почему во ...
0
голосов
2
ответа
77
показов
Редактор кода для perl
Какой редактор кода посоветуете для языка perl? Пока нашел только один рабочий, это Perl Express 2.4.5, но интерфейс мне совершенно не понравился. Больше ничего достойного найти не могу.
3
голоса
1
ответ
72
показа
Язык программирования Perl
пример отсюда -> http://citforum.ru/internet/perl_tut/syntax.shtml
$var = 1;
$var2 = 3 if $var > 0;
; почему не стоит после 3 ?, а стоит после условии...
А почему условие присваивется к ...
1
голос
0
ответов
106
показов
Perl: Как добавлять в файл не дубли
подскажите пожалуйста как правильно написать, что бы в файл выводились только уникальные значения, а дубли не добавлялись.
Я только несколько дней разбираюсь в Perle, ниже мой код, вернее не мой, а ...
1
голос
1
ответ
57
показов
Синтаксис языка программирования - Perl
-Из: https://perldoc.perl.org/perldata-
Если вы оцениваете массив в скалярном контексте, он возвращает длину массива. (Обратите внимание, что это не относится к спискам, которые возвращают последнее ...
1
голос
0
ответов
48
показов
Уникальный идентификатор письма и каталога в IMAP4
Встал вопрос создания резервных копий одного из почтовых ящиков с доступом по IMAP4. Идет активная переписка и почтовый ящик постоянно забивается по квоте. Приходится вручную чистить. Но удаленные ...
0
голосов
1
ответ
58
показов
Разница между Morbo и Hypnotoad в Mojolicious
объясните мне пожалуйста разницу между Morbo и Hypnotoad в Mojolicious. Чем они отличаются?
2
голоса
1
ответ
36
показов
Perl разбить стринг
Есть вот такая конструкция
foreach ($cook->{img_ids}) {
my @dress = ();
my $sth = $dbh->prepare("SELECT pid FROM imnew WHERE id IN (".$cook->{img_ids}.")");...
2
голоса
1
ответ
63
показа
Перенос строки в Net::XMPP (perl)
Есть скрипт, который принимает аргументы переданные в него с помощью вызова bat.cmd
Первый аргумент - адрес, второй - тело сообщения.
В теле сообщения перебрал все возможные способы переноса строк,
.. ...
-16
голосов
1
ответ
1k
показов
Что делает данный однострочник на Perl?
Дополнение от модератора: данный вопрос содержит код, который может
привести к удалению всех файлов в вашей Линукс системе, не стоит
бездумно пытаться запустить данный код.
Подробнее см. Rm -rf
Что ...
0
голосов
1
ответ
49
показов
Как добавить файл в архив? Perl
Выборка из базы сохраняется в файл на сервере и надо этот файл пожать с помощью Compress::Zlib и перекинуть по почте.
Такое получается, но не совсем так как хочется. В архиве file.gz сохраняется файл, ...
0
голосов
1
ответ
32
показа
Адрес функции содержит 00
Написал программу, уязвимую к переполнению буфера. Вводится строка, которая может залезть за пределы кадра функции. Цель — послать на ввод такую строку, чтобы меняла адрес возврата. Если пароль ...
0
голосов
1
ответ
75
показов
Perl. Есть ли изящный способ валидации utf-8?
Задача проверить документ на корректность. Читать буферами определённого размера, потому-что данные не доверенные( вдруг там нету символов конца строки ). Раз мы читаем буферами из-за этого возможны ...
0
голосов
1
ответ
21
показ
Perl WriteExcel - рандомное имя для формируемого файла
Скрипт Perl выгружает данные в excel файл:
my $workbook = Excel::Writer::XLSX->new('/u03/report/result.xlsx');
Подскажите, пожалуйста, как сделать, чтобы имя файла задавалось не конкретное, как result ...
0
голосов
2
ответа
30
показов
Выгрузка данных в Excel с помощью perl
Данные выгружаются из БД Oracle скриптом Perl.
Эти данные отображаются пользователю на странице, а также выгружаются в excel файл, ссылка на скачивание также есть на этой страничке.
Проблема с ...
0
голосов
0
ответов
14
показов
Скачивание сформированного PERL-скриптом XLSX-файла пользователем в браузере
Есть perl-скрипт на apache-сервере, который подключается к БД Oracle, выгружает полученные данные в excel-файл: my $workbook = Excel::Writer::XLSX->new('/u03/report/result.xlsx'); Также данная ...
0
голосов
0
ответов
33
показа
Форматировать запрос Perl
Сейчас имеется формат вывода tcpdump:
tcpdump -e -tt -nn tcp | perl -pe 's/(\d*\.\d*)\s.*length\s([0-9]*):\s((?:\d+\.){3}\d+)\.(\d+)\s>\s((?:\d+\.){3}\d+)\.(\d+).*/$1 $2 $3 $4 $5 $6/'
Он выводит ...
0
голосов
0
ответов
22
показа
Выгрузка циклом while perl данных SQL-запроса в excel
Имеется сайт на Apace с отчетами. Работник вводит на страничке даты "с" и "по" и жмет кнопку "показать".
Далее запускается скрипт Perl, в котором идет подключение к БД Oracle, далее в этом скрипте ...
0
голосов
2
ответа
33
показа
Исправление PERL-запроса для парсинга данных из tcpdump
коллеги.
Есть запрос:
tcpdump -e -tt -nn
С помощью него мы получаем точное время с долями секунды (6 знаков после запятой).
Далее мы форматируем запрос PERLом, после чего доли секунды исчезают, ...
0
голосов
1
ответ
69
показов
PERL decode("UTF-8") - ошибка "Wide character"
Apache 2.4.41 + Activestate Perl 5.28.1 64 bit;
Есть вот такой простенький код:
my $sql = "INSERT INTO theTable (title) VALUES (N'Заголовок')";
open(LOG, ">>log.txt");
print(LOG $sql . "\n");
...
2
голоса
1
ответ
33
показа
Странное поведение Perl Regexp (не ищет 2 раза)
Имеем perl v5.10.1 CentOs 6.10.
Как можно объяснить такое поведение регулярных выражений в Perl
my $text = "Hello olleH";
$text =~ /olleH/g;
print $&."\n";
$text =~ /Hello/g;
print $&."\n";
...
0
голосов
0
ответов
60
показов
centos 7 конфликт библиотек mysql и mariadb
Цель собственно 1 - обеспечить perl возможностью работать с oracle mysql.
yum install libdbi-dbd-mysql требует установки зависимости - mariadb-libs
Зависимости определены
===========================...
0
голосов
1
ответ
36
показов
Поиск наибольшей строки в файле
Изучаю raku, язык очень нравится, но уже сейчас есть камни преткновения. На данный момент нужно решить простую задачку, найти самую длинную строку в файле. Как это можно сделать в raku? Синтаксис чем-...
1
голос
0
ответов
52
показа
Возможно ли на regexp perl удалить определенное число байтов из строки?
Есть строка текста в которой в произвольном месте может содержаться "мусорный" текст который нужно вычистить. У "мусора" следующие параметры он оканчивается на \x00\x00 (в hex представлении), а в ...
1
голос
1
ответ
124
показа
Как вытащить части из JSON из командной строки или bash-скрипта?
Нужно забирать погоду на один из сервисов. Изменился webapi и старый запрос не верен.
Из этого:
[{"Id":39496,"TerritoryId":1,"GismeteoId":2334,"GeoObjectName":"г.Уганда",
"DateRequest":"2020-01-...