Русский Перл

Продолжаю развлекаться с пагинацией.

К клёвому пагинатору написал генератор номеров страниц. Обертка на Data::Pageset, с результатом под CTPP. Придумал как написать совсем универсальный генератор навигации для пагинации. Еще бы (как всегда) было на это время...

ps: а как, интересно, по-русски называется "пагинатор" ?

02:40

В работе использую EPIC и недавно начал пробовать Komodo IDE. Но в качестве лёгкого «повседневного» редактора в системе у меня установлен mooedit. Не всё в нём идеально, но некоторые вещи можно подкрутить, о чём и пойдёт речь.

Читать дальше →

Написал kloppspb в 13:22

Работа с форматом JSON на языке PERL.

Формат JSON

  <student>
  <name>Алексей</name>
  <surname>Алексеев</surname>
  <faculty>Экономический</faculty>
  <group>Э-51</group>
  <adress>
    <city>Москва</city>
    <street>Береговая</street>
    <house>2</house>
    <apartment>14</apartment>
  </adress>
</student>



<student>
  <name>Петр</name>
  <surname>Петров</surname>
  <faculty>Машиностроительный</faculty>
  <group>М-72</group>
  <adress>
    <city>Москва</city>
    <street>Речная</street>
    <house>12</house>
    <apartment>24</apartment>
  </adress>
</student>

  [
    {
        "name": "Петр",
        "surname": "Петров",
        "faculty": "Машиностроительный",
        "group": "М-72",
        "adress": {
            "city": "Москва",
            "street": "Речная",
            "house": "12",
            "apartment": "24"
    }   
},
{
        "name": "Алексей",
        "surname": "Алексеев",
        "faculty": "Экономический",
        "group": "Э-51",
        "adress": {
            "city": "Москва",
            "street": "Береговая",
            "house": "2",
            "apartment": "14"
        }    
    }
]

Постановка задачи

JSON и Perl

  use JSON;

  sub decodeJSON {
        my ($JSONText) = @_;
    my $hashRef = decode_json($JSONText);
    return @$hashRef;
}

  sub encodeJSON{
        my($arrayRef) = @_;
        $JSONText= JSON->new->utf8->encode($perl_scalar);
        return $JSONText;
}

Заключение

Написал kaRTman3103 в 17:03

Добрый день, Хабр!

Мы хотим сделать обзорный пост, посвящённый нашему новому проекту. Обзор затронет как функционал, так и техническую часть, надеемся, это сделает статью интересной как профессиональным разработчикам, так и тем, кто читает Хабр с целью держать руку на пульсе Технологии.

Тем, кому интересна только техническая сторона проекта — рекомендуем сразу перейти ко второй части.

ЧАСТЬ 1. Лирическая

Мы — это команда разработки сервиса личных страниц uid.me.
Личная страница — это, например, вот так:

Читать дальше →

Написал pavel_kudinov в 13:56

Предисловие

Написал gatoazul в 12:12

Программист написал скрипт для скачивания веб-страниц по заданному списку. Скрипт читает адреса (url) страниц из STDIN (по одному на строке), скачивает каждую странциу и записывает ее контент в файл. Файлы создаются в каталоге, переданном первым аргументом командной строки, либо в /tmp, если каталог не задан. Записав очередной файл, скрипт пишет на STDOUT адреса скачанной страницы и имя созданного файла. Прогресс скачивания можно отслеживать, посылая процессу сигнал USR2 – в ответ он говорит, сколько времени работает и сколько страниц скачал.

    #!/usr/bin/perl



# downloader.pl ~/downloads <urls >ready_files



use LWP::Simple;
use File::Temp qw/tempfile/;



my $CNT = 0;
my $DIR = shift @ARGV || '/tmp';



prepare();



while(<STDIN>){
    chomp();
    my $content = get($_);
    my ($fh, $filename) = tempfile("X" x 10, DIR => $DIR);
    binmode( $fh, ":utf8" );
    print $fh $content;
    print "url: $_\tfile: $filename\n";
    $CNT++;
}



