0
ответов

преобразование типов perl, javascript, JSON.parse JSON :: XS - нужны идеи

Я застрял на проблеме и ищу идеи относительно лучшего способа ее решения. Я взял на себя разработку сайта, на котором серверная часть написана на Perl, а интерфейсная часть широко используется ...
вопрос задан: 12 February 2012 20:41
0
ответов

Программа Java или Perl Script для копирования текст с веб-страницы

В частности, мне интересно, можно ли в java (предпочтительно) или perl ввести URL-адрес и скопировать текст с этой страницы? В частности, я хочу иметь возможность искать что-то в Google и просто копировать ...
вопрос задан: 12 February 2012 06:06
0
ответов

Проблемы с проверкой введенного имени пользователя и неструктурированного файла для создания пользователя

Я работаю над логином пользователя, и у меня проблемы с частью создания пользователя. Моя проблема в том, что я пытаюсь проверить введенное имя пользователя по текстовому файлу, чтобы узнать, существует ли это имя пользователя уже. Я ...
вопрос задан: 11 February 2012 17:44
0
ответов

Когда мне следует предпочесть регулярное выражение встроенным строковым функциям?

Некоторые говорят, что я должен использовать регулярное выражение, когда это возможно, другие говорят, что я должен использовать его, по крайней мере, насколько это возможно. Есть ли что-то вроде «этикета Perl» по этому поводу или просто TIMTOWTDI?
вопрос задан: 11 February 2012 15:36
0
ответов

Является ли в Perl хорошей практикой, когда методы экземпляра вызывают друг друга по ссылке «$ self»?

