У меня есть 2 файла nix. Все данные находятся на одной единственной строке в каждом файле. Каждое значение разделено нулевым символом. Некоторые значения в данных совпадают. Как мне разобрать эти данные в новый файл ...
У нас довольно большая база кода Perl. Некоторые процессы, которые выполняются в течение нескольких часов (задания ETL), внезапно начали потреблять намного больше оперативной памяти, чем обычно. Анализ изменений в соответствующем выпуске ...
У меня много ячеек, которые я хотел бы преобразовать так, чтобы первая буква в каждой ячейке была заглавной. Например, cook, chef, fireman становится Cook, Chef, Fireman. У меня есть электронная таблица в OpenOffice.org, ...
Как найти 10 самых больших файлов в заданном каталоге, с помощью Perl или Bash? EDIT: Мне нужно, чтобы это было рекурсивно.
Я хочу видеть только большие файлы, без больших каталогов.
Мне нужно, чтобы это работало на Mac OS X ...
Я хотел бы использовать переменные $a и $b в моих анонимных бинарных функциях, как это сделано в sort {$a <=> $b} (1, 2, 3), но я не могу понять, почему код типа #!/usr/bin/env perl
use strict;
...
Мне нужно обработать некоторые данные, объединив два разных файла. Оба они имеют два столбца, которые образуют первичный ключ, который я могу использовать для сопоставления их друг с другом. Файлы, о которых идет речь, огромны (...
насколько я знаю, если переменная запятнана, Perl не позволит использовать ее в system(), exec(), piped open, eval(), backtick или любой функции, которая влияет на что-то вне программы (например, ....
Мне поручено поддерживать скромно большую систему (~60k LOC не-Moose OO Perl). Я начинаю сомневаться в целесообразности рефакторинга, а не переписывания. Я знаю, что этот вопрос был ...
Обычно страницы с формой входа можно загрузить с помощью wget --no-check-certificate --save-cookies cookies --keep-session-cookies \ --post-data="username=example&password=example" \ ...
Насколько я понимаю (с точки зрения клиента HTTP), у нас есть LWP и libcurl (WWW :: Curl), доступные в Perl. Есть ли у нас какие-либо критерии, которые выбрать?
Я работаю над приложением, которое должно отправлять команды удаленным серверам. Отправка команд достаточно проста с помощью множества клиентских библиотек SSH. Однако мне хотелось бы иметь состояние оболочки (например ...
Я в некоторой степени новичок в Perl (по сравнению с людьми здесь). Я знаю достаточно, чтобы писать программы для выполнения многих задач из командной строки. В какой-то момент я решил написать команду ...
Я работаю над проектом, который в какой-то момент получает список файлов с ftp-сервера. В этот момент он либо возвращает ссылку на массив файлов, либо, если ему передается необязательная ссылка на регулярное выражение (например, qr) ...
Я не могу использовать %ENV var в моем Perl скрипте для использования Oracle libs. BEGIN { $ORACLE_HOME = "/usr/lib/oracle/10.2.0.3/client64"; $LD_LIBRARY_PATH = "$ORACLE_HOME/lib"; $ORACLE_SID="prod"; $ENV{...
Я имею дело с веб-приложением, которое использует собственную систему шаблонов, позволяющую встраивать Perl-код в HTML. Эти утверждения выполняются парсером шаблонов во время выполнения с помощью eval EXPR. Это ...
Сегодня я столкнулся с проблемой, которая потребовала от меня определения максимального индекса массива в perl. Раньше я делал это так: мой @array = (1, 2, 3);
напечатать $ array [@array - 1]; Но сегодня у меня ...
У меня есть код Perl, который выглядит примерно так: my @array = map {rand} (1..100);
мой @matching = grep {$ _ == $ condition} @array;
@array = grep {$ _! = $ condition} @array; Это работает нормально ...
У меня есть что-то похожее на это: my $ report = new ReportGenerator; # пользовательский объект
мой $ dbh = $ dbc-> prepare ('SELECT * FROM some_table WHERE some_condition'); #DBI handle
$ dbh-> выполнить ();
...
У меня есть строгие предупреждения и предупреждения, но они продолжает жаловаться на инициализацию следующей строки: $ hash {$ key} = ($ row, [], [], [], ''); Он предупреждает об этой единственной строке: «Бесполезное использование ...
У меня есть сценарий, и я пытаюсь устранить плохие методы с помощью perlcritic. У меня есть одна строка: open (my ($ FREESPCHK), $ cmdline) || & zdie ($ MSG_PASSTHRU, "Ошибка при проверке свободного места в ...
Есть ли способ реализовать неблокирующее / асинхронное выполнение (без fork()'ing) в Perl? Я был разработчиком Python в течение многих лет... В Python есть действительно замечательный фреймворк Twisted, который ...
У меня есть Perl скрипт, который связывается с LDAP сервером и получает всех пользователей. Пока что он работает хорошо, но я хочу отфильтровать этот поиск, чтобы собрать все группы. Как только я получу все группы, пользователь сможет ...
Я хочу разобрать веб-сайт в структуру данных Perl.
Сначала я загружаю страницу с помощью LWP::Simple;
my $html = get("http://f.oo"); Теперь я знаю два способа работы с ней.
Первый - это обычные ...
Я хочу начать веб-программирование на Perl (Perl - единственный язык, который я знаю). Проблема в том, что у меня нет никаких предварительных знаний ни о чем, кроме серфинга в Интернете. Я понятия не имею, где ...
Как мне сделать сортировку по нескольким столбцам для приведенного ниже кода? В настоящее время код:
1. Получает @список файлов в каталоге $directory
2. Использует regex для получения $fileName, $fileLocation и $fileSize ...
Есть ли какой-нибудь быстрый и экономный способ прочитать определенные строки из большого файла, не загружая его в память? Я написал perl скрипт, который запускает много форков, и я хотел бы, чтобы они читали определенные строки ...
Читая скачанный модуль Perl, я обнаружил несколько способов определения входных параметров, которые перечислены ниже. Каковы различия между ними? sub new{ my $class = shift; my $...
Как мне определить, какой сценарий, программа или оболочка выполнили мой сценарий Perl? Пример: я мог бы захотеть иметь удобочитаемый вывод при выполнении из оболочки (настроенной для каждого типа оболочки), ...
Вот что у меня есть: use 5.14.0;
используйте строгий;
использовать предупреждения; sub my_func (& $) {мой $ coderef = shift; мой% attribs = @_;
} Вот чего я хотел бы добиться: my_func {print 1;
} ...