Perl

Конференция «Saint Perl 2011»

Sun, 11 Dec 2011 17:15:33 +0400

shlash поделился ссылкой

третья в Санкт-Петербурге тематическая конференция, посвященная языку программирования Perl. Мероприятие пройдёт в воскресенье, 18 декабря 2011 года. Для языка Perl этот день станет уже 24-м днём рождения!
Регистрация участников — с 10:30
Открытие конференции — в 11:00
Санкт-Петербург, пр. Обуховской обороны, д. 70, к. 2, ст. м. «Елизаровская»

Опросник

Tue, 30 Aug 2011 16:46:32 +0400

Начала учить perl. Учу галопом, надо быстро получить результат. Нормально учить получиться только потом. Поэтому возможно глупый вопрос.

Это голосовалка. Сейчас она выводит результат голосования на отдельной странице, а я хочу чтобы выводила вместо самого голосования. Помогите девушке. Можно просто ссылкой на почитать.

<FORM ACTION="golos.cgi" METHOD="POST">
<INPUT TYPE="RADIO" NAME="golos" checked VALUE="классно">Классно<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="хорошо">Хорошо<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="удовлетворительно">Удовлетворительно<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="не очень">Не очень<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="плохо">Плохо !!<br>
<INPUT TYPE="SUBMIT" NAME="Submit1" VALUE="Отправить">

#!/usr/bin/perl

$golos="golos.txt"; #fail s soobweniyami golosovaniya
$up="up.txt"; #fail s verhnim colontitumom
$down="down.txt"; #fail s nignim colontitumom
$head="head.txt"; #fail so sloyami stiley

################################################

&parse_form;
$slovo=$FORM{golos};
open (GOLOS, $golos);
@gls=<GOLOS>; #zadaetsya massiv gls,zapolnyaetsya iz faila golos.txt
close (GOLOS);

for ($i=0; $i<=$#gls; ++$i) {
($s1,$s2,$s3)=split (/;/,$gls[$i]); #razbivaet massiv $gls na tri chasti
if ($s1 eq $slovo) {$s3++; $gls[$i]="$s1;$s2;$s3\n";} #esli pervoe slovo
#sovpadaet s vibrannim to kol golosov uvel na 1
}

open (GOLOS, ">$golos"); #otkrili file golos.txt i zapisali v nego dannie
print GOLOS @gls;
close (GOLOS);

print "Content-type: text/html\n\n";

open (COL, $up);
@col=<COL>;
print @col;
close (COL);

open (GOLOS, $golos);
@gls=<GOLOS>;
close (GOLOS);

open (GOLOS, $head);
$style=<GOLOS>;
close (GOLOS);

$sum=0;

for ($i=0; $i<=$#gls; ++$i) {
($s1,$s2,$s3)=split (/;/,$gls[$i]);
$sum+=$s3;    #peremennaya dlya ucheta kolichestva progolosovavshih
$num[$i]=$s3; #peremennaya dlya ucheta golosov v %
$zag[$i]=$s2; #nazvanie pozicii
}

print_all ($sum);
for ($i=0; $i<=$#gls; ++$i) {
print_text ($zag[$i],$num[$i],$sum);
}

open (COL, $down);
@col=<COL>;
print @col;
close (COL);

###################################
#
# Procedur neobhodimie prog
#
###################################


# Procedura dlya chteniya formi
#############################
sub parse_form{
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs=split (/&/, $buffer);
foreach $pair (@pairs){
($name,$value) = split (/=/,$pair);
$value=~ tr/+/ /;
$value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;
}}

# Procedura dlya vivoda soobheniya na ecran
##########################################
sub print_text{
my ($zag, $num, $sum)=@_;
$st=$style;
$text="$zag - всего голосов: $num (".int((($num/$sum)*100))."%)";
$st=~ s/<<text>>/$text/;
print $st;
}

# Vivod colichestva progolosovavshih
###############################
sub print_all{
my ($sum)=@_;
$st=$style;
$text="Всего проголосовало: $sum";
$st=~ s/<<text>>/$text/;
print $st;
}

Perl News and more

Mon, 18 Jul 2011 01:13:25 +0400

Сергей Осипенко поделился ссылкой

Perl/Php трансляция | belousovv.ru

Sun, 19 Jun 2011 02:38:04 +0400

belousovv.ru поделился ссылкой

Mojolicious. Видео руководство.

Wed, 27 Apr 2011 14:54:22 +0400

Андрей Опейкин поделился ссылкой