Должны ли методы экземпляра в Perl вызывать друг друга следующим образом: package BlaBla; sub foo {my ($ self) = @_; # сделай что-нибудь крутое; } дополнительная панель {my ($ self) = @_; foo (); } Или вот так: ...
вопрос задан: 11 February 2012 15:36
0
ответов

Как мне использовать класс URI Perl?

Мне нужно обрабатывать некоторые URL-адреса HTTP в программе Perl, но я сомневаюсь, как класс URI должен мне помочь. В частности, я бы хотел использовать класс URI для разрешения относительных URL-адресов и получения их ...
вопрос задан: 11 February 2012 12:53
0
ответов

Perl regexp как экранировать только некоторые символы

У меня есть строка $regexp_as_string Теперь я хочу "преобразовать" ее в regex / использовать как regexp if ($text_to_search =~ $regexp_as_string) { ... } Теперь есть символы типа ".", и я хочу ...
вопрос задан: 11 February 2012 11:20
0
ответов

Выполнение внешних программ на Perl

Я выполняю несколько внешних программ из сценария Perl и хочу автоматически обрабатывать запросы от этой программы. Я знаю, что это за подсказки, это не условия ошибки, и мне нужен сценарий ...
вопрос задан: 10 February 2012 18:03
0
ответов

C # Regex Replace и *

Я программист на Perl, немного занимаюсь C #. Столкнувшись со странной проблемой с Regex.Replace в отношении утверждения «ноль или более», *. Скажем, я хотел заменить ноль или более букв одной буквой. В ...
вопрос задан: 10 February 2012 12:02
0
ответов

perl, добавьте символ в i-ю группу захвата

У меня есть один вкладыш: perl -pe 's |. *? ((\ D {1, 3} \.) {3}) xxx. * | \ 1 | ' Я скармливаю этой команде некоторые данные, например 192.168.1.xxx, и она работает. Теперь я хочу добавить 0 к выходной последовательности, но из ...
вопрос задан: 10 February 2012 11:45
0
ответов

Сбой производительности при использовании отражения $ foo -> $ bar ()

Я хотел бы знать, что именно происходит, когда я использую отражение для вызова метода, имя которого у меня есть в виде строки: my $ foo = Foo- > новый (); мой $ method = 'myMethod'; $ foo -> $ method (); на ~ 20% медленнее, чем ...
вопрос задан: 10 February 2012 04:24
0
ответов

Регулярное выражение для соответствия самой длинной повторяющейся подстроке

Я пишу регулярное выражение для проверки наличия подстроки, которая содержит по крайней мере 2 повторения некоторого шаблона рядом друг с другом. Я сопоставляю результат регулярного выражения с предыдущей строкой - если равно, ...
вопрос задан: 9 February 2012 20:05
0
ответов

Как в perl заменить набор символов другим набором символов за один проход?

Учитывая ... Ax ~ B ~ xCx ~ xDx ... emit ... A ~ -B- ~ C ~ - ~ D ~ Я хочу заменить символы ~ на - и символы x на ~. Я мог бы написать ... s / ~ / - / g; s / x / ~ / g; ... но это (похоже) проходит ...
вопрос задан: 9 February 2012 19:47
0
ответов

Прослушивание событий клавиатуры без их перехвата?

Я пишу приложение командной строки, которое прослушивает события отпускания клавиши Control в X Windows и предупреждает другой процесс, когда он их обнаруживает. Поскольку я новичок в GNU / Linux, я бы предпочел избегать ...
вопрос задан: 9 February 2012 18:27
0
ответов

Спецификаторы цвета Perl с перенаправленным выводом

У меня есть сценарий Perl, который использует Term :: ANSIColor. Раньше было так, что если я перенаправлял вывод в файл> file.txt, тогда файл содержал только текст, а не цветовые коды ^ [[0m ...
вопрос задан: 9 February 2012 18:16
0
ответов

Как просмотреть STDOUT работающей программы из программы Perl, которая ее вызвала?

Мы пытаемся выяснить, как запустить приложение Java из скрипта Perl, но по-прежнему иметь возможность периодически читать из STDOUT java-приложения.print "running dcmrcv.bat\n";откройте мой $fh_dcmrcv,...
вопрос задан: 9 February 2012 17:48
0
ответов

Чем Moose отличается от объектно-ориентированной системы Python? [закрыто]

Мой первоначальный вопрос был слишком расплывчатым и был «закрыт как неконструктивный». Поэтому я пересмотрю вопрос, чтобы он отвечал на уже опубликованные ответы. :-) Меня интересует ...
вопрос задан: 9 February 2012 15:54
0
ответов

Проверить список модулей, установленных на машине

Я создал сценарий, чтобы сообщить администратору список модулей, которые необходимо установить на машине. Я пытаюсь проверить, установлен ли модуль нижеприведенным кодом. Странно то, что это ...
вопрос задан: 9 February 2012 11:07
0
ответов

Perl - ответственный разветвление

Я недавно открыл для себя разветвление Perl и я очень влюблен. Но меня беспокоит одно - если я просто разделяю процессы на лево и право, наверняка это где-то вызовет какие-то проблемы. Есть ли ...
вопрос задан: 9 February 2012 07:44
0
ответов

Простейший способ выполнить базовый синтаксический анализ xml из командной строки unix

Я ищу файлы xml с определенными свойствами. Например, файлы, содержащие следующий шаблон: Hosts some ...
вопрос задан: 8 February 2012 19:57
0
ответов

Эта строка Perl бессмысленна? s/^(\d+)\b/$1/sg

Эта строка Perl действительно что-то делает? $variable =~ s/^(\d+)\b/$1/sg; Единственное, что я могу придумать, это то, что $1 или $& могут быть использованы повторно, но за ней сразу же следует. $variable =~ s/\D//...
вопрос задан: 8 February 2012 15:28
0
ответов

Передача разрешений функциям perl chmod и mkdir

Вот кое-что, чего я не понимаю. В perl, допустим, у меня есть файл (дескриптор) $ file, затем мой $ mode = (stat $ file) [2]; дает режим файла, описанный как тип и разрешения. Затем в ...
вопрос задан: 8 February 2012 03:43
0
ответов

Как правильно исключить RequireRcsKeywords из Perl Critic?

Я пытаюсь исключить проверки RequireRcsKeywords Perl Critic в одном скрипте Perl. Я не хочу изменять свою политику по умолчанию в .perlcriticrc, поэтому я добавил строку «нет критиков» в начало ...
вопрос задан: 7 February 2012 19:01
0
ответов

perl заключить одиночную переменную в двойные кавычки

Есть ли в Perl причина заключать одиночную переменную в двойные кавычки (без конкатенации)? Я часто встречаю это в исходниках программы, над которой работаю (написанной 10 лет назад людьми, которые ...
вопрос задан: 6 February 2012 09:52
0
ответов

perl \ @ escape-последовательность

У меня есть сценарий Perl с чем-то вроде следующее: "\" blah \ @ $ string; blah \ "" Но я не уверен, что \ @ делает / должен делать. Я пробовал погуглить '\ @', но, похоже, ничего не нашел ....
вопрос задан: 6 February 2012 08:56
0
ответов

Сравнение нескольких строк в Perl

У меня есть такой код: if ($ var eq "str1" || $ var eq "str2" || $ var eq "str3") { ... } Есть ли способы оптимизировать это. Мне нужно что-то вроде: if ($ var eq ["str1" || "str2" || "str3"]) {......
вопрос задан: 6 February 2012 08:27
0
ответов

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

Мне удалось найти похожие, но не идентичные вопросы. Как мне сопоставить один шаблон regex несколько раз в одной строке, разделенной неизвестными символами? Например, допустим, я хочу ...
вопрос задан: 6 February 2012 06:28
0
ответов

Проверка синтаксиса Perl неглубоким? т.е. не проверять синтаксис импорта

Как я могу выполнить "неглубокую" проверку синтаксиса для perl-файлов. Стандартный perl -c полезен, но он проверяет синтаксис импорта. Иногда это приятно, но не здорово, когда вы работаете в репозитории кода ...
вопрос задан: 5 February 2012 18:35
0
ответов

Что означает «не работает под какой-либо оболочкой» в сценариях Perl?

Во многих сценариях Perl (особенно в известных дистрибутивах CPAN) я нахожу следующий фрагмент кода: eval 'exec / usr / bin / perl -w - S $ 0 $ {1 + "$ @"} ' если 0; # не работает под какой-то оболочкой. Мне было интересно, что это ...
вопрос задан: 4 February 2012 19:18
0
ответов

Я получаю дополнительный ответ с помощью TT (инструментарий шаблонов perl)

Я использую perl v5.10 (в Windows 7) + TT v2.22. Когда я использую TT, для каждой исходной строки я получаю в созданном html дополнительный текст CR: Source (формат Windows): "Some_html" CR LF Выходной текст: "...
вопрос задан: 4 February 2012 14:08