{
my $start;
sub prepare
{
    $start = time;
    $SIG{USR2} = print_stat();
    print STDERR "pid: $$\n";
}



sub print_stat
{ 
    my $seconds = time() - $start;
    print STDERR "$seconds sec elapsed, $CNT urls have been processed\n" if $seconds > 0;
    return '';
}
}

  

Пример списка страниц:

    http://perltrap.com/ru
http://perltrap.com/en
http://perltrap.com/ru/puti-k-fajlam
http://perltrap.com/en/chronology
http://perltrap.com/en/abc

  

Нельзя сказать, что скрипт совсем не работает. Страницы он скачивает, какие-то файлы создает. А вот насчет всего остального…

10:02

В очередной раз подумал, что если бы Padre был в гитхабе - я бы понаписал кучу патчей, заметно улучшающих его юзабилити. Но разбираться в их бардаке в svn...

02:23

На сайте prostopleer.com есть, вроде бы, возможность скачать целиком музыкальный альбом. Но потом — сюрприз! — скачавшийся zip-файл вовсе не является ZIP-архивом: ни unzip, ни 7z не желают его открывать. Лишь всемогущий mplayer спокойно играет одну пьесу за другой.

Анализ содержимого показал: в начале архива идёт стандартная сигнатура PK♥♦ (50 4B 03 04), но за ней — имена файлов вместе с мусором и сами файлы, без какого-либо сжатия. Достать музыку из такого файла при наличии перла — легко!

#!/usr/bin/perl -0777 -n



=head1 DESCRIPTION



Split big pseudo zip-archive from prostopleer.com into small mp3 files.



=head1 USAGE



 ./split.pl big-pseudo.zip



=head1 SEE ALSO



L<< https://gist.github.com/shoorick/7785185 >>



=head1 AUTHOR



Alexander Sapozhnikov
L<< http://shoorick.ru/ >>
Lshoorick@cpan.orgE



=cut



binmode(STDIN);



my $divisor = "ID3\x04\x00";
my @chunks = split $divisor;
shift @chunks;



my $i = 1;
foreach my $chunk ( @chunks ) 
    open(my $fh, '<', sprintf('%02d.mp3', $i++))
        or die "cannot open for writing: $!";
    print $fh $divisor, $chunk;
    close $fh;

14:24

Представлен десятый выпуск Pragmatic Perl, русскоязычного электронного журнала о современном языке программирования Perl.

18:51

Программист написал функцию для подсчета уровней вложенности каталогов:

    =head2 path_depth



Получает абсолютный путь к файлу/каталогу, возвращает его "глубину".
Обрабатывает пути в стиле Unix и Windows



/, a:\ --> 0
/bin, c:\program files --> 1
/etc/hosts --> 2
C:\WINDOWS\system32\drivers\etc\hosts --> 5
                                                          
=cut                                                      
                                                          
sub path_depth
{   
    my $path = shift;
    if ( $path =~ m{^/} ){
        # Unix
        $path =~ s!/+$!!g;
        $path =~ s!//+!/!g;
        return scalar(split '/', $path) - 1;
    } elsif ( $path =~ m{^.:} ) {
        # Windows
        $path =~ s!\\+$!!g;
        $path =~ s!\\+!\\!g;
        return scalar(split '\\', $path) - 1;
    } else {
        die "unknown format";
    }
}

  

Все ли хорошо с этой функцией? Как вы думаете?

07:33

Ура, я научился готовить CGI::Struct::XS в сочетании с Dancer.

Там какое-то нереальное количество опечаток в документации, дойдут руки - сделаю пулл реквест. И надо бы еще померять время в сравнении с текущим костылем на CGI::WebIN.

22:52

Приветствую, сообщество.
Памятуя об том, как здешние обитатели однажды помогли найти одному эйчар-агентству замечательного спеца, обращаюсь к вам снова.
Для крупного конструктора сайтов нужен perl-разработчик в офис в Ростове-на-Дону и разработчик в офис в Казани. Надо - Perl или PHP/C++ с готовностью переучиваться на Perl (рассматриваем без опыта, будем обучать); шарить в mysql, css, js, jquery, ajax.
Плюшки, интересности и прочее прилагаются. Деньги готовы обсуждать.
Если это вы или вы таких знаете, пишите: nikiforova@ichar.ru, skype:alex.nwell

