0
ответов

Сравнить 2 файла Unix и вывести совпадающие строки в новый файл?

У меня есть 2 файла nix. Все данные находятся на одной единственной строке в каждом файле. Каждое значение разделено нулевым символом. Некоторые значения в данных совпадают. Как мне разобрать эти данные в новый файл ...
вопрос задан: 4 January 2012 04:44
0
ответов

Могу ли я использовать dtrace в OS X 10.5, чтобы определить, какой из моих подсистем Perl вызывает наибольшее выделение памяти?

У нас довольно большая база кода Perl. Некоторые процессы, которые выполняются в течение нескольких часов (задания ETL), внезапно начали потреблять намного больше оперативной памяти, чем обычно. Анализ изменений в соответствующем выпуске ...
вопрос задан: 3 January 2012 16:49
0
ответов

Изменение регистра первой буквы в каждой ячейке электронной таблицы

У меня много ячеек, которые я хотел бы преобразовать так, чтобы первая буква в каждой ячейке была заглавной. Например, cook, chef, fireman становится Cook, Chef, Fireman. У меня есть электронная таблица в OpenOffice.org, ...
вопрос задан: 3 January 2012 15:11
0
ответов

Как найти 10 самых больших файлов в заданном каталоге?

Как найти 10 самых больших файлов в заданном каталоге, с помощью Perl или Bash? EDIT: Мне нужно, чтобы это было рекурсивно. Я хочу видеть только большие файлы, без больших каталогов. Мне нужно, чтобы это работало на Mac OS X ...
вопрос задан: 3 January 2012 14:20
0
ответов

Как использовать $a и $b в подпрограмме Perl

Я хотел бы использовать переменные $a и $b в моих анонимных бинарных функциях, как это сделано в sort {$a <=> $b} (1, 2, 3), но я не могу понять, почему код типа #!/usr/bin/env perl use strict; ...
вопрос задан: 3 January 2012 14:14
0
ответов

Как выполнить SQL-подобный Join в Perl?

