61
голосов
5ответов
102002 просмотров

Как узнать, какой тип значения находится в переменной Perl?

Как узнать, какой тип значения находится в переменной Perl? $x может быть скаляром, ссылкой на массив или ссылкой на хэш (или, может быть, другими вещами).

24
голосов
4ответов
2165 просмотров

Как мне начать писать модуль для CPAN?

Прямо сейчас у меня есть собственные средства тестирования / структура каталогов / поддержка структуры документации / инструменты распространения для моих библиотек.Однако, прочитав сообщение в блоге, напишите свой кодкак будто это идет на CPAN , это звучало как хорошая идея.Потом мне пришло в ...

2
голосов
6ответов
3516 просмотров

Как я могу отформатировать столбцы без использования формата Perl?

Часто в Perl я хочу распечатать данные столбца / строки, скажем, из хеша. Это просто: foreach my $k(keys %h) { print $k, "\t", $h{$k}, "\n"; } Однако, если ключ имеет разную длину, форматирование выглядит очень неровным.Я исследовал формат , и обычно он слишком тяжелый для того,...

1
голосов
3ответов
2440 просмотров

Почему мой chdir для дескриптора файла не работает в Perl?

Когда я пробую «chdir» с дескриптором файла в качестве аргумента, «chdir» возвращает 0, а pwd возвращает тот же каталог.Должно ли быть так? Я пробовал это, потому что в документации к chdir я нашел: "В системах, поддерживающих fchdir, вы может передать дескриптор файла или каталог о...

3
голосов
4ответов
3599 просмотров

Как использовать GetOptions для получения аргумента по умолчанию?

Я прочитал документ для GetOptions , но не могунайди то, что мне нужно ... (может я слепой) Я хочу проанализировать командную строку следующим образом myperlscript.pl -mode [sth] [inputfile] Я могу использовать часть -mode, но не знаю, как получить [входной файл].Любые советы будут оц...

4
голосов
5ответов
3285 просмотров

Как выполнить подвыбор с помощью DBIx :: Class?