Написал Alexandra в 15:07

21 декабря 2013 года в Санкт-Петербурге состоится ежегодный семинар "Saint Perl". Мероприятие проводится уже в пятый раз и в этом году оно пройдет в питерском офисе компании JetBrains. В программе ожидаются доклады на различную тематику от участников русскоговорящей части сообщества разработчиков на языке Perl. Участие бесплатно, но необходимо зарегистрироваться на сайте конференции. Список выступлений на данный момент формируется, подать заявку на выступление может любой желающий.

13:00

Клиенты Как показывает практика, не все SOAP сервисы на самом деле являются совместимыми со всеми SOAP клиентами на перле, так что придётся перебрать несколько вариантов. SOAP::Lite XML::Compile::SOAP SOAP::WSDL — позволяет из WSDL файла сделать кучу перловых библиотек.

Написал pilat66 в 21:50

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

Built in Perl

14:36

Дело было давно, в 2001 году, осенью. Программист занимался поддержкой веб-сервиса, на котором публиковалась хронологическая лента твитов… Ах нет, Твиттера тогда еще не было. Публиковалась лента новостей или чего-то подобного. Важно то, что записи были отсортированы по времени.

И все было хорошо, пока однажды записи не выстроились вот в таком странном порядке (обратите внимание, что идет за отметкой 10:43):

    воскресенье, 05:56
воскресенье, 05:56
воскресенье, 05:58
воскресенье, 05:58
воскресенье, 06:05
воскресенье, 06:23
воскресенье, 06:24
воскресенье, 06:26
воскресенье, 06:26
воскресенье, 06:27
воскресенье, 06:27
воскресенье, 06:27
воскресенье, 06:33
воскресенье, 06:33
воскресенье, 06:34
воскресенье, 06:36
воскресенье, 06:38
воскресенье, 07:18
воскресенье, 07:32
воскресенье, 07:36
воскресенье, 07:47
воскресенье, 07:51
воскресенье, 08:04
воскресенье, 08:11
воскресенье, 08:13
воскресенье, 08:49
воскресенье, 08:56
воскресенье, 09:24
воскресенье, 09:27
воскресенье, 09:30
воскресенье, 09:32
воскресенье, 09:45
воскресенье, 09:50
воскресенье, 10:07
воскресенье, 10:08
воскресенье, 10:09
воскресенье, 10:13
воскресенье, 10:14
воскресенье, 10:16
воскресенье, 10:22
воскресенье, 10:31
воскресенье, 10:36
воскресенье, 10:43
воскресенье, 00:03
воскресенье, 00:05
воскресенье, 00:31
воскресенье, 00:33
воскресенье, 00:49
воскресенье, 01:08
воскресенье, 01:19
воскресенье, 01:31
воскресенье, 01:32
воскресенье, 01:33
воскресенье, 01:38
воскресенье, 02:04
воскресенье, 02:18
воскресенье, 02:18
воскресенье, 02:59
воскресенье, 03:22
воскресенье, 03:24
воскресенье, 03:27
воскресенье, 03:43
воскресенье, 04:20
воскресенье, 04:42
воскресенье, 05:03
воскресенье, 05:13
воскресенье, 05:30
воскресенье, 05:32
воскресенье, 05:37
воскресенье, 05:38
воскресенье, 05:39

  

Что происходит? В коде точно есть вызов sort, сравнивающий таймстемпы записей!

23:03

Постановка задачи

• Управления командной строкой через Dropbox. Скрипт будет проверять указанный файл на сервере, и выполнять команды написанные внутри файла.
• Управление командной строкой через почту. Один аккаунт почты будет выступать в роли сервера, а другой в роли клиента.

Написал web_loki в 13:00

Написал небольшой скрипт-качалку для сервиса Яндекс.Музыка. Скрипт позволяет скачивать как отдельные композиции, так и альбомы или плейлисты целиком. Интерфейс консольный и выглядит следующим образом: В процессе работы: Скрипт использует сторонние модули (умеет определять их отсутствие и сообщать об этом) и портированный с JavaScript на Perl алгоритм хэширования Яндекса (находится в отдельном файле YaHash.pm), он необходим […]