Мне нужно обработать некоторые данные, объединив два разных файла. Оба они имеют два столбца, которые образуют первичный ключ, который я могу использовать для сопоставления их друг с другом. Файлы, о которых идет речь, огромны (...
вопрос задан: 3 January 2012 13:41
0
ответов

Как "развязать" переменную?

насколько я знаю, если переменная запятнана, Perl не позволит использовать ее в system(), exec(), piped open, eval(), backtick или любой функции, которая влияет на что-то вне программы (например, ....
вопрос задан: 3 January 2012 08:13
0
ответов

Стоит ли мне отказаться от рефакторинга и запланировать переписывание? [закрыто]

Мне поручено поддерживать скромно большую систему (~60k LOC не-Moose OO Perl). Я начинаю сомневаться в целесообразности рефакторинга, а не переписывания. Я знаю, что этот вопрос был ...
вопрос задан: 1 January 2012 00:12
0
ответов

Как загрузить страницы, которые перенаправляют после входа?

Обычно страницы с формой входа можно загрузить с помощью wget --no-check-certificate --save-cookies cookies --keep-session-cookies \ --post-data="username=example&password=example" \ ...
вопрос задан: 31 December 2011 18:31
0
ответов

Что мне следует использовать: Perl LWP или lib curl?

Насколько я понимаю (с точки зрения клиента HTTP), у нас есть LWP и libcurl (WWW :: Curl), доступные в Perl. Есть ли у нас какие-либо критерии, которые выбрать?
вопрос задан: 30 December 2011 21:55
0
ответов

Как программно получить сеанс оболочки ssh с отслеживанием состояния?

Я работаю над приложением, которое должно отправлять команды удаленным серверам. Отправка команд достаточно проста с помощью множества клиентских библиотек SSH. Однако мне хотелось бы иметь состояние оболочки (например ...
вопрос задан: 30 December 2011 15:23
0
ответов

Как мне изменить формат даты в Perl?

Я просто хочу преобразовать даты из формата 20111230 в формат 30 декабря 2011 года.
вопрос задан: 30 December 2011 08:05
0
ответов

Как сделать так, чтобы Perl принимал входные данные из STDIN по одному символу за раз?

Я в некоторой степени новичок в Perl (по сравнению с людьми здесь). Я знаю достаточно, чтобы писать программы для выполнения многих задач из командной строки. В какой-то момент я решил написать команду ...
вопрос задан: 30 December 2011 04:00
0
ответов

Подсчитать группы захвата в регулярном выражении qr?

Я работаю над проектом, который в какой-то момент получает список файлов с ftp-сервера. В этот момент он либо возвращает ссылку на массив файлов, либо, если ему передается необязательная ссылка на регулярное выражение (например, qr) ...
вопрос задан: 28 December 2011 21:54
0
ответов

%ENV не работает и я не могу использовать разделяемую библиотеку

Я не могу использовать %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{...
вопрос задан: 28 December 2011 15:29
0
ответов

Более быстрая альтернатива eval?

Я имею дело с веб-приложением, которое использует собственную систему шаблонов, позволяющую встраивать Perl-код в HTML. Эти утверждения выполняются парсером шаблонов во время выполнения с помощью eval EXPR. Это ...
вопрос задан: 28 December 2011 05:27
0
ответов

Как знак доллара и числа вместе работают в perl?

Сегодня я столкнулся с проблемой, которая потребовала от меня определения максимального индекса массива в perl. Раньше я делал это так: мой @array = (1, 2, 3); напечатать $ array [@array - 1]; Но сегодня у меня ...
вопрос задан: 23 December 2011 17:20
0
ответов

Perl-массив разделения на основе условия с использованием grep

У меня есть код Perl, который выглядит примерно так: my @array = map {rand} (1..100); мой @matching = grep {$ _ == $ condition} @array; @array = grep {$ _! = $ condition} @array; Это работает нормально ...
вопрос задан: 23 December 2011 15:46
0
ответов

Ускорение perl DBI fetchrow_hashref

У меня есть что-то похожее на это: my $ report = new ReportGenerator; # пользовательский объект мой $ dbh = $ dbc-> prepare ('SELECT * FROM some_table WHERE some_condition'); #DBI handle $ dbh-> выполнить (); ...
вопрос задан: 22 December 2011 15:26
0
ответов

Perl: Как мне объявить пустые ссылки на массив в новом хэше?

У меня есть строгие предупреждения и предупреждения, но они продолжает жаловаться на инициализацию следующей строки: $ hash {$ key} = ($ row, [], [], [], ''); Он предупреждает об этой единственной строке: «Бесполезное использование ...
вопрос задан: 22 December 2011 03:27
0
ответов

Perlcritic - Ошибка «открытия» с двумя аргументами

У меня есть сценарий, и я пытаюсь устранить плохие методы с помощью perlcritic. У меня есть одна строка: open (my ($ FREESPCHK), $ cmdline) || & zdie ($ MSG_PASSTHRU, "Ошибка при проверке свободного места в ...
вопрос задан: 21 December 2011 17:45
0
ответов

Неблокирующее / асинхронное выполнение в Perl

Есть ли способ реализовать неблокирующее / асинхронное выполнение (без fork()'ing) в Perl? Я был разработчиком Python в течение многих лет... В Python есть действительно замечательный фреймворк Twisted, который ...
вопрос задан: 20 December 2011 13:30
0
ответов

Как получить все группы из LDAP с помощью Perl

У меня есть Perl скрипт, который связывается с LDAP сервером и получает всех пользователей. Пока что он работает хорошо, но я хочу отфильтровать этот поиск, чтобы собрать все группы. Как только я получу все группы, пользователь сможет ...
вопрос задан: 20 December 2011 08:33
0
ответов

Как легко разобрать между
и
в Perl

Я хочу разобрать веб-сайт в структуру данных Perl. Сначала я загружаю страницу с помощью LWP::Simple; my $html = get("http://f.oo"); Теперь я знаю два способа работы с ней. Первый - это обычные ...
вопрос задан: 20 December 2011 00:50
0
ответов

Веб-программирование для программистов, не являющихся веб-разработчиками (на Perl)

Я хочу начать веб-программирование на Perl (Perl - единственный язык, который я знаю). Проблема в том, что у меня нет никаких предварительных знаний ни о чем, кроме серфинга в Интернете. Я понятия не имею, где ...
вопрос задан: 19 December 2011 11:02
0
ответов

Сортировка по нескольким столбцам (Perl)

Как мне сделать сортировку по нескольким столбцам для приведенного ниже кода? В настоящее время код: 1. Получает @список файлов в каталоге $directory 2. Использует regex для получения $fileName, $fileLocation и $fileSize ...
вопрос задан: 19 December 2011 01:44
0
ответов

Чтение определенной строки из большого файла в Perl

Есть ли какой-нибудь быстрый и экономный способ прочитать определенные строки из большого файла, не загружая его в память? Я написал perl скрипт, который запускает много форков, и я хотел бы, чтобы они читали определенные строки ...
вопрос задан: 18 December 2011 15:30
0
ответов

Чем отличаются механизмы ввода параметров в Perl?

Читая скачанный модуль Perl, я обнаружил несколько способов определения входных параметров, которые перечислены ниже. Каковы различия между ними? sub new{ my $class = shift; my $...
вопрос задан: 16 December 2011 22:04
0
ответов

Как мне узнать, какой сценарий, программа или оболочка выполнили мой сценарий Perl?

Как мне определить, какой сценарий, программа или оболочка выполнили мой сценарий Perl? Пример: я мог бы захотеть иметь удобочитаемый вывод при выполнении из оболочки (настроенной для каждого типа оболочки), ...
вопрос задан: 16 December 2011 21:24
0
ответов

Как мне изменить прототип, чтобы разрешить создание хэша после coderef?

Вот что у меня есть: use 5.14.0; используйте строгий; использовать предупреждения; sub my_func (& $) {мой $ coderef = shift; мой% attribs = @_; } Вот чего я хотел бы добиться: my_func {print 1; } ...
вопрос задан: 16 December 2011 13:56