-Подписка по e-mail

 

 -Поиск по дневнику

Поиск сообщений в lj_ru_perl

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 17.10.2005
Записей:
Комментариев:
Написано: 0

Perl Developer





Perl Developer - LiveJournal.com


Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://ru-perl.livejournal.com/.
Данный дневник сформирован из открытого RSS-источника по адресу /data/rss/??8ef01000, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Что делает оператор //= ?

Понедельник, 02 Августа 2021 г. 21:10 + в цитатник
Наткнулся на gihub на использование оператора //= Ни разу раньше не видел его использования.
К сожалению, сам не нашел мануал, что он означает и тестами до конца не понял . По тестам вижу, что в отличие от ||= проверяет переменную на определенность, а не ложь/истина. Но у меня работает это с числами, а со строками после операции получаю undef.

Можете подсказать, что делает этот оператор присваивания?

https://ru-perl.livejournal.com/449974.html


serverless (cloud functions) для perl

Воскресенье, 05 Мая 2019 г. 09:51 + в цитатник

есть ли какие нибуть облачные провайдеры поддерживающие cloud function на perl ?

(запуск perl через nodejs не предлагать)

https://ru-perl.livejournal.com/449546.html


perlito компилятор perl5 в java

Воскресенье, 05 Мая 2019 г. 09:37 + в цитатник

нашел тут «готовый» компилятор — вдруг сгодится чтоб не писать компилятор с php

— кто пользуется?

— оно вообще рабочее? (судя по датам релизов около 9 лет уже пилят)

— насколько адекватный код получается — опять эмуляция perl рантайма или нормальный перевод на java типы и классы?

https://ru-perl.livejournal.com/449307.html


какие есть средства для парсинга кода в perl?

Вторник, 02 Апреля 2019 г. 08:21 + в цитатник

надо распарсить код типизированного класса на PHP 7 и сконвертировать в java (или в идеале в С++)

тоесть на уровне ограниченного ООП синтаксиса (без учета существования классов и методов библиотек)

на входе синтаксически корректный файл с классом на PHP на выходе синтаксически корректный файл с классом на java

https://ru-perl.livejournal.com/449168.html


есть ли pure perl http клиент с поддержкой https ?

Суббота, 13 Октября 2018 г. 10:59 + в цитатник

http::tiny зависит от Net::SSLeay - который бинарный

пока использую консольную утилиту curl


https://ru-perl.livejournal.com/448964.html


как прочитать .env ?

Воскресенье, 07 Октября 2018 г. 09:27 + в цитатник

формат файла .env обычный, например:

DEPLOY_DB="test1"

DEPLOY_USER="111"

DEPLOY_PASSWORD="111"

есть какойто модуль чтоб загрузить файл и переменные получить в скрипте perl в $ENV['DEPLOY_DB'] и т.д.

или это можно сделать средствами perl?

https://ru-perl.livejournal.com/448614.html


аналог php composer - что есть?

Понедельник, 01 Октября 2018 г. 08:34 + в цитатник

есть ли? — чтоб ставил в локальную папку проекта и подключая некий autoloader-файл в скрипте я мог использовать модули без необходимости установки через cpan и т.п.?

т е деплой осуществляется просто копированием на систему с установленным perl определенной версии и стандартными модулями

https://ru-perl.livejournal.com/448436.html


как проверить что модуль бинарный (чтото компилирует)

Понедельник, 01 Октября 2018 г. 08:28 + в цитатник

как проверить что модуль бинарный (чтото компилирует ) ?

например мне нужны модули реализованые на perl без требований к компиляции -

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

https://ru-perl.livejournal.com/448046.html


Разработка коммерческого продукта на perl5 - как способ защиты от копирования

Вторник, 04 Сентября 2018 г. 08:16 + в цитатник

что вы думаете об этом?
к примеру пишем на го/php/java или другом простом понятном языке — все просто и понятно где надо взяли скопировали и поменяли код.
а если пишем на перл — разработчиков мало, язык сложный и архаичный. на тех поддержке и кастомизации зарабатывать можно неплохо наверное?

https://ru-perl.livejournal.com/447968.html


потоковый POST запрос

Суббота, 25 Августа 2018 г. 17:34 + в цитатник

что есть готового чтоб сделать потоковый запрос

чтоб слать большой блок данных без загрузки в память полностью

т е вместо строки передавать обработчик который будет отдавать данные по частям или файловый handler

желательно не тащить либ с кучей звисимостей или бинарных модулей не стандартных