Написал Kaimi в 11:14

Программист оказался вовлечен в разработку веб-сервиса, на котором пользователи могут продавать и покупать подержанные книги. В частности, пользователь может ввести название и описание своей книги. Перед сохранением в БД данные формы валидируются такой функцией:

    =head2 validate_form



Валидация формы: 



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



Функция возвращает '', если все хорошо, и код первой обнаруженной проблемы иначе.



=cut
{
my %LIMIT = (
    author => 100, 
    title => 150, 
    description => 2000,
);
sub validate_form
{
    my ($form) = @_;



    for my $f (qw/author title description/){
        # строка не слишком длинная
        return "TOO_LONG_FIELD_".uc($f) if length($form->{$f}) > $LIMIT{$f};
        # строка состоит только из разрешенных символов
        return "DISALLOWED_SYMBOLS_IN_FIELD_".uc($f) unless $form->{$f} =~ /[-_a-zа-я0-9\.,:!?;'"()\+ ]+/i;
    }
    return '';
}
}

  

Однако спустя некоторое время программист обнаруживает в базе данных неправильные данные. Например, в поле “description” некоторых книг встречаются html-теги, которые не должны бы проходить валидацию…

19:18

Введение Что такое REST REST — это принцип построения архитектуры программного обеспечения. Используется при разработке веб-сервисов.   Что такое REST API REST API — это набор функций, к которым могут обращаться разработчики. Используя HTTP-протокол, разработчик отправляет запрос и получает ответ. Как правило, данные передаются в одном из форматов: HTML, XML или JSON. Запрос данных. Клиент […]

Написал Natalie в 16:12

Введение в тему использования HTML::FormFu под Catalyst. Очень простые примеры, комментарии. Руководство для начинающих. Как создавать и обрабатывать формы. Изначально, статья была написана специально для журнала «Pragmatic Perl» (см. оригинал). Для блога разделила публикацию на две части. Все примеры были выполнены специально для публикации, в windows-среде, под Strawberry Perl.   Создаем интерфейс администратора с помощью […]

Написал Natalie в 15:47

Как создать Catalyst-приложение с нуля. Какие модули нужно установить. Как создать контроллер, модель и представление. Основные настройки для работы с Catalyst. Изначально, статья была написана специально для журнала «Pragmatic Perl» (см. оригинал). Для блога разделила публикацию на две части. Все примеры были выполнены специально для публикации, в windows-среде, под Strawberry Perl. В среде unix развернуть […]

Написал Natalie в 15:39

Добрый день. В этой статье я опишу написание бота для онлайн mmo strategy игры Grepolis. Учтите, что правилами игры использование подобных програм запрещено, за это банят, и не безпричинно. Просто у меня хобби писать боты для игр. А писать не запрещено. Кому интересны логика и реализация, прошу под кат.
Читать дальше →

Написал peinguin в 19:43

Программист решил написать класс для работы с файлами конфигураций. Готов первый прототип: можно загружать и записывать yaml-файлы, читать и менять отдельные значения.

    use strict;
use warnings;



package Config;



use YAML;



sub load 
{
    my ($class, %param) = @_;



    my $conf;



    if ( $param{file} =~ /\.yaml$/ ){



        print $param{file}."\n";
        $conf->{data} = YAML::LoadFile( $param{file} );
        $conf->{format} = "yaml";
        $conf->{file} = $param{file};
    } else {
        die "unsupported format of config, stop";
    }



    return bless $conf;
}



sub write
{
    my ($self, %param) = @_;



    YAML::DumpFile($param{file}, $self->{data});



    return;
}



sub get
{
    my ($self, $key) = @_;



    return $self->{data}->{$key};
}



sub set
{
    my ($self, $key, $value) = @_;



    $self->{data}->{$key} = $value;



    return;
}



1;

  

Программист решил протестировать, что получается:

    #!/usr/bin/perl



use strict;
use warnings;



use Config;



my $conf = Config->load(file => "conf.yaml");



my $parallel_level = $conf->get("parallel-level");
$conf->set("parallel-level", $parallel_level * 2);



$conf->write(file => "conf2.yaml");

  

Но скрипт не заработал. Совсем.

Почему?

Можно скачать исходный код: модуль Config.pm, скрипт script.pl, пример данных conf.yaml.

22:35

В этой статье мы рассмотрим способ разворачивания веб приложений, написанных с использованием различных технологий, в облаке Azure Cloud Services. А именно это будет Ruby, Python, Node.js, Perl и с некоторыми оговорками также Java и Railo (ColdFusion). В качестве примера Ruby приложения будем использовать Redmine, работающий на Ruby on Rails, в Python пойдет Lightning Fast Shop, работающий на Django, в Node.js будем использовать небольшой проект с использованием express.js, на Perl будем ставить пустой проект Mojolicious. Целью данной статьи не является экскурс по всем этим веб технологиям, а лишь показать удобный и универсальный способ публикации в облаке Azure. Так что кода на Ruby, Python или Perl в ней не будет. Зато будет много скриншотов, shell-скриптов и инструкций по упаковке и развертыванию приложений.
Читать дальше →

Написал govorunov в 16:31

без CGI, fastCGI и прочего.
возможно ли ваять полноценно WEB-аппликухи на этом?

Написал zupernintendo в 15:19

По мотивам этого вопроса.

Задача: научиться моргать светодиодом клавиатуры в случае, если есть новые непрочитанные сообщения в нашем почтовом ящике.

Доп. условия: ОС — linux, язык — perl (проверка почты) и bash (собственно моргание).

Читать дальше →

Написал TaHKucT в 12:00

Программист написал функцию для перевода чисел в двоичную систему счисления.

    # принимает число, возвращает строку -- двоичное представление этого числа
sub dec2bin 
{ 
    my $dec = shift; 
    my $bin = ""; 
    while ($dec > 0){
        # Если очередной остаток от деления на 2 равен 1, приписываем к двоичной записи 1, иначе -- 0
        $dec % 2? $bin = 1 . $bin : $bin = 0 . $bin; 
        # делим исходное число на 2
        $dec >>= 1;
    } 
    return $bin;
}; 

  

Можно скачать код: здесь.

Однако работает функция как-то странно. Что с ней не так?

09:25

Что такое атрибут Chained в Catalyst. Что такое атрибуты Path, CaptureArgs и Args. Использование атрибутов Local, Global, Private. Атрибуты методов контроллеров — это способ связать определенный метод-обработчик с конкретным запросом, по определенному адресу. Именно благодаря атрибутам, Catalyst понимает, какой метод будет обрабатывать запрос к странице http://localhost:3000/page/2 . Более того, атрибуты позволяют создать целую цепочку методов, […]

Написал Natalie в 17:08

Программист прочитал в документации на функцию splice, что с помощью нее можно реализовать push, pop, shift, unshift и присваивание элементу массива.

Программист решил попробовать и реализовать фунцию rpush, которая работала бы как push, но в качестве первого аргумента принимала бы ссылку на массив.

    # работает как push, но первым параметром принимает не массив, а ссылку на массив
sub rpush 
{
    my $arr = shift;
    splice(@$arr, @$arr, 0, @_);
    return scalar @$arr;
}

  

После этого программист заменил в своем проекте все push @$arrref, ... на rpush $arrref, ....

И что же из этого получилось?

09:14

Небольшая статья про то как мы у себя используем Carton.

Написал 2heoh в 12:55

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



Расскажу немного о разработке на моем текущем месте работы.

Читать дальше →

Написал heoh в 12:48

В первой редакции говорилось о двадцатилетнем баге. На самом деле ему 30 лет. Спасибо Sidnekin.

Сегодня, считывая какие-то данные, моя программа обработала 36'916 возможных дат. Две из этих 36'916 не прошли проверку. Я не придал этому значения, потому что эти даты были из данных предоставленных клиентом, а такие данные часто удивляют. Однако, взглянув на исходные данные, выяснилось, что проверку не прошли 1 января 2011 и 1 января 2007. В программе, написанной мной месяц назад, был баг. Но оказалось, что этому багу 30 лет.

Любому человеку, который не очень понимает экосистему программного обеспечения, написанное ниже покажется странным, но в этом есть смысл. Из-за решения, принятого давным-давно, чтобы принести деньги одной компании, мой $клиент потратил деньги на оплату мне, чтобы я исправил баг, внесённый одной компанией случайно, а другой специально. Чтобы объяснить это, мне придётся рассказать о третьей компании, добавившей особенность, ставшую в конечном счёте багом, и ещё о нескольких фактах, повлиявших на непонятный баг, который я исправил сегодня.
Читать дальше →

Написал adaptun в 23:56

Идея создания Metaobject Protocol (MOP) для Perl 5 витала достаточно давно. Хорошо известна одна из реализаций — Class::MOP, которая используется в Moose. Но попасть в базовую поставку Perl 5 может лишь такое решение, которое будет совместимо с существующей объектной моделью и не будет перегружено излишними возможностями и зависимостями. На днях Stevan Little опубликовал первый пробный релиз на CPAN возможного кандидата на это вакантное место — модуль mop. Проект прошёл долгую эволюцию, за процессом внимательно следило сообщество. Давайте же рассмотрим, что получилось и какие последствия это может иметь для Perl 5.
Читать дальше →

Написал cruxacrux в 20:55

Уже несколько месяцев, как фронты Почты Mail.Ru стали 64битными. Лучше поздно, чем никогда, решили мы, и сегодня я расскажу, зачем мы это сделали, через что мы ради этого прошли и как нам это удалось.



И так работает

Долгое время наша Почта работала на 32 битах на первом Apache и Perl 5.8 под управлением CentOS 5. Идея перевести фронтенд на более современное ПО и 64-битную архитектуру бродила в наших умах давно: еще полтора года назад всего два человека — один админ и один разработчик — за какую-то неделю без сна подняли тестовый сервер, на котором крутилось наше светлое будущее. Однако в те времена у нас были более срочные задачи, и про сервер благополучно забыли. Периодически к этой идее возвращались, но все происходило в режиме «А что если так? — Ой, что-то сломалось!», — и снова все откатывалось и откладывалось в долгий ящик.
Читать дальше →

Написал Croston в 14:42

Есть в CPAN такое замечательное семейство модулей — Coro. Эти модули позволяют программировать на перле с использованием корутин.
Читать дальше →

Написал kirichenko в 10:30

Я столкнулся с проблемой — из morbo всё работает, из-под hypnotoad все строки из базы данных в крякозябрах. Почему так происходит — почему в morbo всё работает, а в hypnotoad нет — я не разобрался, но понял как это лечить. Rose::DB::Pg содержит описание использования флага pg_enable_utf8 . Описание неправильное, надо всегда его указывать в явном ...

Continue reading ‘Rose::DB::Object + hypnotoad (Mojolicious) + PostgreSQL’ »

Написал pilat66 в 20:41

Программист оказался вовлеченным в старый проект с большим количеством кода на Perl. В числе прочего программист нашел такой код для выделения первого поля из стандартного входного потока (что-то вроде awk '{print $1}'):

    while(<>) {
    chomp;
    split;
    print $_[0]."\n";
}

  

И вот что интересно: этот код нормально работал, а потом вдруг перестал. В сам код никаких изменений не вносили, входные данные тоже остались прежними.

Почему работал этот код? Что с ним случилось потом?

20:24

Я люблю создавать и передавать всё по ссылкам. Синтаксис и не усложняется особо. Единственное, что забываю постоянно (потому что редко нужно): как взять слайс хэша (заданного ссылкой) по списку ключей. Запишу здесь, чтоб подглядывать:

@{ $href }{ @list }

Пример: http://ideone.com/e3CFUT

12:01

Dream Catcher поделился ссылкой

Получение текста между двух тегов

23:08

Dream Catcher поделился ссылкой

Определение кодировки UTF-8

23:07

Вопрос в заголовке шире конкретной проблемы. Есть сервер одного хостера, который по заявлению поддержки "с наших серверов допускаются исходящие соединения только на TCP порт 80". Пытаюсь получить с него текст, генерируемый скриптом, используя LWP::Simple или LWP::UserAgent, - безрезультатно. В тонкой настройке UserAgent, к сожалению, не искушен. Есть ли возможность настроить UserAgent так чтобы соответствовать ограничениям сервера, т.е. сымитировать TCP и порт 80?

Если LWP в данном случае бессилен, если ли возможность выгрузить с сервера текст по URL?

Написал Легеров Алексей в 18:08

Коллеги! Если вдруг у кого завялялся без дела кукбук - я готов купить.

[хитро прищурился в сторону schors 'а]

16:20

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



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

Читать дальше →

Написал shulyakovskiy в 10:13

Программисту достался еще один текстовый табличный файл (про первый была отдельная история).

    > cat table2.txt
7.3 Connery 1962 1,100,000 16,067,035 43,500,000 59,600,000
7.5 Connery 1963 2,000,000 24,796,765 54,100,000 78,900,000
6.8 Lazenby 1969 7,000,000 22,774,493 59,200,000 87,400,000
6.7 Moore 1974 13,000,000 20,972,000 76,600,000 97,600,000
6.5 Dalton 1989 32,000,000 34,667,015 121,500,000 156,200,000
6.4 Brosnan 1997 110,000,000 125,332,007 221,300,000 333,011,068
6.7 Craig 2008 200,000,000 168,368,427 407,584,078 586,090,727

  

(таблицу можно скачать)

Потребовалось удалить первую колонку из таблицы. Программист решил воспользоваться функциями split, shift и join: разбить каждую строчку в массив полей, удалить первое из них, опять соединить оставшиеся поля в строку.

Получился такой однострочник:

      > perl -ne '@a = split " "; shift @a; print join " ", @a;' table2.txt > result.txt

    

Однако результат его работы оказался совсем не таким, как ожидал программист…

22:15

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

Если отбросить несущественные детали, код получился такой:

      my @array1 = qw(11 22 33);
my @array2 = ('11', "22", 33);
if ( join '*', @array1 eq join '*', @array2 ) {
    print '@array1 eq @array2';
} else {
    print '@array1 not eq @array2';
}

    

(можно скачать файл)

И что же вы думаете печатает такая программа?

06:18

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

11:06

Как известно perl тащит в стандартном дистрибутиве кучу модулей которые сильно связаны.

pp -B -p test.pl только с use strict;
Добавляет почти всю папку стандартных модулей и получаемый размер архива что-то не радует совсем.

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

perl.exe
wperl.exe
perl518.dll
libgcc_s_sjlj-1.dll
libstdc++-6.dll

Простой скрипт вроде бы и запускается, но может возможны какие то грабли?

Написал zupernintendo в 12:33

3 октября (четверг) с 19.30 до 22.00 в помещении Mail.ru состоится очередная техническая встреча Moscow.pm.

В программе:

1. «Структура юнит-тестов в большом проекте», Иван Соколов, компания Reg.ru

2. «В 3 раза быстрее, чем AnyEvent, но все еще Perl», Mons Anderson (Владимир Перепилица) Руководитель направления, Группа backend разработки Почты, Mail.Ru Group.

3. "Implementing Two Factor Authentication", Max Maischein, перевод Павел Щербинин программист, Mail.Ru Group

Трансляцию мероприятия вы сможете посмотреть на странице: http://corp.mail.ru/Moscow.pm

Пожалуйста, зарегистрируйтесь, если вы хотите посетить эту встречу.

Написал Moscow.pm в 17:18

Что такое HTML::FormFu в perl. Как использовать HTML::FormFu, простые примеры. Создание форм, обработка данных. Введение в HTML::FormFu для начинающих.   Что такое HTML::FormFu и для каких задач его можно использовать HTML::FormFu — это фреймворк для работы с формами. Предоставляет инструментарий для создания и проверки форм, загрузки и обновления данных, включая сохранение полученных данных в БД. […]

Написал Natalie в 14:45