Вопросы по теме 'perl'
perl — помогите переработать код, чтобы включить использование подпрограммы
Мой тестовый сценарий просто устанавливает соединение perl dbi с базой данных mysql и, учитывая список таблиц, извлекает (1) запись для каждой таблицы.
Для каждой таблицы, которую я перечисляю, я также хочу распечатать эту (1) запись в отдельный...
150 просмотров
schedule
14.12.2023
Сокращение для изменения значения в массиве хэш-ссылок
У меня есть массив хэш-рефов. Поле даты в хеше хранится в эпохе. Я должен отформатировать его для чтения человеком, прежде чем возвращать массив. Ниже приведен мой код:
for my $post (@sorted) {
$post->{date} =...
343 просмотров
schedule
31.10.2023
perl-вызов ruby-скрипта с использованием обратных кавычек ничего не возвращает
Итак, у меня есть ruby-скрипт, который берет некоторые данные с FM-сервера и возвращает кортеж. Мне пришлось сделать это, потому что я не знаю хорошего Perl FM-модуля.
[test.pl]
$ret = `ruby /root/rfm-query.rb $cid`;
@extens = split(/,/,...
1058 просмотров
schedule
29.11.2023
Регулярные выражения и повторяющиеся классы символов в Perl
Я пытаюсь написать регулярное выражение, которое может извлекать (возможно, несколько) строк из четырех шестнадцатеричных чисел/букв.
Я мог бы сделать что-то вроде этого: /^[A-Fa-f0-9][A-Fa-f0-9][A-Fa-f0-9][A-Fa-f0-9]/
но есть ли лучший способ?...
7351 просмотров
schedule
15.12.2023
Ошибка DBD::mysql::st fetchrow_array: выборка() без выполнения()
fetchrow_hashref работает нормально, но когда я использую fetchrow_array, возникает следующая ошибка.
#!/usr/bin/perl
use warnings;
use DBI;
$DB_name = 'database';
$DB_user = 'root';
$DB_pwd = '';
my $dsn =...
15757 просмотров
schedule
12.11.2023
Как я могу рассчитать время успеха или неудачи opendir?
Я пишу структуру для проверки поведения CernVM FS . По сути, у меня есть служба, которая монтирует удаленную файловую систему, обслуживаемую через http, и делает это с помощью автоматического монтирования, как только пользователь пытается получить...
274 просмотров
schedule
04.12.2023
Невозможно установить Image::ExifTool из-за зависания «сделать тест»
У меня есть Netgear ReadyNAS NV+ , на котором я пытаюсь сделать некоторые вещи, используя perl.
Поскольку установка perl от поставщика скомпилирована без флага uselargefiles , я попытался скомпилировать/установить свою собственную версию для...
725 просмотров
schedule
16.11.2023
Perl HTML::Класс TreeBuilder содержит условие
Я пытаюсь использовать Perls HTML::TreeBuilder для извлечения данных с HTML-страницы. Мои селекторы включают следующее:
$root->look_down(_tag => 'div', class => 'member-search-results');
Однако div , который я ищу, имеет несколько...
434 просмотров
schedule
05.11.2023
Объединение двух однострочных команд Perl в скрипт
Я пытаюсь объединить следующие два однострочных Perl-кода в один Perl-скрипт, который выполняет оба в строке файла, прежде чем перейти к следующей строке. Обратите внимание, что это не мой собственный исходный код, он был очень продуманно представлен...
2956 просмотров
schedule
01.11.2023
Парсинг ASP-сайтов с помощью perl mechanize
Я пытаюсь очистить сайт на основе Asp. Я использую модуль Perl Mechanize для извлечения источника страницы. Я в основном использую регулярные выражения для очистки сайтов.
http://www.imathlete.com/events/EventSearch.aspx#SearchResults
но я не...
504 просмотров
schedule
17.11.2023
виртуальный бокс + perl + общая папка == сбой
Это запутанный вопрос, так что потерпите меня. У меня есть сценарий Perl, который находится в гостевой системе Windows VirtualBox. Я хочу вызвать этот скрипт с хоста Linux и заставить его читать общую папку с хоста. Чтение папки не удается.
На...
368 просмотров
schedule
20.12.2023
Отличия STDIN дочернего процесса Windows / Linux
Я создал простой скрипт обработки текста на работе, который будет использоваться другой программой. Когда я закончил, кто-то вспомнил, что скрипт не должен блокировать STDIN / STDOUT, чтобы инструмент, использующий его, работал правильно, и изменил...
124 просмотров
schedule
04.11.2023
LWP :: Simple :: получить изменения кодировки
Полагаю, я неправильно использую LWP :: Simple :: get, но я не понимаю, как это исправить. Моя первая попытка была простой
perl -e 'use LWP::Simple; print get("http://localhost/wtf.txt");'
, но это не сработало. wtf.txt содержит один...
532 просмотров
schedule
01.12.2023
Как получить сообщение об ошибке или сообщение после выполнения командлета в Perl
Я использую эту команду для поиска и получения сведений о файле на удаленном сервере.
my $output=`psexec \\\\host cmd /c "dir /s d:\\folder\file`
если файлы присутствуют, он отобразит все файлы и их путь, и они хранятся в $output , если путь...
87 просмотров
schedule
28.10.2023
Понимание того, что не так с моим заголовком авторизации с использованием Perl, HTTP, LWP
У меня есть фрагмент кода PHP, который создает запрос PUT хранилища BLOB-объектов к контейнеру в моей учетной записи хранения Azure. После значительных возни я, наконец, получил правильный заголовок, и все хорошо. К сожалению, приложение, в котором...
331 просмотров
schedule
20.11.2023