Вопросы с меткой [perl]
Perl (не путать с Perl 6) — высокоуровневый динамический интерпретируемый язык программирования общего назначения.
499
вопросов
0
голосов
0
ответов
33
показа
Настройка fcgi nginx perl
Настроил nginx по этой инструкции.
Вроде работает, однако запросы выстраиваются в очередь, те если открыть две вкладки то вторая не загрузится, пока не загрузится первая.
Когда настраивал php там php-...
0
голосов
3
ответа
40
показов
Как можно еще остановить чтение из <STDIN> в массив?
Задача.
Напишите программу, читающую список строковых значений, каждое из которых находится в отдельной строке входных данных. Элементы списка выводятся в обратном порядке.
my @lines;
while (<STDIN&...
0
голосов
2
ответа
41
показ
Perl. Интерполяция массивов в строках. Почему строка "2 * 4" преобразуется в 2 в числовом контексте?
Здраствуйте!
Читаю книгу по языку программирования Perl, Изучаем Perl 5-е-издание...
Не понятно один момент, в книге написано следующее:
Один элемент массива при интерполяции заменяется своим текущим ...
0
голосов
1
ответ
31
показ
Как перемешать в строке определенное количество символов в perl
От меня уже был подобный вопрос о перемешивание всех символов в строке, и мне умный человек на этом портале подсказал как это сделать, а именно через команду perl -MList::Util=shuffle -lnE 'say ...
0
голосов
0
ответов
23
показа
Как выполнять PHP и Perl код при подключениях к моему Web-серверу на C
Допустим есть небольшая программа на C для Linux создающая простой Web-сервер, выдающий любые файлы из каталога. Вопрос таков, как можно сделать чтобы при запросе PHP и Perl скриптов, они выполнялись ...
-1
голос
1
ответ
77
показов
Перевод из 10чной системы в 16ричную
Нужен однострочный perl-код для перевода каждой строки в текстовом файле из DEC-системы в HEX.
В файле строка 123243421231245, необходимо что бы в выходном файле получилось 7016D857E88D, и так далее с ...
0
голосов
1
ответ
36
показов
Проблема с записью строки в фаил
Нужна помощь, хешируя строку через perl, мне нужно что бы хешированная строка записывалась в файл следующей строкой. Например, есть выходной файл result.txt, в нем первые строки уже заняты, мне нужно ...
0
голосов
1
ответ
55
показов
Извлечь из большого файла по многострочному паттерну (sed/grep/perl/awk)
Есть большой лог-файл (>10гб), в котором, помимо всего прочего, пишутся sip-логи, формата:
... другие логи ...
<--- SIP read from UDP:10.10.143.143:7000 --->
INVITE sip:1234@10.10.143.143 ...
0
голосов
0
ответов
25
показов
перевод из двоичной в 8ричную
Есть текстовый фаил в котором каждая строка в двоичной системе (256 символов), например: ...
-1
голос
1
ответ
32
показа
Объединение строк в текстовом файле
Подскажите, есть ли какой либо однострочник Perl, что бы считать фаил и объеденить несколько строк в одну.
Например, в txt следующий контент
123abc
456def
789000
abc123
def456
000989
Нужно сделать ...
0
голосов
1
ответ
64
показа
Перемешать символы в каждой строке
Есть текстовый файл, в котором каждая строка это цифра, например 123456789, мне нужно каждую строку файла перемешать, что бы получилось к примеру 978654123. Может быть есть какой нибудь простой способ ...
0
голосов
1
ответ
78
показов
Дешифрование пароля на бэкэнде
Доброго времени суток!
Столкнулся с такой задачей. Необходимо зашифровать пароль на JS (шифрую с помощью JSEncrypt RSA) и расшифровать его на бэкенде в Perl (использую модуль use Crypt::OpenSSL::RSA). ...
0
голосов
0
ответов
71
показ
Как на удалённом сервере создать приложение на pyton?
Никогда не имел делов с этим языком. На сервере есть папка cgi-bin и в ней файл test.cgi В нём приложение на perl, которое выводит тестовое сообщение.
#!/usr/bin/perl
print "Content-Type: text/...
0
голосов
1
ответ
175
показов
Создать класса стека и назначить ему методы
Хочу создать класс - MyClass, который по сути будет являться классом стека. И назначить ему методы. Пытаюсь реализовать хотя бы push.
Код файла скрипта:
use 5.32.1;
use strict;
use warnings;
BEGIN {...
0
голосов
1
ответ
25
показов
Perl5 perlbrew проблема с установкой
Работаю по этому мануалу:
https://metacpan.org/pod/App::perlbrew
Installation - установка работает, создает каталог в домашней директории
curl -L https://install.perlbrew.pl | bash
Initialize - ...
0
голосов
0
ответов
44
показа
Установка языка Perl в Linux
Не получается установить perl-5.34.1 через инструмент Perlbrew.
Использую официальный мануал perlbrew.pl
Также пробовал через сайт metaspan metacpan.org
Если кто устанавливал через данную утилиту ...
0
голосов
0
ответов
41
показ
Как присвоить переменную для целого условия в PERL?
Есть некий фрагмент кода
open FILE, '<', $test_txt or die $!;
while (<FILE>) {
$content = $_;
if (m/Difference/) {
print "$diff\n";
} else {
if (m/FC:/) ...
0
голосов
1
ответ
50
показов
PERL поиск информации по всему документу
Есть некий файл test.txt, в котором 1000+ строк
Как на языке PERL написать скрипт, чтобы когда читался файл, и находил одну или более строчек с надписью difference found, то выдавал error, а в ...
0
голосов
0
ответов
104
показа
Генерация криптокошельков из Brainwallet
Есть 70 блокчейнов, необходимо сгенерировать по ним адреса и закрытые ключи по одному только Brainwallet.
На эту тему есть какая-либо информация? Или нужно колупать отдельно каждый опенсорс проект?
...
0
голосов
2
ответа
104
показа
PERL чтение одной строки
Всем доброго времени суток, вопрос в следующем:
У меня есть некий test.txt, в котором находится 5 строчек информации.
Как в скрипте PERL я могу вывести только 3-ю строчку ?
Собственно вот код:
use ...
0
голосов
1
ответ
63
показа
Не работает вставка utf8 символов в mssql из-под Апача
Есть сайт написанный на Perl, работает на старой версии Ubuntu server. Начали переезд на новую версию сервера и сделали тестовую инсталяцию на убунте 20.04. Столкнулись с тем, что вставка utf8 ...
0
голосов
2
ответа
124
показа
Установка языка Perl В linux 2022
Здравствуйте начал изучать язык программирования Perl, работаю в Gnu/linux - Debian/Ubuntu. По умолчанию стоит версия Perl-5.30.0
Устанавливал через Perlbrew последнюю версию, официальная документация:...
0
голосов
1
ответ
171
показ
Как отследить обращение к файлу?
Сижу на CentOS 7. Есть огромное приложение (биллинг). В основном, состоящий из perl-файлов. Внутри его структуры лежит файл "license.key", к которому идёт обращение из разных уголков ...
0
голосов
1
ответ
33
показа
как в perl использовать ссылки на файлы с двойным слеш \\?
Есть ссылка на диск, например:
\link\
print '\\link';
результат получается:
\link
а мне нужен:
\\link Чтобы ссылка работала корректно
как этого добиться наиболее оптимальным способом?
0
голосов
1
ответ
50
показов
Выполнение одной подпрограммы множеством потоков
столкнулся с проблемой вернее с тем как заставить множество потоков выполнять одну подпрограмму,насколько я понял в Perl для этого используется функция lock(), но при запуске кода:
use warnings;
use ...
0
голосов
1
ответ
62
показа
Определение типов в динамически типизированных языках
Пишу на динамических языках как Python, Common Lisp и тд. И вот, бывает просматриваю исходный код библиотек, если у них не хватает документации, и бывает проблема определить какого типа входные данные ...
0
голосов
1
ответ
40
показов
Количество замен в регулярке
Пусть есть синтетическая конструкция (которая полезного не делает):
my $T = "dfg df dfg";
my $Cnt = ($T =~ s/(df)/$1/sg);
print "$Cnt\n";
Выведет:
3
Вопрос: А есть ли какая ...
0
голосов
1
ответ
26
показов
PERL прерывается цикл
Беру данные из одной таблицы. Там 10 записей получается.
Далее перерабатываю одно значение в каждой строке и это значение подставляю в новый запрос.
Но срабатывает только первая строка. Остальные ...
0
голосов
0
ответов
43
показа
PERL добавить символ к каждому элементу
Получаю из формы данные, выбираю те, которые начинаются с f
foreach my $key (param()) {
if ($key =~ /^f(\d+)$/) {
push(@pos, $key);
}
}
После чего ...
1
голос
2
ответа
83
показа
Выполнение команды оболочки из perl-скрипта
Изучаю perl, решил написать небольшой скриптик для личных нужд.
Среди прочего, скрипт должен выполнить переход в указанную папку и запустить там приложение. Проблема пока возникла именно с переходом в ...
0
голосов
1
ответ
45
показов
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
ответов
34
показа
PERL получить из формы и сформировать
Из формы получаю данные вида (name-value соответственно).
f40: 2930
f41: 6353
f42: 14755
f43: 21221
Далее пытаюсь получить значения без F
foreach my $key (param()) {
if ($key =~ /^f(\d+)$/) {
...
2
голоса
1
ответ
39
показов
Получить список дат последних модификаций файлов в папке
Собственно сабж. Опыта с Perl нет никакого. Нужно получить массив с датами последних модификаций всех файлов в конкретной папке. Пока пробую использовать нативные команды ОС и парсить результат, но ...
0
голосов
1
ответ
113
показов
При создании образа командой genisoimage файлы в проекте с кириллицей в образе отображаются кракозяблами. AstraLinux
Есть скрипт на perl который создает iso используя genisoimage. При запуске скрипта в терминале от рута кириллица в iso отображается нормально, при запуске из php русские символы названиях файлов ...
0
голосов
1
ответ
148
показов
Perl помогите разобраться с HTML::Parser
Гуглил, читал, примеры смотрел, но принцип работы парсера не понимаю...
sub title_handler {
my $self = shift;
$self->handler(text => sub { print @_ }, "dtext");
$self->...
1
голос
1
ответ
36
показов
Как заархивировать директорию Compress::Zlib в Perl
В дирректорию /home/logs/app/ пишутся csv файлы. Нужно директорию app упаковать и получить архив в /home/logs/.
Сейчас делаю системным вызовом "system ('zip -jr '/home/logs/app/logs.zip '/home/...
1
голос
2
ответа
79
показов
Вычитание времени в строках, используя awk, perl или другой однострочник
Подскажите, пожалуйста, каким способом можно решить следующую задачу с помощью однострочника?
Задача в том, чтобы вычитать значение из первого столбца предыдущей стройки из первого столбца текущей ...
-1
голос
1
ответ
88
показов
регулярное выражение чтобы достать текст после слова и внутри лапок [закрыт]
есть строка
name='asd',color='3',ids='1,2,2re'
мне надо достать 1,2,2re
1
голос
1
ответ
155
показов
PERL. Кол-во знаков после запятой после деления
Нужно с помощью Perl (или другим способом) поделить число, и результат вывести с точностью до 10 знаков после запятой.
Например, если в Bash использовать команду:
echo "scale=10;...
1
голос
1
ответ
53
показа
Почему возвращается 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
ответ
34
показа
строки. оператор повторения(repetition operator)
Есть две инструкции:
print "o" . "la" x 4 * 3, "\n";
print "ba" ."na" x4*3,"\n";
Если в первом случае вывод очевиден: o0, то почему во ...
0
голосов
2
ответа
141
показ
Редактор кода для perl
Какой редактор кода посоветуете для языка perl? Пока нашел только один рабочий, это Perl Express 2.4.5, но интерфейс мне совершенно не понравился. Больше ничего достойного найти не могу.
3
голоса
1
ответ
75
показов
Язык программирования Perl
пример отсюда -> http://citforum.ru/internet/perl_tut/syntax.shtml
$var = 1;
$var2 = 3 if $var > 0;
; почему не стоит после 3 ?, а стоит после условии...
А почему условие присваивется к ...
1
голос
0
ответов
108
показов
Perl: Как добавлять в файл не дубли
подскажите пожалуйста как правильно написать, что бы в файл выводились только уникальные значения, а дубли не добавлялись.
Я только несколько дней разбираюсь в Perle, ниже мой код, вернее не мой, а ...
1
голос
1
ответ
62
показа
Синтаксис языка программирования - Perl
-Из: https://perldoc.perl.org/perldata-
Если вы оцениваете массив в скалярном контексте, он возвращает длину массива. (Обратите внимание, что это не относится к спискам, которые возвращают последнее ...
1
голос
0
ответов
66
показов
Уникальный идентификатор письма и каталога в IMAP4
Встал вопрос создания резервных копий одного из почтовых ящиков с доступом по IMAP4. Идет активная переписка и почтовый ящик постоянно забивается по квоте. Приходится вручную чистить. Но удаленные ...
0
голосов
1
ответ
76
показов
Разница между 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
ответ
84
показа
Перенос строки в Net::XMPP (perl)
Есть скрипт, который принимает аргументы переданные в него с помощью вызова bat.cmd
Первый аргумент - адрес, второй - тело сообщения.
В теле сообщения перебрал все возможные способы переноса строк,
.. ...