0
ответов
Каков наиболее элегантный способ расширения итератора в список в Perl?
У меня есть итератор с этим интерфейсом: $ hit-> next_hsp Текущая реализация для его листинга: my @list;
а (мой $ hsp = $ hit-> next_hsp) {push (@list, $ hsp);
} Теперь я думаю ...
вопрос задан: 30 April 2012 20:13
0
ответов
perl array печатает только последнюю строку
У меня есть файл примерно из 3000 строк. Я сопоставляю каждое слово в документе со списками литературы, которые у меня есть. Если слово совпадает с тем, что есть в моем списке, я заменяю его. Теперь проблема в том, что...
вопрос задан: 30 April 2012 06:30
0
ответов
Как подавить предупреждения Perl, выдаваемые из кода загруженного модуля?
Моя программа Perl считывает данные с последовательного устройства, подключенного через USB. Заголовки моего скрипта на псевдо-Perl: используйте предупреждения;
использовать строгий; использовать Device::SerialPort;
my $PortObj = tie( *$handle , "...
вопрос задан: 29 April 2012 10:46
0
ответов
Как выполнить код Perl, хранящийся внутри переменной сценария оболочки?
У меня есть скрипт, который вызывает модуль Perl Time ::HiRes для подсчета прошедшего времени. По сути, скрипт получает время, передавая следующий -лайнер :use Time ::HiRes qw (time ); печатать время в...
вопрос задан: 28 April 2012 08:33
0
ответов
Отсутствует switch.pm -Active Perl x64/windows
Я установил Active Perl (v5.14.2, 64 -бит, для Windows )и мой код, содержащий использование Switch; начал давать сбой с ошибкой Не могу найти Switch.pm в @INC (@INC содержит :C :/Perl64/site/lib C :/...
вопрос задан: 28 April 2012 03:17
0
ответов
относительный абсолютный путь perl
После настройки каталога :/dira/dirb /dira/dirb/myprog.pl /dira/dirb/testa/myfilesdir Содержит следующие файлы /dira/dirb/testa/myfilesdir/file1.txt /dira/dirb/testa/myfilesdir/file2.txt...
вопрос задан: 27 April 2012 14:25
0
ответов
Как правильно использовать функцию try catch в Perl, которую предоставляет error.pm?
Я обнаружил, что существует модуль Error, который обеспечивает функциональность try and catch, как в java. Но я смущен тем, как вы можете распечатать возвращаемое исключение. Я хотел бы понять, как...
вопрос задан: 27 April 2012 00:50
0
ответов
Как в Perl генерировать случайные строки, состоящие из восьми шестнадцатеричных цифр?
Используя Perl, без использования каких-либо дополнительных модулей, которые не поставляются с ActivePerl, как я могу создать строку из 8 символов из 0 -F. пример 0F1672DA? Заполнение должно быть контролируемым и ровно 8...
вопрос задан: 26 April 2012 15:57
0
ответов
Perl :while без условного выражения
Согласно документу, оператор while выполняет блок до тех пор, пока выражение истинно. Интересно, почему он превращается в бесконечный цикл с пустым выражением :, тогда как (){ #бесконечный цикл... }...
вопрос задан: 26 April 2012 12:20
0
ответов
Как установить «Исполнителя альбома» песни программно или через командную строку (linux)
Существуют различные инструменты командной строки для редактирования метаданных аудиофайлов. Но ни один из них не может редактировать тег «Исполнитель альбома» аудиофайла. Есть ли какой-нибудь инструмент командной строки или модуль perl для выполнения...
вопрос задан: 26 April 2012 07:08
0
ответов
Совпадение ровно N повторений одного и того же персонажа
Как мне написать выражение, которое точно соответствует N повторениям одного и того же символа (или, в идеале, одной и той же группы)? В основном, что (.) \ 1 {N-1} делает, но с одним важным ограничением: выражение ...
вопрос задан: 25 April 2012 16:19
0
ответов
Perl& #Оператор проверки файла 39;s -f возвращает true для символических ссылок
Раньше я думал, что -f проверяет файл, чтобы убедиться, что это обычный файл, а не что-то еще. Но Perl, кажется, ведет себя по-другому. Я посмотрел запись perldoc, и там написано:-f File is a...
вопрос задан: 25 April 2012 16:03
0
ответов
Ошибка модуля Perl относительно «неопределенной подпрограммы»
Я пытаюсь использовать модуль под названием Math ::Подсчет:#!/usr/bin/perl use strict; использовать предупреждения; используйте математику ::Счет; мой $f = факториал (3 ); напечатать "$f\n"; Однако, когда я запускаю его, я получаю следующее...
вопрос задан: 25 April 2012 15:20
0
ответов
Perl :Сортировка двумерного массива с несколькими столбцами на основе определенного столбца
Псевдокод :my @unsortedArray = { ["Harry", 10], ["Tim", 8], ["Joe ", 3]}; мой @sortedArray = ????? Окончательный sortedArray должен быть отсортирован на основе col -2 (целых чисел ), с учетом значений от 1 -до -1...
вопрос задан: 25 April 2012 14:51
0
ответов
Как отменить импорт функции в Perl?
Я пытаюсь удалить символы, которые импортируются, чтобы они были недоступны в качестве методов в объекте, но нет, похоже, не работает, может быть, я не понимаю, нет, или есть другой способ. используйте 5.014; use...
вопрос задан: 24 April 2012 22:26
0
ответов
proc _open :Расширение номеров файловых дескрипторов для обеспечения обратной связи о статусе из Perl-скрипта
PHP-процедура _open manual states :Дескриптор файла числа не ограничены 0, 1 и 2 -вы можете указать любой допустимый номер файлового дескриптора, и он будет передан дочернему процессу. Это позволяет...
вопрос задан: 24 April 2012 19:21
0
ответов
Избегание смешивания определенных аргументов со сценарием
У меня есть сценарий, который может получать десятки аргументов/флагов с помощью Getopt ::Long. Некоторые флаги нельзя смешивать, например:--linux --unix нельзя использовать вместе. Теперь я знаю, что я...
вопрос задан: 24 April 2012 15:01
0
ответов
Как в Perl сгенерировать все возможные комбинации списка?
У меня есть файл со списком, и мне нужно создать файл, в котором каждая строка сравнивается с другой. например, мой файл имеет это :AAA BBB CCC DDD EEE Я бы хотел, чтобы окончательный список выглядел так :...
вопрос задан: 24 April 2012 14:58
0
ответов
есть ли в python сообщения об ошибках, такие как $! в perl
Мне интересно, есть ли в python сообщение об ошибке, эквивалентное $! в перле? Кто сможет дать мне ответ, буду очень признателен. Добавлен :пример %./test Файл "./test", строка 7 test1 =...
вопрос задан: 24 April 2012 04:54
0
ответов
Недопустимое значение для свойства
Я пытаюсь объединить perl и Javascript для сопоставления местоположения IP-адреса Lat/Long с картой Google, используя API Google Maps v3. То, что я получаю, находится в маркере, я получаю сообщение об ошибке: ...
вопрос задан: 23 April 2012 09:35
0
ответов
Лучший способ присвоить переменной значение по умолчанию (имитировать Perl ||, || =)
Мне нравится делать такие вещи в Perl: $ foo = $ bar || $ baz, чтобы назначить $ baz переменной $ foo, если $ bar пусто или не определено. У вас также есть $ foo || = $ bletch, который присваивает $ bletch $ foo только в том случае, если $ foo не являетс
вопрос задан: 22 April 2012 16:40
0
ответов
Начальный Perl
Это очень простой и не-критический вопрос. У меня есть некоторый опыт программирования много тысячелетий назад (начиная с FORTRAN, вот как давно)и я работаю над изучением некоторых основ программирования на Perl, используя...
вопрос задан: 22 April 2012 02:31
0
ответов
Как избежать условий гонки при использовании метода find_или_create класса DBIx::Class::ResultSet?
Из документации для find_или_create:Примечание:Поскольку find_или_create()читает из базы данных, а затем, возможно, вставляет на основе результата, это метод зависит от состояния гонки....
вопрос задан: 21 April 2012 23:44
0
ответов
Способы выравнивания массива Perl в скалярном контексте
Недавно я начал изучать Perl и у меня есть вопрос, который я не могу найти четкий ответ в Интернете. скажем, у меня есть что-то вроде этого, @arr = (1, 2, 3 ); $масштаб = "@арр" #$scal теперь 123. Является ли...
вопрос задан: 20 April 2012 10:48
0
ответов
Регулярные выражения — Ruby и Perl
Я заметил некоторые экстремальные задержки в своих сценариях на Ruby (1.9), и после некоторых раскопок все сводилось к сопоставлению с регулярными выражениями. Я использую следующие тестовые сценарии на Perl и Ruby: Perl: $fname = ...
вопрос задан: 20 April 2012 09:15
0
ответов
Использование Perl XML::SAX для изменения документов XML
Я пытаюсь использовать XML::SAX для изменения частей документа XHTML, однако все мои попытки не увенчались успехом. Вот что я пытаюсь сделать: #!/usr/bin/perl package MyHandler;
использовать строгий;
использовать предупреждения; ...
вопрос задан: 20 April 2012 03:40
0
ответов
Используйте один модуль и получите Moose плюс несколько расширений MooseX
Допустим, у меня есть кодовая база с кучей классов на основе Moose -, и я хочу, чтобы все они использовали общий комплект модулей расширения MooseX ::*. Но я не хочу, чтобы каждый класс на основе Moose -начинался как...
вопрос задан: 20 April 2012 01:41
0
ответов
проблемы с бесконечным циклом Perl в моем коде
Я пытаюсь написать программу, которая имитирует очередь в продуктовом магазине. если введено, это позволяет пользователям добавлять имена. если введено c, это имитирует человека, выходящего из очереди. если введено p,...
вопрос задан: 19 April 2012 04:12
0
ответов
Как удалить кодировку метакодировки CGI по умолчанию в Perl?
Использование кода Perl #!/usr/bin/perl use strict; использовать предупреждения; используйте CGI ":все"; использовать кодирование; мой $cgi = новый CGI; $cgi ->charset ('utf -8' ); print $cgi ->header (-type => 'text/html',...
вопрос задан: 17 April 2012 20:14
0
ответов
Вложенные подпрограммы и область видимости в Perl
Я пишу на Perl уже довольно давно и всегда открываю для себя что-то новое, и я только что столкнулся с чем-то интересным, чему у меня нет объяснения, и я не нашел его. паутина. sub a {...
вопрос задан: 17 April 2012 13:29