Логотип Perl 5

Tue, 01 Mar 2011 13:11:43 +0400

Андрей Опейкин поделился ссылкой

Вариант логотипа для Perl 5

Mojolicious::Lite стартуем! / Mojolicious / allframeworks.ru - Блог о современной веб-разработке и инструментарии

Mon, 15 Nov 2010 10:03:47 +0400

Андрей Опейкин поделился ссылкой

Mojolicious::Lite Стартуем! Mojolicious::Lite — микро веб-фреймворк, написанный на Perl , основанный на Mojolicious и входящий в состав Mojo .

Mojolicious и sessions в DB?

Sun, 14 Nov 2010 23:46:01 +0400

Для Mojolicious есть какие-нить модули чтобы просто было авторизировать пользователя и хранить сессии в БД?

попробовал MojoX::Auth::Simple , но то ли он недописан, то ли у меня руки кривые :(

Модуль для Яндекс.Фотки API

Thu, 12 Aug 2010 21:55:18 +0400

Всем привет!

Мне тут надо попользоваться Ядекс.Фотки API, и не найдя соответсвующего модуля, решил сварганить свой. Хочу результат выложить на CPAN, раз ничего такого (к своему большому удивлению) я ещё не нашёл. Но хочется чтоб это было кому-то кроме меня полезно, и поскольку ничего особо общественно полезного на Perl я ещё не делал, хотелось попросить совета у профессионалов :)

Кое что из задуманного я уже реализовал, выложу чуть позже.

Что вы думаете/посоветуете по следующим пунктам (по любым из них):

(1) Модуль будет с ограничеными возможностями, без авторизации и, соответсвенно, без функций заливки и редактирования.
Crypt::RSA::Yandex собрать даже на своём компе не получается (в ActiveState репозитории его нет), поэтому надеятся что на виртуальном хостинге будет лучше не дерзаю.

(2) Не использует AtomPub модули с CPAN (API использует протокол AtomPub). Те модули которые там есть, насколько я понял, тянут за собой слишком много зависимостей, некоторые из которых ещё и компилируемые, что не позволит из поставить на некоторых бюджетных виртуальных хостинг-аккаунтах.

(3) Самый главный вопрос, который меня мучает - в каком виде лучше возвращать полученые данные.
На данный момент, для коллекций (альбомов, фоток) возвращаю ссылку на массив хэшей. Для одиночных элементов (фото, альбом) - ссылку на хэш. Это нормально? Как обычно делают?

(4) Название. Не хочу называть Yandex::Fotki::API, на случай кто-нибудь более грамотный напишет полную имплементацию. Сейчас пока Yandex::Fotki::API::Limited... как-то длинно. Посоветуйте?

Заранее спасибо.

Perlgolf

Wed, 04 Aug 2010 19:52:15 +0400

Привет! Давайте играть в Perlgolf :-)

Популяризация

Wed, 04 Aug 2010 16:55:35 +0400

Коллеги, а вот вопрос по поводу популяризации перла.

У меня тут вырисовывается доклад, на небольшой и непрофильной конференции. Будут там в основном
студенты и почти никаких перловиков.

Вот чтобы вы хотели услышать на таком событии, на тему «Чем Perl лучше других языков?»

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

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

Rakudo Star

Thu, 29 Jul 2010 16:55:54 +0400

Свершилось: выпущен релиз Rakudo * — первый «пригодный к использованию» релиз perl6.

Подробности на http://rakudo.org/node/75

Fuzzy matching, мать его…

Fri, 23 Jul 2010 21:19:03 +0400

Второй день сушу голову над такой задачей: есть множество объектов, назову их традиционно — хуябрики.

Хуябрики могут обладать тремя свойствами: размером, формой и цветом, при этом только размер обязательно определен, а форма и цвет могуть быть undefined (бесформенные и бесцветные хуябрики). Впрочем, если хуябрик обладает цветом, то он обладает и формой (constraint такой изначально).

Есть функция, в которую поступают (опционально) некоторые форма и цвет. Требуется, чтобы функция вернула один хуябрик, наиболее соответствующий переданным параметрам, в таком вот порядке приоритетов:

если есть хуябрики с заданным формой и цветом, то выбираем их;
если с заданным цветом нет, то другой цвет не берем ни в коем случае, ищем среди бесцветных, но нужной формы;
если нет нужной формы, то выбираем бесцветные и бесформенные;
наконец, среди оставшихся хуябриков (а размер определен обязательно) отдаем предпочтение большим над меньшими.

