Результаты поиска по запросу "perl"

1 ответ

 это известная ошибка в Perl.

у создать модуль для собственного использования по умолчанию, например: use My::perldefs;со следующим содержанием(в основном на ...

5 ответов

Диагностика, вероятно, была бы излишней для целей ОП (сеть безопасности), но это не является причиной для снижения рейтинга.

ыйзащитная сетка [http://perldoc.perl.org/perlintro.html#Safety-net]вы используете? использовать предупреждения; или же использовать строгое; я знаю это Потенциальная проблема, пойманная строгим использованием; приведет к ...

1 ответ

скрипт perl для перебора узлов xml с использованием XML :: LibXML

Я пытаюсь придумать Perl-скрипт для перебора некоторых узлов и получения значений в XML-файле. Мой XML-файл выглядит ниже и сохраняется spec.xml <?xml version="1.0" encoding="UTF-8"?> <WO ...

ТОП публикаций

3 ответа

это сравнение строк.

шёл чей-то старый код и наткнулся на это утверждение: $tmpStr = "/some/file/location/"; if(-d $tmpStr){ printf("1"); }else{ printf("2"); }Я запутался в том, что -d делает ... любая помощь?

2 ответа

Как я уже сказал, я заменил оператор begin_work на autoCommit => 0, никогда не использовал их вместе, однако ни одна из них не работает с хранимой процедурой. Я использую DBD :: mysql 4.019

аюсь сделать вызов хранимой процедуры из с в транзакции в ее упрощенной форме: my $dbh= DBI->connect(............ ); my $sth = $dbh->prepare("call sp_get_workitems (1,1)"); $dbh->begin_work or die $dbh->errstr; $sth->execute(); my ($result)= ...

4 ответа

 Команда для выполнения работы:

аюсь получить имя всех каталогов по указанному пути Я попробовал следующее, но это дает мне каждый уровень не только по указанному пути find(\&dir_names, "C:\\mydata\\"); sub dir_names { print "$File::Find::dir\n" if(-f $File::Find::dir,'/'); }

3 ответа

«A» -1 является неоднозначным, но его можно определить как -1 или любое другое интеллектуальное решение. Все остальные имеют логический результат!

стиемperl -e '$string="a";print ++$string;' мы получилиb, но сperl -e '$string="b";print --$string;' мы получили-1. Итак, если мы можем увеличить, почему мы не можем уменьшить? РЕДАКТИРОВАНИЕ «Оператор автоматического декремента не ...

2 ответа

объяснение и анализ

my @output = map $_->[0], sort{$a->[1] <=> $b->[1]} map [$_,-s $_], @array; кто-нибудь объяснить код более подробно? Я не могу получить голову или хвост этого ..

3 ответа

хорошая точка зрения. Thanx.

у использовать несколько пакетов и несколько прагм во всех моих программах, например: use 5.014; use warnings; use autodie; use My::ModuleA::Something; use ModuleB qw(Func1 Func2);Я не хочу повторяться в каждом модуле, поэтому ищу способ сделать ...

1 ответ

 устанавливает их в пространство звонящего)

мпредыдущий вопрос [https://stackoverflow.com/q/6491058/734304]Я спросил, как использовать несколько модулей с одним использованием. Есть одинидеальный ...