0
ответов
Perl — Улучшение кода
Я только начал программировать на Perl и просто пытаюсь выяснить, можно ли сделать приведенный ниже код более эффективным или сделать его меньшим количеством строк. Я немного изучил модуль Win32::OLE и...
вопрос задан: 25 May 2012 01:57
0
ответов
проверка переключателей perl в коде
Есть ли способ проверить, какие переключатели командной строки perl были активированы?
Например, если я запускаю свою программу как perl -C foo.pl, я хотел бы иметь возможность проверить, имеет ли переключатель -C ...
вопрос задан: 24 May 2012 06:04
0
ответов
разница между моим и нашим? (объявлено в том же файле)
Перед написанием этой программы я подумал, что наша переменная области видимости пакета, а моя - переменная области видимости файла. Но после того, как я сделал эту программу, я запутался. Моя программа, #! / Usr / bin / perl use strict; ...
вопрос задан: 24 May 2012 00:00
0
ответов
Как заменить символы в Javascript аналогично функции 'tr' в Perl?
Я пытался выяснить, как сопоставить набор символов в строке с другим набором, подобно функции tr в Perl. Я нашел этот сайт, на котором показаны эквивалентные функции в JS и Perl, но...
вопрос задан: 23 May 2012 19:33
0
ответов
Внешняя программа, вызванная с помощью обратных кавычек, по-прежнему производит вывод
, поэтому я вызываю внешнюю программу на Perl и хочу зафиксировать ее вывод: my @RNAalifoldOut = `RNAalifold some parameters`; При вызове из командной строки вывод состоит из трех строк, например: 4 ...
вопрос задан: 23 May 2012 18:10
0
ответов
Неоднозначные параметры командной строки Perl и влияние на безопасность eval с -i?
Я знаю, что это неправильно. Я просто хочу знать, как Perl анализирует это. Итак, я играюсь с perl, я хотел, чтобы это был perl -ne то, что я набрал, было perl -т.е. поведение было довольно интересным, и я...
вопрос задан: 22 May 2012 21:28
0
ответов
Объявление массива с инкрементными значениями в Perl
Я знаю, что можно объявить массив следующим образом: my @array = ( 5 .. 10 ); что эквивалентно: мой @array = ( 5, 6, 7, 8, 9, 10 ); но есть ли подобное сокращение, когда инкрементное значение ...
вопрос задан: 22 May 2012 00:40
0
ответов
Разве обращение к @Whatever::whatever не должно приводить как минимум к предупреждению вместо пустого массива?
В следующем коде: use strict;
использовать предупреждения;
использовать Data::Dumper; мой %hash = %Что угодно::что угодно;
мой @массив = @Что угодно::что угодно;
print Dumper \@array;
напечатать Дампер \%hash; Насколько я понимаю...
вопрос задан: 21 May 2012 19:16
0
ответов
Запрос UserAgent в Mojolicious
Я пытаюсь прочитать UserAgent из запроса и выполнить операции на его основе.
Может ли кто-нибудь сказать мне, как я могу получить запрос UserAgent в Mojolicious. Спасибо.
вопрос задан: 21 May 2012 17:46
0
ответов
Исправлена кодировка неверно закодированного текстового файла.
У меня есть длинный текстовый файл, который явно использует разные кодировки в последующих блоках текста (iso или utf-8). Это результат добавления текста с помощью >> file.bib, а также копирования и вставки из ...
вопрос задан: 21 May 2012 15:53
0
ответов
Как перенаправить вывод консоли в текстовый файл
Я выполняю программу на Perl. Что бы ни печаталось на моей консоли, я хочу перенаправить
то в текстовый файл.
вопрос задан: 21 May 2012 13:15
0
ответов
сортировка по ммг (месяц и год)
Ищу логический (не дополнительный модуль) для сортировки по такому формату. У меня есть список строк, который выглядит так: asdadasBBBsfasdasdas-0112
asdanfnfnfnfnf222ads-1210 и т. д.
Я не могу просто сортировать по ...
вопрос задан: 20 May 2012 13:19
0
ответов
Как использовать запрос с заполнителем в кавычках? (perl / postgresql)
Я пытаюсь выполнить следующий скрипт: #!/usr/bin/perl -w use strict;
использовать ДБИ; мой $db = "Pg";
моя $db_database = "что угодно";
мой $user = "что угодно";
мой $пароль = "что угодно"; my $dbh = DBI->...
вопрос задан: 18 May 2012 21:04
0
ответов
Perl Hash Keys + Values to variable
Итак, у меня есть такая хеш-таблица: M => 1
S => 50 Я хочу сделать что-то вроде этого: $var = map { "$hash{$_}"."$_\n" } keys %hash;
напечатать $вар; так что я получаю переменную для печати этого...
вопрос задан: 18 May 2012 19:23
0
ответов
Команда Linux или синтаксис Bash для вычисления следующего символа ASCII
У меня есть машина с Linux (Red Hat Linux 5.1), и мне нужно добавить следующую задачу в сценарий Bash. Какая команда Linux или синтаксис Bash будут вычислять следующий символ ASCII? Примечание – команда ...
вопрос задан: 17 May 2012 20:35
0
ответов
как узнать какой сигнал получен в perl?
Я написал простую программу для обработки некоторых сигналов.
Моя программа: #!/usr/bin/perl use strict;
использовать предупреждения; $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signal_handler; вспомогательный signal_handler
{ ...
вопрос задан: 17 May 2012 10:25
0
ответов
Perl: «Квантификатор в {,} больше, чем 32766 в регулярном выражении»
Допустим, я хочу найти в большом (300 000 букв) слове «собаки» с расстоянием между буквами ровно 40 000 букв между ними. Итак, я делаю: $mystring =~ m/d.{40000}o.{40000}g.{40000}s/; Это...
вопрос задан: 16 May 2012 19:40
0
ответов
Perl-эквивалент цикла foreach в Php
Я ищу Perl-эквивалент следующего php-кода: foreach($array as $key => $value){
...
} Я знаю, что могу сделать цикл foreach следующим образом: foreach my $array_value (@array){
..
} Который ...
вопрос задан: 16 May 2012 09:59
0
ответов
Perl регулярное выражение для извлечения многострочных блоков
У меня есть такой текст: 00:00 материал
00:01 еще кое-что
многострочный и идущий
00:02 еще есть Итак, у меня нет конца блока, только начало нового блока. Я хочу рекурсивно получить все блоки: 1 = 00:...
вопрос задан: 14 May 2012 12:31
0
ответов
64-битный «сетевой» порядок (с обратным порядком байтов) Целое число в Perl
Подобно тому, как вы можете использовать пакет: N Длинный без знака (32-бит) в "сетевом" (прямом) порядке. Есть ли способ упаковки 64-битного целого числа в "сетевом" (прямом) порядке в Perl?
вопрос задан: 14 May 2012 08:43
0
ответов
Почему Perl 5.14 использует определение (0+GvGP(gv)->gp_cv) для GvGC?
Я занимаюсь исследованием совместимости mod_perl-Apache-Perl. Недавно я попытался собрать mod_perl 2.0.4, используя Perl 5.14.2. Фаза компиляции была преждевременно прервана из-за ...
вопрос задан: 13 May 2012 10:26
0
ответов
Какой межплатформенный модуль IPC Perl является предпочтительным?
Я хочу создать простой объект ввода-вывода, представляющий канал, открытый для другой программы, в который я могу периодически записывать данные в STDIN другой программы по мере выполнения моего приложения. Я хочу, чтобы он был пуленепробиваемым (в этом..
вопрос задан: 13 May 2012 06:50
0
ответов
сопоставление ближайших строк к поисковому запросу (perl regex)
По сути, я пытаюсь выполнить поиск в довольно большом файле PHP и заменить любой блок PHP-кода, который включает строку «search_term» где-то в нем с каким-то другим кодом. т.е.
вопрос задан: 11 May 2012 21:51
0
ответов
Strategies to handle a file with multiple fixed formats
This question is not Perl-specific, (although the unpack function will most probably figure into my implementation). I have to deal with files where multiple formats exist to hierarchically break ...
вопрос задан: 11 May 2012 20:48
0
ответов
Как получить переменные, совместно используемые дочерним и родительским процессами, при использовании fork в Perl
Я использую fork в своем коде. Перед вызовом fork в моем коде родительский процесс имеет объявленную глобальную переменную. Таким образом, после вызова fork дочерний процесс получает отдельную копию глобальной переменной в своем...
вопрос задан: 11 May 2012 08:38
0
ответов
Повторяющиеся аргументы в подготовленном операторе
рассматривают запрос, который выглядит примерно так: my $query=<
вопрос задан: 10 May 2012 17:50
0
ответов
Как в Perl передать функцию в качестве аргумента другой функции?
Я написал следующий класс Perl: package Menu;
использовать строгий; мой @MENU_ITEMS;
my $HEADER = "Выберите один из вариантов ниже\n";
мой $INPUT_REQUEST = "Введите свой выбор: "; sub new {мой $self = {};
...
вопрос задан: 9 May 2012 20:23
0
ответов
Отправка электронной почты нескольким получателям
Я переместил некоторый старый код из старого ящика Unix в наш новый ящик Unix, и у меня возникли некоторые трудности с Perl-скриптом, отправляющим электронную почту нескольким получателям. На старой коробке работает. Перл старой коробки :...
вопрос задан: 9 May 2012 18:35
0
ответов
Perl: Перенаправление STDOUT двух файлов
Как можно перенаправить поток STDOUT к двум файлам (дубликатов) в моем сценарии Perl? В настоящее время я просто вливается в один файл журнала: открытый (STDOUT, «> $ out_file») или умереть «не может открыть $ out_file: ...
вопрос задан: 9 May 2012 16:20
0
ответов
perl (хорошая практика): лексический дескриптор файла для сокета
На странице сокета perdoc они используют глобальный дескриптор файла для сокета.
Но если я создаю сокет в подпрограмме, вызываемой дочерними процессами, лучше ли использовать лексический дескриптор файла, все еще используя Socket? вот так:...
вопрос задан: 9 May 2012 09:40