Если ничего по условиям не нашли, что ж, значит, не нашли, ничего не возвращаем.

Теперь вот что я начал делать.

Сначала грепаем список хуябриков на предмет оставить только нужного цвета/формы или бесцветные/бесформенные.

Затем сортируем список по хитрому правилу, которое должно вытеснить в начало списка наиболее приемлемые хуябрики.

Наконец, возвращаем первый элемент списка.

Получилось такое:

sub match
{
    my ($objs, $prop) = @_;
 
    # Set undefined properties to value, that never be found in list
    $prop->{shape} = '' if !defined($prop->{shape});
    $prop->{color} = '' if !defined($prop->{color});
 
    my @sorted = 
    # Order objects
    sort {
 
        my $r = 0;
 
        if (defined($a->{color}) && defined($b->{color})) {
            if (defined($a->{shape}) && defined($b->{shape})) {
                # The biggest is better
                $r = ($a->{size} eq 'big') ? -1 : 1;
            }
            else {
                $r = defined($a->{shape}) ? -1 : 1;
            }
        }
        else {
            $r = defined($a->{color}) ? -1 : 1;
        }
 
        return $r;
    }
    # Filter objects
    grep {
        (!defined($_->{color}) || $_->{color} eq $prop->{color})
        &&
        (!defined($_->{shape}) || $_->{shape} eq $prop->{shape})
    } @$objs;
 
    return $sorted[0] || undef;
}
 

Полный исходник с данными и отладочной печатью: huyabriki.pl.

Оно вроде как работает (хотя я не удивлюсь, если кто найдет ошибку), но очень мне не нравится.

Не нравится хотя бы тем, что если у хуябриков добавятся вкус и запах, код разрастётся в неприглядную магию, а он и так уже невразумителен.

Так вот, может быть, кто-то ткнёт меня носом в подходящий алгоритм? Которому можно передать список свойств, порядок сравнений, и получить на выходе красивый, тщательно отобранный хуябрик? Буду очень спасибо.

А то мне сегодня что-то совсем не думается…

Вопрос про Mojolicious

Tue, 13 Jul 2010 19:29:22 +0400

попробовал пример из блога (второй здесь) автора, не работает. может кто знает почему?

WinXP/Vista, Perl 5.10, Mojolicious ....26 (последняя на CPAN).

use Mojolicious::Lite;

get '/title' => sub {
    my $self = shift;
    my $url  = $self->param('url');
    $self->render(text =>
          $self->client->get($url)->success->dom->at('title')->text);
};

app->start;

т.е. тут как бы и не понятно почему бы оно вообще должно работать. в $self->$param('url') ведь наверно http://localhost:3000/title , а там откуда title тэг? но попробовал следующий пример та же тема. Объясните, плиз, где я недопонимаю?

use Mojolicious::Lite;

get '/webpage' => 'page';

get '/title' => sub {
    my $self = shift;
    my $url  = '/time';
    $self->render(text =>
          $self->client->get($url)->success->dom->at('title')->text);
};

app->start;
__DATA__

@@ page.html.ep
<html>
<head><title>this is a test</title></head>
<body>hi</body>
</html>

Ошибки валятся:

Tue Jul 13 15:48:53 2010 debug Mojolicious:134 [15468]: *** Request for "/title" from "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/533.4 (KHTML, like Gecko) Chrome/5.0.375.99 Safari/533.4". ***
Tue Jul 13 15:48:53 2010 debug MojoX::Dispatcher::Routes:146 [15468]: Dispatching callback.
Use of uninitialized value $scheme in string eq at C:/Perl/site/lib/Mojo/Client.pm line 796.
Tue Jul 13 15:48:53 2010 error MojoX::Dispatcher::Routes:159 [15468]: Can't call method "dom" on an undefined value at D:\p\Mojolicious\tmp1.pl line 6.

WinXP: ассоциация расширений с Perl-приложением + запуск его со скрытой консолью

Wed, 07 Jul 2010 01:26:26 +0400

Зхотелось мне чтобы .xml файлы открывались xml-viewer'е на PerlTk. Как это сделать я разобрался (опишу ниже), но хочется узнать есть ли альтернативные, более элегантные решения?

Запустить Perl-приложение со скрытой консолью оказалось просто с помошью windows scripting host и vbscript'а (наверно можно обойтись и без vbs, пока не пробовал. изящней не будет по-любому).