Я начинаю с DBIx :: Class, и у меня есть подвыбор, который хотел бы быть в DBIx :: Class, но я запутался и не могу построить код. Мой выбор MySQL: Select name from tblCategory where id = ( Select id from tblCategory where id = ( Select id from tblRadio where name = "RFM" )...

2
голосов
3ответов
6080 просмотров

Как мне разрешить всем проектам EPIC использовать Perl @INC?

У меня есть набор внутризависимых проектов Perl, и я хотел бы использовать EPIC для работы надих.Я создал по одному проекту Epic (Eclipse) для каждого из моих проектов и установил зависимости между ними с помощью функции Project | Properties | Project References. Для каждого проекта я также ус...

0
голосов
1ответов
1311 просмотров

Как мне получить все параметры запроса в Catalyst?

В частности, я пытаюсь захватить все параметры POST из платежного шлюза как одну строку, а затем проанализировать их в поисках строки "ERROR". Мне известно, что существует метод $c->request->parameters, но я не совсем понимаю, как он используется, и не мог понять его из документации CPAN.

5
голосов
4ответов
890 просмотров

Как я могу создавать эскизы веб-страниц с помощью механизма компоновки в Perl?

Существуют ли привязки для механизмов компоновки, таких как Gecko или WebKit для Perl? Я нашел Gtk2-Webkit на CPAN, но хотел бы знать, есть ли другие варианты. Моя идея - использовать один из этих движков для создания эскизов веб-страниц из Perl-скрипта.

5
голосов
3ответов
6416 просмотров

Как мне загрузить файл с помощью WWW :: Mechanize после отправки формы?

У меня есть код: #!/usr/bin/perl use strict; use WWW::Mechanize; my $url = 'http://divxsubtitles.net/page_subtitleinformation.php?ID=111292'; my $m = WWW::Mechanize->new(autocheck => 1); $m->get($url); $m->form_number(2); $m->click(); my $response = $m->res(); print $m->...

0
голосов
3ответов
449 просмотров

Создание и размещение объектов в PDF с помощью C # или perl

Я хочу разместить головоломки судоку (размер 9X9) на бумаге формата A4, 4 на лицевой стороне страницы и 4 на оборотной стороне страницы. Мне нужно создать буклет на 12 страниц с 96 головоломками судоку в каждой 8 головоломок судоку. Указывает ли мне кто-нибудь, как это сделать с помощью Perl или...

5
голосов
4ответов
15649 просмотров

SQL * Plus внутри скрипта Perl

Я пытаюсь подключиться к таблице с помощью SQL * Plus и получитьданные в скрипте Perl и сохраните этот вывод в переменной Perl. В сценарии оболочки я бы сделал следующее: SQL_RESULT=`sqlplus -s ${CONNECT_STRING} << EOF ${SQLPLUS_SETTINGS} select foo||'|'||bar ||'|'|| ...

-1
голосов
3ответов
1000 просмотров

Почему Mutt не работает, когда я вызываю его из сценария Perl CGI?

Я разработал базу данных с использованием Perl CGI с C ++.У меня проблема с отправкой результатов по почте.Я использовал следующий код: print LOG "[",`date`,"] Sending mail to $email\n"; system (qq{mutt -s "MMM" -a $zip_file $email < $job_id}); if ( $? == 0) { print LOG "[",`...

1
голосов
2ответов
1941 просмотров

Как я могу использовать значение переменной в качестве имени переменной Perl?

Извините за все эти глупые вопросы, меня увлекли программированием на Perl, и мне действительно трудно думать, как программист на Perl. Глупый вопрос на сегодня: Я загружаю файл с разделителями каналов в хеш, используя поле id в качестве ключа, вот так #open file my %hash; while (<MY_F...

3
голосов
5ответов
619 просмотров

Странное поведение условного оператора Perl

Я немного поработал на Perl и наткнулся на странный результат при использовании условного оператора. Рассматриваемый код: ($foo eq "blah") ? @x = @somearray : @y = ("another","array"); Попытка скомпилировать этот код приводит к ошибке «Assignment to both a list and a scalar at XXX line...

0
голосов
3ответов
1325 просмотров

Как я могу отключить опрос терминала для cpan, используемого из crontab?

Я хотел бы, чтобы все установленные модули CPAN обновлялись автоматически каждую ночь, поэтому я поместил следующую команду в crontab: @daily cpan -i $(cpanp -o | perl -lane 'print $F[3]') Однако при каждом запуске я получаю следующее сообщение об ошибке: Unable to get Terminal Size. T...

1
голосов
1ответов
314 просмотров

Обработка ошибок почтовых сообщений Perl

Я пытаюсь быстро обработать входящие сообщения через почтовый сервер postfix.Мне нужен способ регистрации и классификации возвращенных писем.Я хочу определить код ошибки из сообщения, чтобы определить, переполнен ли почтовый ящик или неизвестен хост.Есть ли модуль Perl, который может проанализир...

4
голосов
1ответов
263 просмотров

Как я могу переназначить клавиатуру с Perl на Win32?

Я хочу переназначить клавиатуру с Perl в системе Win32.Есть ли возможность это сделать?Если да, не могли бы вы привести пример? Переназначение клавиатуры означает пример формы, когда пользователь нажимает a , он получает b или что-то еще в соответствии с переназначением).

23
голосов
5ответов
48388 просмотров

Как мне найти все совпадения с регулярным выражением в Perl?

У меня есть текст в форме: Name=Value1 Name=Value2 Name=Value3 Используя Perl, я хотел бы сопоставлять /Name=(.+?)/ каждый раз, когда он появляется, извлекать (. +?) и помещать его в массив.Я знаю, что могу использовать $1, чтобы получить нужный мне текст, и =~, чтобы выполнить сопоставле...

3
голосов
4ответов
4303 просмотров

Есть ли Perl-заменитель команд оболочки вырезания и вставки?

Я однажды видел быструю и грязную реализацию Perl для команд Linux вырезать и вставлять.Это было что-то вроде perl 'print "$F1"' filename заменить команду cut -f1 filename Может кто-нибудь сказать мне, как прошел путь на Perl?В частности, мне интересно, потому что это, в отличие от вырезания ...

19
голосов
5ответов
6163 просмотров

Как создать и использовать длинные пути Windows из Perl?