https://ru-perl.livejournal.com/447550.html


а кто Mouse знает?

Пятница, 24 Августа 2018 г. 16:24 + в цитатник
Чего хочется.

Хочется тегов (или хеша) к аттрибутам.

например



package Foo;
use Mouse;

has a => is => 'ro', isa => 'Str', tags => [ 'json' ];

__PACKAGE__->meta->make_immutable;



Ну и далее в методах сериализации (например) можно было бы попросить у meta список атрибутов и отбросить те которые не имеют заданного тега.

В данном примере на стадии has мы бы указали что сериализатору json можно сериализовывать этот атрибут.


я тут покопал как делаются расширения MouseX, но чет не вкуриваю откуда начинать вообще раскапывать сие.

есть у кого под рукой рабочий пример как добавить свою опцию в атрибут?

всех с пятницей!

https://ru-perl.livejournal.com/447455.html


Метки:  

а есть компиляторы в бинарник

Воскресенье, 04 Марта 2018 г. 19:41 + в цитатник

знаю есть perl2exe и pp но это по сути к интерпретатору прикрепляет сорцы

а есть полноценные?

чтоб както преобразовал в с/c++ и потом через gcc скомпилил (через mingw для винды)

ближайшие аналоги - у python есть Nuitka, Nim, haxe

https://ru-perl.livejournal.com/447188.html


Поздравляю товарищи!

Вторник, 06 Февраля 2018 г. 02:24 + в цитатник

Вышел новый релиз perl6 Rakudo Star 2018.01.
И простейший тест из цикла со сложением целых: $s+=$x++ while $x < $y; стал работать быстрее чем в perl5.

Поздравляю товарищи!

https://ru-perl.livejournal.com/446794.html


perl11

Понедельник, 01 Января 2018 г. 10:38 + в цитатник

http://perl11.org/

насколько юзабельно и стабильно?

https://ru-perl.livejournal.com/446507.html


MoarVM performance

Суббота, 12 Августа 2017 г. 01:30 + в цитатник

=================1=====================
$time perl -e 'my $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m12.047s
user 0m12.040s
sys 0m0.000s
=================2=====================
$perl6 -v
This is Rakudo version 2017.07 built on MoarVM version 2017.07
implementing Perl 6.c.
=================3=====================
$time perl6 -e 'my $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m46.730s
user 0m46.664s
sys 0m0.024s
=================4=====================
$time perl6 -e 'my Int $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m46.925s
user 0m46.840s
sys 0m0.028s
=================5=====================
$time perl6 -e 'my int $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m2.390s
user 0m2.356s
sys 0m0.028s
=================6=====================
$time perl6 -e 'my uint $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m12.103s
user 0m12.060s
sys 0m0.020s
=================7=====================
$time perl6 -e 'say (1..300000000).elems'
300000000
real 0m0.165s
user 0m0.144s
sys 0m0.020s
=================8=====================
$time perl -e '$s+=$x++ while $x < 30000000; print $s;'
449999985000000
real 0m2.336s
user 0m2.332s
sys 0m0.000s
=================9=====================
$time perl6 -e 'my int $x=0; my int $s=0; $s+=$x++ while $x < 30000000; say $s;'
449999985000000
real 0m17.609s
user 0m16.640s
sys 0m0.948s
=================10=====================
$time perl6 -e 'my uint $x=0; my uint $s=0; $s+=$x++ while $x < 30000000; say $s;'
449999985000000
real 0m21.325s
user 0m20.320s
sys 0m0.964s
=================11=====================
$time perl6 -e 'say [+] 1..29999999'
449999985000000
real 0m0.164s
user 0m0.124s
sys 0m0.036s

Мораль: элементы быстродействия присутствуют, но странностей много (5 vs 6 и 8 vs 9)

https://ru-perl.livejournal.com/446385.html


Метки:  

MoarVM performance

Суббота, 12 Августа 2017 г. 01:30 + в цитатник

