0
ответов
* nix: выполнить объединение / пересечение / разность списков
Иногда мне нужно сравнить два текстовых файла. Очевидно, что diff показывает различия, он также скрывает сходства, что в некотором роде суть. Предположим, я хочу провести другие сравнения этих файлов: ...
вопрос задан: 15 December 2011 13:03
0
ответов
Любой способ трактовать. * Как. {0,1024} в perl RE?
Мы разрешаем некоторые пользовательские RE с целью фильтрации электронной почты. Вначале мы столкнулись с некоторыми проблемами производительности с RE, которые содержали, например,. *, При сопоставлении с произвольно большими ...
вопрос задан: 15 December 2011 09:15
0
ответов
Повторно запустить итерацию цикла
У меня есть это программа, которая берет массив слов и просит пользователя ввести предложение, которое содержит каждое слово из массива: @words = qw (Привет, мир, спасибо);
foreach $ word (@words) {print "...
вопрос задан: 15 December 2011 04:17
0
ответов
"include" - функция для Perl
У меня есть функция, которую я хотел бы определить в двух разных скриптах Perl, но мне не нравится редактировать оба. Есть ли способ включить ее (как в PHP) из внешнего файла? FUNC FILE: sub test ...
вопрос задан: 15 December 2011 03:34
0
ответов
Стандартный ввод perl Padre IDE не работает
Я использую padre 0.64 как perl IDE в Windows Vista. Стандартная команда ввода не работает, я попробовал тот же код в строке cmd, и он сработал, т.е. мой $ k = <>; print $ k; Есть ли способ ...
вопрос задан: 14 December 2011 20:38
0
ответов
извлечение десятичного числа из строки в perl [закрыто]
Из строки, приведенной ниже, мне нужно извлечь десятичное число после «Info», т. Е. 1.1.3: Идентификатор теста тестирования изображения 10159 Тип MANUAL Designer xyzz (u887) Продукт WW EEE Дата 3/4/2010 Статус выполнения Нет статуса выполнения ...
вопрос задан: 14 December 2011 15:18
0
ответов
Как заставить perl -c выдавать ошибки неопределенных или необъявленных функций?
Исходя из опыта работы с C ++, я неукоснительно использую функции use strict и предупреждений Perl: #! / Usr / bin / perl -w
используйте строгий;
использовать предупреждения; $ foo = 1; # Выдает "$ foo" требует явного имени пакета ...
вопрос задан: 14 December 2011 13:53
0
ответов
Используйте готовый класс символов и еще больше ограничьте его.
В регулярных выражениях Perl доступно множество готовых классов символов, таких как \ d или \ S, или новомодных гроккеров Unicode, таких как \ p {P}, что соответствует знакам препинания. Теперь предположим ...
вопрос задан: 14 December 2011 11:44
0
ответов
Выберите первый тег абзаца, не содержащийся в другом теге, используя RegEx (в стиле Perl)
I иметь этот блок html:
Первый, вложенный абзац
Первый, невложенный абзац.
Второй абзац
Последний ...
вопрос задан: 13 December 2011 23:31
0
ответов
Как я могу использовать Catalyst и связывание uri с интерфейсом REST?
Я ожидая получения uri типа / user / * / account / * У меня есть пользовательская функция, определенная как дополнительный пользователь: Path ('/ user'): PathPart (''): ActionClass ('REST') {} затем sub user_GET : PathPart ('user') ...
вопрос задан: 13 December 2011 17:43
0
ответов
Как я могу запустить тест в своем наборе тестов модуля Perl, только если требуемый модуль установлен?
Я хочу добавить тест в свой дистрибутив Perl, для которого требуется модуль Foo, но мой дистрибутив не требует Foo; только тест требует Foo. Поэтому я не хочу добавлять модуль к зависимостям, ...
вопрос задан: 13 December 2011 05:42
0
ответов
Perl точка с запятой в конце оператора
; используется как разделитель операторов, поэтому размещение нескольких; в конце оператора - это нормально, поскольку он просто добавляет пустые операторы. Я наткнулся на этот код, у которого несколько; в конце, но удаляя ...
вопрос задан: 13 December 2011 04:37
0
ответов
Perl Обработка разделителей каталогов
Я действительно должен это знать, но я работал в основном с Linux, Mac OS X и Windows, которые все используют косую черту (/) в качестве разделитель каталогов (Windows может использовать \ или /.). Это означает, что когда я ...
вопрос задан: 13 December 2011 00:18
0
ответов
Perl-разделение и регулярное выражение
У меня есть следующая строка: «Оливки, выращенные на 100% в Калифорнии, вода, соль и глюконат железа (An , Iron, Derivative), asasd, sadasda 'Я пытаюсь разделить его на /, / но только если он не в скобках, ...
вопрос задан: 12 December 2011 22:07
0
ответов
Как передать хэш по ссылке в perl
Я знаю, что это должно быть легко найти в google, не говоря уже о тривиальном использовании perl, но я пробовал много решений, которые я нашел, и до сих пор ни одно из них не дает ожидаемого поведения. По сути, я ...
вопрос задан: 12 December 2011 21:52
0
ответов
Perl: Использование Loop или Map / Grep?
Я пишу программу для обхода дерева каталогов (да, я знаю о File :: Find, но пишу замену). В своей программе я делаю readdir для всего каталога и помещаю его в список ....
вопрос задан: 12 December 2011 19:44
0
ответов
В чем разница между лексической и динамической областью видимости в Perl?
Насколько я знаю, оператор my предназначен для объявления переменных с истинной лексической областью видимости, а динамическое определение области видимости выполняется с использованием локального оператора для объявления переменной. Может ли кто-нибудь
вопрос задан: 12 December 2011 12:04
0
ответов
Почему // имеет более низкий приоритет, чем равенство в perl?
Почему // имеет более низкий приоритет, чем == в (по крайней мере) perl 5.010? Например, используйте 5.010;
мой $ may_be_undefined = 1;
мой $ is_equal_to_two = ($ may_be_undefined // 0 == 2);
скажем, $ is_equal_to_two; ...
вопрос задан: 12 December 2011 02:33
0
ответов
Как преобразовать простой хэш в json в Perl?
Я использую следующий код для кодирования простого хэша в JSON; my $name = "test";
my $type = "A";
my $data = "1.1.1.1.1";
my $ttl = 84600; @rec_hash = ('name'=>$name, 'type'=>$type,'data'=>....
вопрос задан: 11 December 2011 12:29
0
ответов
Когда мне следует использовать атрибуты подпрограмм?
Я вообще не ищу атрибуты подпрограмм Perl. Я никогда не видел их в реальном коде и perldoc perlsub и атрибуты perldoc не отвечают на мои вопросы: для чего атрибуты полезны?
Что ...
вопрос задан: 10 December 2011 12:23
0
ответов
Perl-аларм с подпроцессом
У меня есть Perl-скрипт, который запускает серию пакетных скриптов для регрессионного тестирования. Я хочу реализовать тайм-аут для пакетных скриптов. В настоящее время у меня есть следующий код. my $ pid = open CMD, "$ ...
вопрос задан: 9 December 2011 22:22
0
ответов
Использование Perl для переименования файлов в каталоге
Я бы хотел взять каталог и для всех файлов электронной почты (* .msg) удалить 'RE' в начале. У меня есть следующий код, но не удается переименовать. opendir (DIR, 'email') или die «Невозможно открыть каталог»;
...
вопрос задан: 9 December 2011 19:40
0
ответов
Как я могу зашифровать или скрыть пароли в сценарии Perl, используемом для подключения к базе данных mysql
Мне было интересно, как лучше всего хранить имена пользователей и пароль для подключения к базе данных mysql?
вопрос задан: 8 December 2011 20:20
0
ответов
Perl DBI, альтернатива LongReadLen
Я хотел бы знать, как наиболее эффективно использовать память для извлечения произвольно больших полей данных из базы данных Oracle с помощью Perl DBI. Известный мне метод - установить атрибут LongReadLen в базе данных ...
вопрос задан: 8 December 2011 16:09
0
ответов
Perl: LWP :: UserAgent всегда возвращает код 200 для перенаправленных URL-адресов
У меня есть простой URL-адрес, который выполняет временную задержку 302. перейти на другую страницу. Я пытаюсь выяснить, возвращает ли URL-адрес код 200 (для ОК), чтобы получить его и остановиться, если возвращается что-то еще, чем 200. Мой код: my $ ...
вопрос задан: 8 December 2011 14:17
0
ответов
Что не так в этом выражении Perl?
В чем проблема в следующем. Я получаю ошибку $attribute not defined. if (my $attribute = $Data->{'is_new'} and $attribute eq 'Y') {
}
вопрос задан: 8 December 2011 05:31
0
ответов
Perl DBI вставляет несколько строк, используя встроенную возможность множественной вставки mysql
Кто-нибудь видел модуль типа DBI для Perl, который легко использует заглавные буквы, на синтаксисе множественной вставки MySQL вставить в значения TBL (col1, col2, col3) (1,2,3), (4,5,6), ...? Я еще не нашел интерфейса ...
вопрос задан: 7 December 2011 19:59
0
ответов
Кодирование хеш-ключей: Почему я получаю здесь с Devel :: Peek :: Dump два разных результата?
Почему я получаю здесь с Devel :: Peek :: Dump два разных результата? #! / usr / bin / env perl
использовать предупреждения;
используйте 5.014;
используйте utf8;
binmode STDOUT, ': кодировка (utf-8)';
используйте Devel :: Peek; my% hash1 = ('müller'
вопрос задан: 7 December 2011 16:11
0
ответов
Как удалить строки, соответствующие определенному шаблону в Perl?
Я хотел бы сделать что-то похожее на sed в Perl, а именно иметь возможность удалять строки, соответствующие определенному шаблону. Учитывая этот ввод: abcd
edfd
abcd
derder
abcd
erre Я хочу удалить строки, содержащие ...
вопрос задан: 7 December 2011 15:44
0
ответов
XML :: LibXML replace element value
Я хочу заменить значение "VAL1" элемента в xml-файле. У меня почему-то не работает:
ТЕСТ
...
вопрос задан: 7 December 2011 07:16