У меня есть часть процесса сборки, которая создает ужасно длинные пути в Windows. Это не моя вина. Это несколько каталогов, и ни одно из имен каталогов не является ненормально длинным; они просто длинные и достаточно многочисленные, чтобы их было больше MAX_PATH (260 символов). Я не использую в ...

0
голосов
1ответов
1544 просмотров

Perl CGI Hook не работает должным образом

У меня проблемы с использованием perl cgi hook. Похоже, что после того, как я нажал кнопку «отправить», мой скрипт perl вызывается не сразу, а после полной загрузки файла. Это может быть связано с настройками сервера. Сталкивался ли кто-нибудь раньше с этой проблемой? Причиной посл...

3
голосов
4ответов
1578 просмотров

Как автоматизировать Perl-скрипт в Delphi?

В настоящее время я работаю в приложении delphi. Мне нужно запустить Perl-скрипт из приложения delphi. Для большей ясности, вручную мы выполняем сценарий perl в окне unix. Теперь мне нужно автоматизировать выполнение этого сценария perl из приложения. Я пробовал использовать ShellExecute: ...

2
голосов
5ответов
585 просмотров

Как я могу использовать сокеты в Perl?Модуль есть?

Как программировать сокеты на Perl?Есть ли для этого какой-нибудь модуль? Я пытаюсь программировать сокеты на Perl.Я хочу знать, есть ли для этого какие-нибудь модули. И еще один вопрос: возможно ли, чтобы несколько серверов слушали один порт или несколько клиентов слушали один порт с помо...

13
голосов
5ответов
16322 просмотров

Почему я получаю предупреждения «слишком рано для проверки прототипа» в моем коде Perl?

У меня есть файл Perl, подобный этому: use strict; f1(); sub f3() { f2(); } sub f1() {} sub f2() {} Короче говоря, f1 вызывается перед определением.Итак, Perl выдает предупреждение: «f1 вызван слишком рано, чтобы проверить прототип».Но то же самое и с f2, единственное отличие состоит в ...

2
голосов
3ответов
2992 просмотров

Сопоставление строки со списком слов

Скажем, у меня есть строка «я застегнул фезз, и он вспыхнул, как баа», и у меня есть набор слов (му, баа, zip, fjezz, blaa), которые я хотел проверить, чтобы убедиться, что они содержатсяв строке, есть ли способ сделать это без использования |в регулярном выражении или итерация по каждому слову?...

0
голосов
3ответов
6083 просмотров

Почему мой XSD-файл не обрабатывается с помощью XML :: LibXML?

Я пытаюсь проверить XML по схеме с помощью LibXML :: Schema Validator CPAN модуль.В том же сценарии я использую модуль CPAN XML :: DOM для синтаксического анализа XML.Я хочу, чтобы мой скрипт использовал XML-файл, проверял его на соответствие XSD и анализировал его. Когда я пытаюсь запустит...

0
голосов
3ответов
3442 просмотров

Используйте PHP или Perl для правильного поворота изображений JPEG

Я использовал F-Spot в Ubuntu, чтобы повернуть некоторые фотографии (файлы JPEG), прежде чем загружать их на свой веб-сайт по FTP.Казалось, это сработало нормально.Однако, если эти изображения открываются в веб-браузере, они не отображаются как повернутые.И этого не произойдет, если я загружу их...

2
голосов
1ответов
108 просмотров

Запрещает DBIx :: Class вызывать все, что связано с новой, еще не вставленной строкой?

В моей схеме есть отношения родитель / потомок.Я хотел бы использовать очень похожий код для изменения существующего родителя и создания нового.В случае редактирования детей легко найти: my $parent = $resultset->find($parent_id); my @children = $parent->children->all Однако в нов...

0
голосов
3ответов
1053 просмотров

перемещение Perl-скрипта / dbm на новый сервер и переход с dbm?

Мне было поручено отразить сайт на новом сервере. На старом сайте есть несколько скриптов Perl, которые, насколько я понимаю изнутри (я ничего не знаю о Perl, хотя у меня довольно хорошее понимание кодирования в целом, и в частности PHP / js / и т. Д.), Не зависят от старого сервер. Тем не менее...