=================1=====================
$time perl -e 'my $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m12.047s
user 0m12.040s
sys 0m0.000s
=================2=====================
$perl6 -v
This is Rakudo version 2017.07 built on MoarVM version 2017.07
implementing Perl 6.c.
=================3=====================
$time perl6 -e 'my $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m46.730s
user 0m46.664s
sys 0m0.024s
=================4=====================
$time perl6 -e 'my Int $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m46.925s
user 0m46.840s
sys 0m0.028s
=================5=====================
$time perl6 -e 'my int $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m2.390s
user 0m2.356s
sys 0m0.028s
=================6=====================
$time perl6 -e 'my uint $x=0; $x++ while $x < 300000000; print $x;'
300000000
real 0m12.103s
user 0m12.060s
sys 0m0.020s
=================7=====================
$time perl6 -e 'say (1..300000000).elems'
300000000
real 0m0.165s
user 0m0.144s
sys 0m0.020s
=================8=====================
$time perl -e '$s+=$x++ while $x < 30000000; print $s;'
449999985000000
real 0m2.336s
user 0m2.332s
sys 0m0.000s
=================9=====================
$time perl6 -e 'my int $x=0; my int $s=0; $s+=$x++ while $x < 30000000; say $s;'
449999985000000
real 0m17.609s
user 0m16.640s
sys 0m0.948s
=================10=====================
$time perl6 -e 'my uint $x=0; my uint $s=0; $s+=$x++ while $x < 30000000; say $s;'
449999985000000
real 0m21.325s
user 0m20.320s
sys 0m0.964s
=================11=====================
$time perl6 -e 'say [+] 1..29999999'
449999985000000
real 0m0.164s
user 0m0.124s
sys 0m0.036s

Мораль: элементы быстродействия присутствуют, но странностей много (5 vs 6 и 8 vs 9)

http://ru-perl.livejournal.com/446385.html


Метки:  

вот как бывает:

Вторник, 20 Июня 2017 г. 13:22 + в цитатник
#!/usr/bin/perl -w
use strict;

print ";-)\n" if "foo" =~ //;
"bar" =~ /bar/;
print ":-(\n" if "foo" =~ //;

https://ru-perl.livejournal.com/446147.html


вот как бывает:

Вторник, 20 Июня 2017 г. 13:22 + в цитатник
#!/usr/bin/perl -w
use strict;

print ";-)\n" if "foo" =~ //;
"bar" =~ /bar/;
print ":-(\n" if "foo" =~ //;

http://ru-perl.livejournal.com/446147.html


print 100.101.102

Вторник, 04 Апреля 2017 г. 17:17 + в цитатник
Почему perl -e 'print 100.101.102' выводит 'def'?
Понятно, что 100, 101 и 102 - это ASCII-коды символов 'd', 'e' и 'f', но почему произошло такое преобразование, почему это не то же самое, что perl -e 'print 100 . 101 . 102', как было бы ожидаемо? Или perl -e 'print 100.101 . 102' - тоже понятно.

Скорее всего, где-то в доке об этом написано, но не могу найти, так что просто покажите, не пинайте сильно.

https://ru-perl.livejournal.com/445872.html


print 100.101.102

Вторник, 04 Апреля 2017 г. 17:17 + в цитатник
Почему perl -e 'print 100.101.102' выводит 'def'?
Понятно, что 100, 101 и 102 - это ASCII-коды символов 'd', 'e' и 'f', но почему произошло такое преобразование, почему это не то же самое, что perl -e 'print 100 . 101 . 102', как было бы ожидаемо? Или perl -e 'print 100.101 . 102' - тоже понятно.

Скорее всего, где-то в доке об этом написано, но не могу найти, так что просто покажите, не пинайте сильно.

http://ru-perl.livejournal.com/445872.html


Быстродействие Perl6

Среда, 29 Марта 2017 г. 15:25 + в цитатник
perl6 -v This is Rakudo version 2017.01 built on MoarVM version 2017.01 implementing Perl 6.c.
perl -v This is perl 5, version 22, subversion 1 (v5.22.1) built for x86_64-linux-gnu-thread-multi
julia -v julia version 0.4.5
python -V Python 2.7.12
pypy -V Python 2.7.10 (5.1.2+dfsg-1~16.04, Jun 16 2016, 17:37:42)
[PyPy 5.1.2 with GCC 5.3.1 20160413]

time perl6 -e 'my $x=0; $x++ while $x < 30000000' real 0m11.016s
time perl6 -e 'my int $x=0; $x++ while $x < 30000000' real 0m0.380s
time perl -e '$x++ while $x < 30000000' real 0m1.321s
time julia -e 'x=0; while x<30000000; x+=1; end' real 0m2.239s
time python -c 'x=0
while x<30000000: x+=1'
real 0m2.824s
time pypy -c 'x=0
while x<30000000: x+=1'
real 0m0.054s

https://ru-perl.livejournal.com/445445.html


Метки:  

Поиск сообщений в lj_ru_perl
Страницы: [7] 6 5 4 3 2 1 Календарь