Запись понравилась
0
Процитировали
0
Сохранили
Понедельник, 02 Августа 2021 г. 21:10
+ в цитатник
Наткнулся на gihub на использование оператора //= Ни разу раньше не видел его использования.
К сожалению, сам не нашел мануал, что он означает и тестами до конца не понял . По тестам вижу, что в отличие от ||= проверяет переменную на определенность, а не ложь/истина. Но у меня работает это с числами, а со строками после операции получаю undef.
Можете подсказать, что делает этот оператор присваивания?
https://ru-perl.livejournal.com/449974.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post454386151/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post454386151/">Читать далее...</a>
Воскресенье, 05 Мая 2019 г. 09:51
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post454386150/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post454386150/">Читать далее...</a>
Воскресенье, 05 Мая 2019 г. 09:37
+ в цитатник
нашел тут «готовый» компилятор — вдруг сгодится чтоб не писать компилятор с php
— кто пользуется?
— оно вообще рабочее? (судя по датам релизов около 9 лет уже пилят)
— насколько адекватный код получается — опять эмуляция perl рантайма или нормальный перевод на java типы и классы?
https://ru-perl.livejournal.com/449307.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post452637739/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post452637739/">Читать далее...</a>
Вторник, 02 Апреля 2019 г. 08:21
+ в цитатник
надо распарсить код типизированного класса на PHP 7 и сконвертировать в java (или в идеале в С++)
тоесть на уровне ограниченного ООП синтаксиса (без учета существования классов и методов библиотек)
на входе синтаксически корректный файл с классом на PHP на выходе синтаксически корректный файл с классом на java
https://ru-perl.livejournal.com/449168.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post442106625/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post442106625/">Читать далее...</a>
Суббота, 13 Октября 2018 г. 10:59
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post441747126/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post441747126/">Читать далее...</a>
Воскресенье, 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
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post441397627/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post441397627/">Читать далее...</a>
Понедельник, 01 Октября 2018 г. 08:34
+ в цитатник
есть ли? — чтоб ставил в локальную папку проекта и подключая некий autoloader-файл в скрипте я мог использовать модули без необходимости установки через cpan и т.п.?
т е деплой осуществляется просто копированием на систему с установленным perl определенной версии и стандартными модулями
https://ru-perl.livejournal.com/448436.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post441397626/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post441397626/">Читать далее...</a>
Понедельник, 01 Октября 2018 г. 08:28
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post440033199/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post440033199/">Читать далее...</a>
Вторник, 04 Сентября 2018 г. 08:16
+ в цитатник
что вы думаете об этом? к примеру пишем на го/php/java или другом простом понятном языке — все просто и понятно где надо взяли скопировали и поменяли код. а если пишем на перл — разработчиков мало, язык сложный и архаичный. на тех поддержке и кастомизации зарабатывать можно неплохо наверное?
https://ru-perl.livejournal.com/447968.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post439619283/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post439619283/">Читать далее...</a>
Суббота, 25 Августа 2018 г. 17:34
+ в цитатник
что есть готового чтоб сделать потоковый запрос
чтоб слать большой блок данных без загрузки в память полностью
т е вместо строки передавать обработчик который будет отдавать данные по частям или файловый handler
желательно не тащить либ с кучей звисимостей или бинарных модулей не стандартных
https://ru-perl.livejournal.com/447550.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post439583099/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post439583099/">Читать далее...</a>
Пятница, 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
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post431464894/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post431464894/">Читать далее...</a>
Воскресенье, 04 Марта 2018 г. 19:41
+ в цитатник
знаю есть perl2exe и pp но это по сути к интерпретатору прикрепляет сорцы
а есть полноценные?
чтоб както преобразовал в с/c++ и потом через gcc скомпилил (через mingw для винды)
ближайшие аналоги - у python есть Nuitka, Nim, haxe
https://ru-perl.livejournal.com/447188.html
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post429888378/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post429888378/">Читать далее...</a>
Вторник, 06 Февраля 2018 г. 02:24
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post427975021/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post427975021/">Читать далее...</a>
Понедельник, 01 Января 2018 г. 10:38
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532989/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532989/">Читать далее...</a>
Суббота, 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
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post419320280/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post419320280/">Читать далее...</a>
Суббота, 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
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532988/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532988/">Читать далее...</a>
Вторник, 20 Июня 2017 г. 13:22
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post416964418/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post416964418/">Читать далее...</a>
Вторник, 20 Июня 2017 г. 13:22
+ в цитатник
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532987/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532987/">Читать далее...</a>
Вторник, 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
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post412700093/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post412700093/">Читать далее...</a>
Вторник, 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
Запись понравилась
0
Процитировали
0
Сохранили
<a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532986/"></a><br/>... <a href="https://www.liveinternet.ru/users/lj_ru_perl/post420532986/">Читать далее...</a>
Среда, 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