0
ответов
выполнение системной команды perl
В следующем коде мне нужно напечатать вывод из переменных $ stout, $ stderr. Как я могу сделать это и не без использования $ ssh = Net :: SSH :: Perl-> new? #! / usr / bin / perl use strict; использовать предупреждения; использовать ...
вопрос задан: 19 March 2012 10:17
0
ответов
Как указать bash не расширять переменную $_?
Я хочу использовать некоторую строку perl, например: perl - pe "$_=~s///e" Проблема в том, что bash постоянно расширяет переменную "$_". Я мог бы заключить perl-выражение в одинарные кавычки, но это помешало бы мне...
вопрос задан: 18 March 2012 18:55
0
ответов
Разыменование значений из массива в объявленные переменные в одной строке
Для извлечения аргументов из вызова функции я обычно использую strict;
использовать предупреждения; фу([1,2],[3,4]); sub foo{ мой ($x, $y) = @_; ...
} В этом примере $x и $y теперь являются ссылками на ...
вопрос задан: 16 March 2012 12:47
0
ответов
Что означает «\» в Perl?
В настоящее время я изучаю «разыменование» в Perl, и мне нужно ваша помощь в понимании того, что означает '\' в строке ниже .. $ ra = \ $ a;
вопрос задан: 16 March 2012 08:12
0
ответов
Как обрабатывать utf8 в командной строке (используя Perl или Python)?
Как я могу обрабатывать utf8 с помощью Perl (или Python) в командной строке? Например, я пытаюсь разделить символы в каждом слове. Это очень просто для текста, отличного от utf8, например: $ echo "abc def" | ...
вопрос задан: 16 March 2012 01:58
0
ответов
C-подобные массивы в Perl
Я хочу создавать и манипулировать большими массивами (4-байтовых) целых чисел в памяти. Под большими я подразумеваю порядка сотен миллионов. Каждая ячейка в массиве будет действовать как счетчик для позиции в ...
вопрос задан: 16 March 2012 01:35
0
ответов
Perl LWP::useragent захватывает заголовки ответа сервера
Я запрашиваю у веб-сервера документ и хочу захватить как сам документ, так и соответствующие заголовки ответов сервера (особенно Content-Type: ...) . Мне трудно понять, как читать ...
вопрос задан: 15 March 2012 17:32
0
ответов
Как экранировать знак доллара ($) в строке с помощью регулярного выражения Perl
Я пытаюсь экранировать несколько специальных символов в заданной строке с помощью регулярного выражения Perl. Он отлично работает для всех символов, кроме знака доллара. Я попробовал следующее: мои %special_characters;
$...
вопрос задан: 15 March 2012 09:53
0
ответов
Одинарная кавычка регулярного выражения Perl
Может ли кто-нибудь помочь мне выполнить приведенную ниже команду. Я также пытался избежать одинарных кавычек, но безуспешно. perl -pi.bak -e 's / Object \ .prototype \ .myString =' q '//' myfile.html
вопрос задан: 15 March 2012 00:16
0
ответов
Однострочный оператор if Perl
У меня есть оператор $set eq "Y" ? $set = "N" : $set = "Y"; Но независимо от того, что он всегда устанавливает на «N» # Переключить настройку
если ($set eq "Y")
{ $ установить = "Н";
}
еще
{ $ установить = "Y";
} Почему не один ...
вопрос задан: 14 March 2012 21:25
0
ответов
Есть ли модуль, который ищет лишний код?
Есть ли модуль, который может найти ненужный код?
В качестве примера скрипт с кодом, который не нужен для запуска скрипта: #!/usr/bin/env perl
использовать предупреждения;
используйте 5.12.0;
используйте utf8;
binmode STDOUT, ':utf8';
используйте ..
вопрос задан: 14 March 2012 07:53
0
ответов
PSGI: Что это такое и в чем суть дела?
Я пытался решить, является ли мой веб-проект кандидатом на реализацию с использованием PSGI, но Я действительно не понимаю, что это может сделать для моего приложения на данном этапе. Я не совсем понимаю ...
вопрос задан: 14 March 2012 03:06
0
ответов
Как я должен передавать объекты подпрограммам?
Является ли один из этих подходов лучшим или худшим? использовать область видимости: my $cache = CHI->new(driver => 'File', expires_in => 3600); sub one { if ( my $data = $cache->get( 'key_one' ) ) ...
вопрос задан: 13 March 2012 11:46
0
ответов
Сопоставление шаблонов Perl при использовании массивов
У меня странная проблема при сопоставлении шаблонов. Рассмотрим приведенный ниже код Perl #!/usr/bin/perl -w use strict;
мой @Array = ("Привет | Мир", "Добрый день"); функция();
функция();
функция(); sub ...
вопрос задан: 13 March 2012 04:20
0
ответов
Поиск и маркировка парных паттернов на линии
Мне нужно найти и пометить паттерны, которые где-то разбиваются на линии. Вот сокращенный список шаблонов-примеров, которые размещены в отдельном файле, например: CAT,TREE
ЛЕВ,ЛЕС
OWL,WATERFALL ...
вопрос задан: 12 March 2012 23:21
0
ответов
Perl имя хоста регулярное выражение
У меня есть следующий фрагмент кода: мой $ hostname = `host \` hostname \ ``; что это дает что-то вроде: Blahblah.test1234.mydomain.com имеет адрес 12.345.67.8910 (я заменил реальные значения ...
вопрос задан: 12 March 2012 21:01
0
ответов
Почему я получаю сообщение об ошибке «Неопределенная подпрограмма» при вызове функции из модуля?
У меня есть модуль Helpers.pm: используйте предупреждения;
используйте 5.012; помощники пакетов;
использовать Экспортер qw(import);
наш @EXPORT_OK = qw(my_function); sub my_function {возврат {один => 1, два => 2};
} ...
вопрос задан: 12 March 2012 18:38
0
ответов
Многострочная замена командной строки Perl
Я пытаюсь для замены текста в многострочном файле с помощью командной строки perl. Я использую Ubuntu Natty. Ниже приведено содержимое моего текстового файла (названного test.txt): [mysqld]
#
# * Основные настройки
# #
# * ...
вопрос задан: 12 March 2012 15:58
0
ответов
Исключить определенные пути из отчета о покрытии Devel::Cover
В нашем проекте есть много разделяемых библиотек, которые находятся по определенному пути (но не по умолчанию @ в Perl). ИНК). По умолчанию, cover -t сообщает о покрытии как тестируемых модулей, так и...
вопрос задан: 12 March 2012 15:48
0
ответов
Имеет ли смысл явно импортировать функции, если они экспортируются по умолчанию и используется объектно-ориентированный интерфейс?
Имеет ли смысл — при загрузке модуля — явно импортировать необходимые функции, когда модуль экспортирует эти функции по умолчанию и когда он использует объектно-ориентированный интерфейс?
вопрос задан: 11 March 2012 13:08
0
ответов
Perl, как разобрать файл XML, xpath
Я хочу разобрать файл XML с помощью Perl. Я смог сделать это с помощью модуля XML::Simple, но теперь я хочу вместо этого начать использовать модуль XML::XPath, потому что он использует выражения XPath. Из моих ограниченных...
вопрос задан: 11 March 2012 00:04
0
ответов
использовать lib с прагмой if в perl
В perl мы можем сделать: use lib LIST; чтобы включить список путей в @INC. Точно так же мы можем сделать: использовать if CONDITION, MODULE => ARGUMENTS; включить модуль условно. Можно ли сделать ...
вопрос задан: 9 March 2012 16:07
0
ответов
Как преобразовать специальные символы в UTF-8?
Когда я извлекаю данные из базы данных MySQL, некоторые выходные данные содержат специальные символы,
при открытии, например. emacs декодирует в \240 и \346. При отображении в терминале UTF-8 специальные символы ...
вопрос задан: 9 March 2012 16:00
0
ответов
Чтение небуферизованных данных из канала в Perl
Я пытаюсь прочитать небуферизованные данные из канала в Perl. Например, в программе ниже: open FILE,"-|","iostat -dx 10 5";
$old=выберите ФАЙЛ;
$|=1;
выберите $старый;
$|=1; foreach $i () { ...
вопрос задан: 9 March 2012 15:29
0
ответов
Как добавить модификатор в цитируемое регулярное (qr) выражение
Есть ли простой способ добавить регулярное выражение модификаторы, такие как 'i', для цитируемого регулярного выражения? Например: $ pat = qr / F (o +) B (a +) r /;
$ newpat = $ pat. 'я'; # Это не работает Единственный способ, который я могу придумать
вопрос задан: 8 March 2012 15:16
0
ответов
Извлечение числовых значений с помощью регулярных выражений
У меня есть имя файла в следующем формате: xx_xx_xx_xx / Run02 / isf2sync_output / xx_xx_xx_xx_xx_Run02_xxx3_20120301_144327 / xx_xx_xx_xx_xx_Run02_xxx3_20120301_144395.xxxlog Я хочу, чтобы извлечь дату ...
вопрос задан: 8 March 2012 13:23
0
ответов
Установка файлов cookie в ответе mojolicious
Как мне установить файл cookie в ответе mojolicious, а затем прочитать его из запроса. Я пробовал разные способы, но ни один из них не устанавливал cookie для объекта ответа. пробовал эти способы $self->res->...
вопрос задан: 7 March 2012 21:06
0
ответов
Как обойти все файлы в каталоге, если в нем есть подкаталоги, я хочу также просматривать файлы в подкаталогах
opendir(DIR,"$pwd") или умереть "Не удается открыть $pwd\n"; my @files = readdir(DIR); Closedir(DIR); foreach my $file (@files ) { next if ($file !~ /\.txt$/i); my $mtime = (stat($file))...
вопрос задан: 7 March 2012 16:04
0
ответов
Использование замыканий для изменения классов внутри блоков BEGIN Perl
ПРЕДВАРИТЕЛЬНОЕ ПРИМЕЧАНИЕ:Пожалуйста, ради этого обсуждения, давайте на мгновение проигнорируем тот факт, что та же цель может быть достигнута с помощью Class::Аксессор или даже просто с помощью Moose (, возможно...
вопрос задан: 7 March 2012 12:30
0
ответов
Есть ли в Perl эквивалент `int,short,long`?
64-битная система: $i=2;print ~$i; # 18446744073709551613 32-битная система: $i=2;print ~$i; # 4294967293 Как сделать $i 32-битным? Мне нужна переносимая побитовая операция на Perl в любой системе.
вопрос задан: 7 March 2012 02:46