Вопросы по теме '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 просмотров

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 просмотров

Отличия 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