0
ответов
Используется ли модульное тестирование Perl только для модулей, а не для программ?
В документации, которую я нахожу в сети, и в моей книге «Тестирование Perl» говорится или предлагается, что модульное тестирование для Perl обычно выполняется при создании модули. Это правда? Нет ли способа провести модульное тестирование ...
вопрос задан: 3 February 2012 20:24
0
ответов
Разница во времени в секундах
В программе Perl у меня есть переменная, содержащая дату / время в следующем формате: 3 февраля 12:03:20 Мне нужно определить, если эта дата старше x секунд (на основе текущего времени), даже если это произойдет ...
вопрос задан: 3 February 2012 20:23
0
ответов
Perl Critic: запятая, используемая для разделения операторов
Follow code не принимается Critic, уровень серьезности 4: return {'debug' => $ debug, 'identifier' = > $ идентификатор
}; Я получаю эту ошибку: # Perl :: Critic обнаружил эти нарушения в "filename.pl": ...
вопрос задан: 2 February 2012 15:54
0
ответов
Путаница по поводу правильного использования разыменования в Perl
На днях я заметил, что - при изменении значений в хеше - когда вы разыменовываете хеш в Perl, вы фактически создаете копию этого хеша. Чтобы подтвердить, я написал этот небольшой скрипт: #! ...
вопрос задан: 1 February 2012 19:23
0
ответов
В чем разница использования специальной переменной $_ и @_ в Perl?
Пожалуйста, объясните, в чем именно разница $_ и @_ в Perl. Когда какую использовать, на примере кода.
вопрос задан: 1 February 2012 17:50
0
ответов
Как вызвать в perl имя функции, заданное в буквенной строке?
Если $name='name' почему $object_ref->$name работает, а $object_ref->('name') нет?
вопрос задан: 31 January 2012 09:43
0
ответов
Как проверить и удалить символическую ссылку, если она существует, с помощью Perl?
if (-e "$ ENV {MYHOME} / link") {system ("rm $ ENV {MYHOME} / ссылка ");
} Этот код используется для проверки наличия символической ссылки и удаления ее, если она существует. Я отслеживаю ошибку, когда этот код не ...
вопрос задан: 31 January 2012 03:31
0
ответов
Как использовать свойство/переменную класса в качестве ручки файла печати в Perl?
Я хочу сделать то же самое, что и open MYFILE, ">", "data.txt";
print MYFILE "Bob\n"; но вместо этого в переменной класса, как sub _init_tmp_db
{ my ($self) = @_; open $$self{tmp_db_fh}, ">", ...
вопрос задан: 30 January 2012 17:48
0
ответов
Ошибка PPI::Document или какое-то специальное имя подпрограммы?
у меня проблемы с модулем PPI: предположим, у меня есть Foo.pm: package Foo; суб foo0 { 1; }
суб foo1 { 1; }
суб foo2 { 1; }
суб foo3 { 1; } 1; и я хочу использовать PPI для получения всех подписок: #!/usr/bin/...
вопрос задан: 30 January 2012 11:23
0
ответов
Ошибка при использовании ithreads с Memoize
Я только что представил потоки в программе Perl, где один из ее модулей использовал Memoize.
Я получаю это сообщение об ошибке: Поток 1 завершился ненормально: Анонимная функция вызывается в запрещенном состоянии ...
вопрос задан: 28 January 2012 17:20
0
ответов
Выявление дубликатов в CouchDB
Я новичок в CouchDB и документно-ориентированных базах данных в целом. Я играл с CouchDB и смог познакомиться с созданием документов (с perl) и использованием Map / Reduce ...
вопрос задан: 27 January 2012 19:03
0
ответов
Perl substr (STRING, @ARRAY) ne substr (STRING, OFFSET, LENGTH)?
Почему это в Perl : @ x = (0,2); substr ('abcd', @ x) оценивается как "cd"? А это: substr ('abcd', 0,2); оценивается как «ab»?
вопрос задан: 26 January 2012 23:25
0
ответов
Использование благословенных CodeRefs с ограничениями типа Moose
Мы используем классы Moose, которые сериализуют итераторы в различные выходные форматы. Мы описываем итератор как атрибут: has iterator => (is => 'ro', isa => 'CodeRef', required = & ...
вопрос задан: 26 January 2012 17:03
0
ответов
изменить $ _, если параметры не указаны
У меня есть эта процедура обрезки: sub trim {for (@_) {s | ^ \ s + ||; s | \ s + $ ||; }} Он обрезает пробелы «на месте», то есть: trim $ x, $ y; обрежет пробелы в $ x и $ y (модифицируя ...
вопрос задан: 25 January 2012 23:56
0
ответов
Включение цветной отладки regex в perl на windows
В некоторых из моих скриптов perl я обнаружил необходимость включить отладку regex во время работы над ними. Я видел, что есть цветной режим, но не могу добиться цветного вывода. Я добавил использование re '...
вопрос задан: 25 January 2012 21:08
0
ответов
Является ли простой текстовый пароль в сценарии CGI дырой в безопасности?
Я читал, что с вашим веб-сервером что-то может пойти не так, что может привести к отображению сценариев PHP как простых текстовые файлы в веб-браузере; следовательно, я переместил большинство своих PHP-скриптов в каталог ...
вопрос задан: 25 January 2012 07:47
0
ответов
Perl при записи в "файл памяти" использует трюки с подбором шаблонов
Когда я запускаю этот код, я получаю "нет": my $memory_file;
my $fh;
open ($fh, '>', \$memory_file);
print $fh "abc";
if( $memory_file =~ m/^.*$/ )
{ print "yes\n" }
else
{ print "no\n" } Если я ...
вопрос задан: 24 January 2012 17:16
0
ответов
Perl цикл foreach печатает только одну строку
У меня есть этот код Perl, который печатает только первую строку, а не все строки. используйте Net :: SSH :: Perl;
мой $ user = "пользователь"; мой $ cmd = "df -m | grep data";
мой $ host = "host1.example.com"; my $ ssh = ...
вопрос задан: 24 January 2012 12:59
0
ответов
Чтение большого файла и разделов вывода, соответствующих множеству параметров
Мне редко приходится иметь дело со сценариями, поэтому я сталкиваюсь с недостатком знаний для решения этой проблемы. У меня есть файл размером более 500 МБ, который хорошо разбит на разделы, но я знаю, что там от 5 до 10 «плохих» разделов ...
вопрос задан: 23 January 2012 22:12
0
ответов
Как передать переменную цикла Bash в интерпретатор Perl?
Я пытаюсь изменить некоторые сценарии с помощью комбинации Bash и Perl. Проблема в том, что Perl считает $index своей собственной переменной, которая никогда не определяется: for index in {1..25}; do perl -pi -...
вопрос задан: 23 January 2012 16:12
0
ответов
shuffle: влияние сортировки
Приводит ли строка с сортировкой к более случайному массиву или сортировка здесь только лишняя трата? use List::Util qw(shuffle); @random1 = shuffle sort keys %vocables; @random2 = shuffle keys %vocables;
вопрос задан: 23 January 2012 13:47
0
ответов
Как можно цикл через константу perl
Я хочу сделать то же самое, что ниже моего @nucleotides = ('A', 'C', 'G', 'T');
foreach (@nucleotides) { print $_;
} но используя константу НУКЛЕОТИДЫ = > ['A', 'C', 'G', 'T']; Как это сделать?
вопрос задан: 23 January 2012 13:34
0
ответов
Почему карта не читается из @ARGV / @ _?
Есть ли веская причина для того, чтобы карта не читала из @_ (в функциях) или @ARGV (где-либо еще), когда не указан список аргументов?
вопрос задан: 22 January 2012 23:10
0
ответов
Как я могу взять n элементов случайным образом из массива Perl?
У меня есть массив A = [a1, a2, a3, ... aP] с размером P. Мне нужно выбрать q элементов из массива A. Я планирую использовать цикл с q итерациями и случайным образом выбирать элемент из A на каждой итерации. Но как я могу ...
вопрос задан: 22 January 2012 18:29
0
ответов
Добавление текста в случае его отсутствия (Perl REGEXP)
Использование оператора замены Perl (s //) Я хотел бы изменить некоторый XML, добавив атрибут к некоторым элементам, если они отсутствуют. Вот пример: ...
...
вопрос задан: 22 January 2012 16:57
0
ответов
Краткий способ распечатать все строки до последней строки, которая соответствует заданному шаблону
Я пытаюсь найти сжатую оболочку -лайнер, который даст мне все
строк в файле до некоторого шаблона. Вариант использования - сбрасывать все строки в файле журнала, пока я не найду некоторые
маркер, указывающий на ...
вопрос задан: 22 January 2012 16:33
0
ответов
Цитаты в стиле Perl для длинных строк в C ++
Есть ли в C ++ способ заключать строку в кавычки без необходимости экранирования обратной косой чертой ? Например, мне нужен способ сохранить некоторый латексный код в строке, такой как \ documentclass {article}. Я мог бы сделать ...
вопрос задан: 22 January 2012 04:53
0
ответов
Назначение с использованием тернарного оператора?
Я использую Perl 5.8, и мне нужно назначить значение по умолчанию. В итоге я сделал так: if ($ model-> test) {$ review = "1"
} еще {$ review = ''
} Значение $ model-> test будет ...
вопрос задан: 21 January 2012 20:58
0
ответов
Perl: сопоставление с первым элементом списков
Задача: построить хэш с использованием карты, где ключи являются элементами заданный массив @a, а значения являются первыми элементами списка, возвращаемого некоторой функцией f ($ element_of_a): my @a = (1, 2, 3);
my% h = ...
вопрос задан: 20 January 2012 18:09
0
ответов
Может ли Perl заменить несколько ключевых слов своим собственным заменяющим словом за один раз?
Рассмотрим текстовый файл с содержимым: яблоко яблоко груша слива яблоко вишня груша яблоко алыча слива груша яблоко вишня груша груша яблоня слива И рассмотрим файл perl -liner: perl -pe "s / apple / ...
вопрос задан: 19 January 2012 21:56