perl
EDIT: проблема ниже была произведена на складе Perl 5.16.3 на экземпляре AWS ec2 micro. В конечном счете это было решено путем установки и переключения на Perl 5.24.3 с помощью perlbrew. LWP::UserAgent похоже, это вызывает какую-то утечку памяти при сохранении содержимого. use v5.10; use strict; use warn...
Частично связано с этим вопросом, но отличается, так как речь идет о вызовах конструкторов... Я хотел бы создать массив из фиксированного числа объектов. Я мог бы сделать так: my @objects; push( @objects, new MyPackage::MyObject() ); push( @objects, new MyPackage::MyObject() ); push( @objects, new MyPack...
У меня есть следующий код Perl, который полагается на Term::ReadKey для получения ширины терминала; в моей сборке NetBSD отсутствует этот модуль, поэтому я хочу по умолчанию установить ширину терминала до 80, когда модуль отсутствует. Я не могу понять, как условно использовать модуль, заранее зная, доступен ...
Я пытаюсь получить доступ к веб-сервису, используя SOAP через Perl, и у меня возникают проблемы с вызовом функций сервиса, которые требуют параметров. XSD, который диктует вызов SOAP, говорит: <xs:complexType name="getVersion"> <xs:sequence/> </xs:complexType> <xs:complexType name="g...
У меня возникли проблемы с преобразованием поля даты Oracle в формат времени linux в perl. Я вытягиваю поле даты следующим образом: my $query = "SELECT RESPONSE_DATE FROM TABLENAME"; my $sth = $dbh->prepare($query); $sth->execute() or die "Couldn't execute statement: " . $sth->errstr; my @results ...
Я привык к тому, как Rails отображает маршрут или Django использует регулярное выражение на маршруте (я не ожидаю в Django, но это то, что я слышал, как он делает это маршрутизация) и как они используют стиль постоянных ссылок для доступа к веб-странице частиц. Можно ли сделать то же самое в Perl?...
У меня есть объект perl (благословенная ссылка на хэш), как это. sub funcname { #some code } my $o = My::Class->new(); $o->{internal_data} = &funcname; #I know it is not nice В другом месте где-то в коде XS, где у меня есть ссылка $o, мне нужно получить значение $o->{internal_data}. /* at ...
Контекст: ActiveState Perl: Это perl 5, версия 12, subversion 4 (v5.12.4), построенный для MSWin32-x86-multi-thread >perl -Mbignum=l -e "print 2 ** 32" 4294967296 >perl -Mbignum=l -e "print -2 ** 32" -4294967296 Затем я подумал, что, возможно, мне нужно разграничить отрицательные два. >perl -Mb...
Я пытаюсь получить список файлов, отсортированных по дате изменения. Я изменил пример программы из сортировка файлов каталогов и списков по дате и времени и попытался запустить его. sub get_sorted_files { my $path = shift; opendir my($dir), $path or die "can't opendir $path: $!"; my %hash = map ...
Я изучаю perl модуль IPC:: Run. читая cpan doc, я наткнулся на '<pipe'. Я написал небольшую программу. На исполнении он всегда висит. Код, который я написал : это просто копия из cpan doc. local (*IN); @cat = ('cat') $h = start @cat, '<pipe', *IN; print IN "hello worldn"; pump $h; close IN; ...