А вот при попытке ассоциации расширения с .vbs файлом винда пожаловалась что это не запускаемый файл. Эту проблему удалось решить с помошью cmd.exe /c

Вобщем, в проводнике: Tools -> Folder Options -> File types -> XML -> Advanced
Строка для запуска: c:\windows\system32\cmd.exe /c D:\Tools\XML_Viewer\xmlviewer_start.vbs "%1"

Проблемы этого комплексного решения:

- оно слишком комлексное: cmd -> vbs+wsh -> .pl

- WSH может был отпкючен админами, а на WinXP Embedded его вообще может и не быть, как и VB scripting'а

- должен быть указан полный путь к cmd.exe, использование переменной %SystemRoot% почему-то приводит ошибке о нехватке прав на моём компе; при использовании полного пути всё работает

- путь к .vbs файлу не должен содержать пробелов, или если они есть, такие папки придётся указывать коротким именем ("XML Viewer" = XMLVIE~1 ; посмотреть его можно, например, через dir /x)

заключить путь к .vbs файлу в кавычки не получается, т.к. винда рассматривает их как часть пути, что приводит к ошибке "The filename, directory name, or volume label syntax is incorrect."

- при запуске происходит быстрый открывается и закрывается какое-то окно (но вроде не консоль) до того как открывается окно приложения

Может есть какое-нибудь общеизвестное решение лишённое этих проблем?

документация статьи, книги на русском

Tue, 29 Jun 2010 16:37:19 +0400

Если вдруг кто не знал / забыл на Perl 5 Wiki есть страничка со ссылками на русскоязычные ресурсы о Perl (5 & 6) :) . Добавил сегодня несколько ссылок, разбил больше на разделов, допереводил что добавил Gabor на английском когда создавал страничку. По-моему там не хватает ссылок на статьи, туториалы, книги. Если знаете - добавляйте!

А так же на http://www.translated.by/you/tags/Perl/all/ есть несколько недопереведённых статей. Можете помочь :)

JSON::what? с отключением quotes

Fri, 11 Jun 2010 18:27:25 +0400

Нехороший ява-скрипт ждет о меня порцайку данных в формате JSON. Казалось бы, фигня вопрос — сериализовать в JSON развесистую структуру… Но наткнулся на грабли под видом типа Date().

Вот оно чего хочет:

{ a: "foo", b: new Date(2010, 06, 11) }

Хочет оно не просто байтовый поток с содержанием, а выражение с вызовом конструктора объекта. Кажется, именно в этом отличие страшного слова «сериализация» от другого, не менее страшного: «маршализация». Но не суть.

Так вот, это ещё не проблема. Проблема в том, что ни один из бегло проглянутых мною вариантов JSON::* на сипане не даёт метода явно отменить кавыченье определенных данных. Для названий ключей — ну ещё ладно, но не для значений. Все они порождают в лучшем случае:

{ a: "foo", b: "new Date(2010, 06, 11)" }

Пришлось сделать костыль — выводить как есть, строкой, и затем набрасывать регэксп:

$json =~ s/"(new\s+Date[^"]+)"/$1/g;

Может быть, кто-то знает, куды бечь?

Tue, 08 Jun 2010 19:12:06 +0400

Не так давно я добавил на CPAN свой первый модуль WWW::Yandex::Catalog::LookupSite. Я никогда не писал ничего общественно полезного на перле, и на работе перлом так же не приходится пользоваться, да и учил я его по интернет примерам, по-этому хотелось чтобы кто-нибудь на мой код взглянул, покритиковал. Хочется извлечь для себя из этого какие-нибудь уроки :) Вобщем, если кто-нибудь на досуге на него посмотрит, чо-нить посоветует, как-нибудь отреагирует, буду благодарен. Он маленький :)

Perl programming survey

Sun, 23 May 2010 02:52:38 +0400

Все желающие приглашаются принять участие в опросе, проводимом The Perl Foundation:
perl.websurvey.net.au

Опрос затрагивает ваш личный опыт программирования, ваше мнение о языке и его текущем состоянии, о комьюнити и вашем в нем участии и т.д. Займет минут десять-пятнадцать.

И кстати-кстати, в одном из вопросов есть хорошая подборочка основных перловых ресурсов. Выложу её здесь:

Буфера, они же сиськи

Wed, 28 Apr 2010 20:22:38 +0400

Коллеги, очень голову сломал уже... Как бы мне задрать размер буфера для файлхендла? Есессно, версия перла 5.8+++ (5.10.1), т.е. setvbuf() не канает.