Русский Перл

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

11:04

Программист решил усовершенствовать скрипт для скачивания веб-страниц из задачи “Скачать все”, и добавить в него параллельности с помощью модуля Parallel::ForkManager.

Итак, программист взял пример из документации, добавил логгирование, получилось примерно так:

    #!/usr/bin/perl



use strict;
use warnings;



use Log::Log4perl;
use LWP::Simple;
use Parallel::ForkManager;



# links to download
my @links = (
    ["http://www.cpan.org/misc/images/cpan.png", "cpan-logo.png"],
    ["https://metacpan.org/static/images/logo.png", "metacpan-logo.png"],
    ["http://yandex.st/www/1.817/yaru/i/logo.png", "yandex-logo.png"],
    ["https://www.google.ru/images/srpr/logo11w.png", "google-logo.png"],
    ["https://mmedia2.ozone.ru/graphics/ozon/logo_220_87.png", "ozon-logo.png"],
    ["http://www.foo.bar/rulez.data","rulez_data.txt"],
    ["http://new.host/more_data.doc","more_data.doc"],
    # ...
);
my $chunk_size = 2;



my $conf = qq(
log4perl.rootLogger                = DEBUG, SYSLOG
log4perl.appender.SYSLOG           = Log::Dispatch::Syslog
log4perl.appender.SYSLOG.min_level = debug
log4perl.appender.SYSLOG.ident     = $0 [$$]
log4perl.appender.SYSLOG.facility  = daemon
log4perl.appender.SYSLOG.layout    = Log::Log4perl::Layout::SimpleLayout
);



Log::Log4perl::init( \$conf );
my $logger = Log::Log4perl->get_logger();



# Max 30 processes for parallel download
my $pm = Parallel::ForkManager->new(30);



while ( my @chunk = splice @links, 0, $chunk_size) {
    $pm->start and next; 



    $logger->info((scalar @chunk)." links to download");



    for my $linkarray (@chunk){
        my ($link,$fn) = @$linkarray;
        my $status = getstore($link,$fn);
        $logger->warn("Cannot get $fn from $link") if $status != RC_OK;
    }



    $pm->finish; 
}



$pm->wait_all_children;
$logger->info("done");

  

Скрипт работал, но странновато…

00:49

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

Программист реализовал простую проверку “текст содержит слово из списка запрещенных”, изменения в коде получились совсем небольшими:

    --- SomeModule.pm  (revision 12345)
+++ SomeModule.pm  (working copy)
@@ -6,6 +6,43 @@
+{
+my $brand_name_regexp = qr/
+\b(?:
+    autocad |
+    benetton |
+    cisco |
+    dodge |
+    ericsson |
+    forbes |
+    gorenje |
+    hasselblad |
+    ikea |
+    jaguar |
+    kyocera |
+    lego |
+    manfrotto |
+    nokian |
+    oracle |
+    rolex |
+    salamander |
+    swarovski |
+    toshiba |
+    ubiquam |
+    volkswagen |
+    wallmart |
+    yamamoto |
+    zippo
+)\b
+/xi;
+
+sub contains_brand_name 
+{
+    return $_[0] =~ $brand_name_regexp;
+}
+}
 
@@ -53,8 +90,10 @@
     push @posts, { 
         text => $_,
+        contains_brand_name => contains_brand_name($_), 
         word_count => scalar split(/\W+/),
     };
 }
 

  

И что же, вы думаете, случилось дальше?

06:54

Доброго времени суток сообщество. Подскажите где можно найти плагин captcha для Mojolicious? Нашел один: github.com/konstantinov/Mojolicious-Plugin-Recaptcha, по моему через гугл работает, это не то что нужно, да и не нужна такая сложная и отвратительная капча. Хочется в своем приложении реализовать, без сторонней помощи. Ну или на худой конец, образчик как написать плагин самому и прикрутить к Mojolicious. Капчу писал однажды, использовал GD совместно c CGI::Session, но я так понимаю, сессии как-то уже в фреймворке присутствуют, неужто в исходники лезть? ((( Спасибо, заранее.

Написал Marlik Almighty в 13:15

http://perltricks.com/article/68/2014/2/13/Cool-new-Perl-feature-postfix-dereferencing

Ну да, давайте потратим еще 10 лет и превратим перл в руби...

https://github.com/peczenyj/MooseX

...и руби в перл.

01:44

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

    use feature qw/say/;



sub check_value
{
    my $var = @_;



    say defined $var ? "defined" : "undefined";
    say $var ? "true" : "false";
    say $var == 0 ? "zero" : "not a zero";



    return;
}

  

Результаты вызова этой функции с разными параметрами очень удивили программиста…

00:07

В это статье хочу поделиться одним интересным на мой взгляд способом проверки доступности sip провайдера, или другого устройства, особенно он актуален когда по какой-либо причине нельзя проверить сторону icmp запросами, и основывается на OPTIONS запросах протокола SIP. Кого заинтересовала данная тема прошу под кат. Читать дальше →

Написал BoDRbI в 20:52

Источник: Archive of Perl Maven. — статьи об интересных особенностях Perl, на разных языках.

2013-12-21 Perl Arrays

2013-12-20 Цикл for в Perl

2013-10-25 Не открывайте файлы по-старому

2013-10-23 Открытие и чтение текстовых файлов

2013-10-22 Стандартный канал вывода, стандартный канал ошибок и перенаправление в командной строке

2013-10-22 Запуск внешних программ из Perl с помощью system

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

В базе данных проекта хранились разные интересные данные. Например:

    mysql> show create table movie_titles\G
*************************** 1. row ***************************
       Table: movie_titles
Create Table: CREATE TABLE `movie_titles` (
  `movie_hash` bigint(20) unsigned NOT NULL,
  `title` varchar(255) NOT NULL,
  `count` int(10) unsigned NOT NULL,
  `min_year` int(10) unsigned NOT NULL,
  `max_year` int(10) unsigned NOT NULL,
  `min_budget` int(10) unsigned NOT NULL,
  `max_budget` int(10) unsigned NOT NULL,
  `title_lang_id` varchar(2) NOT NULL DEFAULT '',
  PRIMARY KEY (`movie_hash`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8
1 row in set (0.00 sec)



mysql> select movie_hash, title from movie_titles order by rand() limit 10;
+----------------------+-----------------------------------+
| movie_hash           | title                             |
+----------------------+-----------------------------------+
| 14466895222078503050 | Короткие встречи                  |
| 15971437470478867358 | The Intouchables                  |
| 12235011833542755999 | Карнавальная ночь                 |
|  6981806602143484496 | Ben-Hur                           |
|  5919830798737205613 | Зеркало                           |
|  9358350811894903428 | Ikiru                             |
| 15397825164883494235 | City Lights                       |
|  1081902961608193125 | Я шагаю по Москве                 |
|  6154127428560052859 | The Kid                           |
| 16809407873175270375 | Безымянная звезда                 |
+----------------------+-----------------------------------+
10 rows in set (0.01 sec)



mysql> select movie_hash % 4, count(*) from movie_titles group by 1;
+----------------+----------+
| movie_hash % 4 | count(*) |
+----------------+----------+
|              0 |  1217109 |
|              1 |  1217068 |
|              2 |  1217333 |
|              3 |  1216358 |
+----------------+----------+
4 rows in set (2.78 sec)

  

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

    #!/usr/bin/perl



use strict;
use warnings;



use DBI;
use Parallel::ForkManager;
use Log::Log4perl qw(:easy);
 
use utf8;
use open ':std' => ':utf8';



Log::Log4perl->easy_init( 
    { 
        level   => $INFO,
        file    => ">>process.log",
        layout => "[%P] %c %d: %m%n",
    } 
);



INFO("START");
my $WORKERS = 4;
my $pm = Parallel::ForkManager->new($WORKERS);



for my $num (0 .. $WORKERS - 1) {
    my $pid = $pm->start and next;
    process_part($num, $WORKERS);
    $pm->finish;
}
$pm->wait_all_children;
INFO("FINISH");
exit(0);



sub process_part
{
    my ($num, $total) = @_;



    INFO("$num/$total - start");



    my $dbh = get_dbh();



    my $data_to_process = $dbh->selectall_arrayref(
        "select movie_hash, title from movie_titles 
        where movie_hash % ? = ?", 
        {},
        $total, $num
    );
    INFO("to process: ".scalar(@$data_to_process));
    for my $record (@$data_to_process) {
        do_some_heavy_processing($record);
    } 
    INFO("$num/$total - finish");
}



sub get_dbh
{
    # ...
    return $dbh;
}



sub do_some_heavy_processing
{
    # ...
}

  

И все бы хорошо, но в логах видно кое-что странное с распределением работы по воркерам. Что же случилось?

20:52

Перевел imover на стандартный перловый метод установки:

perl Makefile.PL
make
make test
make install

В стандартном методе используются тесты, так что заодно и тесты сделал. Тесты пока не полные, тестируется только распознавание данных Exif. Нужно еще сделать тесты для распознавания номера файла.

Ну, а раз уж есть тесты, то почему бы не прикрутить систему непрерывной интеграции? Погуглил и открыл для себя Travis CI. Тревис бесплатен для открытых проектов, размещенных на Гитхабе.

При настройке Тревиса пришлось поломать голову с установкой зависимостей. Почему-то при установке модуля Image::ExifTool через cpanm происходит что-то странное - модуль вроде бы успешно устанавливается, но затем, при запуске тестов, модуль почему-то не находится (пример). Полное ощущение, что это какой-то баг Тревиса. В итоге плюнул на cpanm и настроил установку модуля через apt-get.

Теперь на странице проекта на Гитхабе висит приятная глазу зеленая фигулька - :) 

00:20

Дорогие друзья!
Вышел очередной, двенадцатый номер, журнала о современном Perl.
pragmaticperl.com

Содержимое номера:
Читать дальше →

Написал alpha6 в 15:21

Анонсирован выход Perl-модуля DBD::Pg 3.0.0 c реализацией DBI-интерфейса для доступа к PostgreSQL. Требования к минимальным версиям повышены до Perl 5.8.1 и DBI 1.614.

08:00

Установка плагина

  mkdir ~/.vim
cd ~/.vim
curl http://www.vim.org/scripts/download_script.php?src_id=21048 -o perl-support.zip
unzip perl-support.zip
rm   perl-support.zip
echo "filetype plugin on" >> ~/.vimrc
yum install perl-Perl-Critic  perltidy

Создание нового файла

Написал pcdesign в 09:26

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

10:43

6 февраля, первый раз в этом году, но уже не впервые, компания Mail.Ru Group откроеn двери сообществу Moscow.pm (группа московских Perl-программистов).

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

Место и время: 6 февраля с 19.30 до 22.00, переговорная №1 на 2 этаже офиса Mail.Ru Group.

В программе вас ждут доклады:

"Разработка и оптимизация программы на Perl под Raspberry Pi", Илья Чесноков, Разработчик компании «UK2 Group». Небольшой рассказ о том, как Илья программировал на Perl под Raspberry PI: как готовил среду для разработки, разрабатывал и оптимизировал программу для поиска релевантных рекламных объявлений.

"Array VS List", Павел Щербинин, Программист Mail.Ru Group. Quiz на знание особенностей этих структур.

"Круглый стол о вопросах тестирования", Юрий Никулин, Программист Mail.Ru Group. Вы еще не тестируете? Тогда мы идем к вам!!!

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

Что бы мы могли лучше организовать встречу, пожалуйста, зарегистрируйтесь здесь.

Написал Moscow.pm в 15:32

6 февраля, первый раз в этом году, компания Mail.Ru Group откроет двери сообществу Moscow.pm (группа московских Perl-программистов).

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



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

Написал Dzirtik в 14:24

Доброго времени суток всем Перловодам и им сочувствующим.

Ниже приведена С структура psinfo которая находится соответственно в файле psinfo процесса на виртуальной файловой системе /proc/<PID>/...
Значить шаблон для распаковки оной:

unpack("iiiiiiiiiiIiiiiSSa8a8a8Z16Z80iiIIaa3iiiiii", $psinfo);

На сколько я понимаю, в возвращаемом списке, для pr_psargs ( Z80 ) будет указатель на начало массива символов в памяти ( не? ).
Кто-нибудь может помочь разобраться как средствами Perl распаковать в строку список аргументов pr_psargs?

/usr/include/sys/procfs.h:

Написал siverko в 18:58

Доброго времени суток сообщество, подскажите начинающему где посмотреть, скопипастить готовое решение для блога на Mojolicious, очень не хочется изобретать велосипед. Интересует авторизация, создание страниц, комменты. Спасибо.

Написал Marlik Almighty в 05:42

Connection establishment…

Написал Sp0tted_0wl в 14:25

В редакторе mooedit есть плагин для вывода имён исходника. Использует он стандартный ctags, у которого с Perl работа, мягко говоря, не фонтан. Находит ctags только имена функций, а хотелось бы большего:



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

Написал kloppspb в 23:32

https://www.youtube.com/channel/UCXG2gjCfXDkvg9TfPmNXPIg/videos

18:08

INTRO

«Некоторыми приложениями нашей компании пользуются более миллиона человек. Все это работает на Amon2.»

Написал pcdesign в 23:03

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

16:57

Обновил imover - скрипт для сортировки фото и видеофайлов.

Изменения в версии 0.4:

- Убраны уведомления через Growl. Эта функция стала неактуальна после появления в МакОс встроенного механизма уведомлений (но уведомления через встроенный механизм в скрипте пока не готовы).

- Введены опции "-a", "-c" и "-d". Теперь по умолчанию скрипт только выводит список файлов, копирование и удаление инициируются соответствующими опциями.

- Немного изменен формат вывода, убран лишний шум.

06:01

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

05:17

Эх.

http://advent.perldancer.org/2013

Вот это отлично показывает текущее состояние проекта.

18:21

Добрый день!
Подскажите, пожалуйста, как проще всего реализовать такую задачу: есть файл со строками, в котором значения разделены табом. Нужно создать массивы, в котором значения будут "по столбцам" - массив с первыми значениями, со вторыми и т.д. Условно, количество значений в строке заранее неизвестно, но невелико (от 3 до 10-12). Пробовала разбивать строку на массив и переносить по значению из строки в столбец, но образуется цикл в цикле, который не выдает на выходе нужный массив и не выдает ошибок (use strict и -w я использую)

Написал Елена в 01:45

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

Доброго времени суток.

Помогите, пожалуйста, с регулярными выражениями. С ними я сталкивался только для проверки является ли введеная строка в поле на форме почтовым ящиком, теперь нужно решить такую проблему.
имеется html файлик, в нем внутри тегов <head></head> прописаны мета теги.
Например:

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

Нужно значения Content-Type, text/html, windows-1251 сохранить в переменные для дальнейшего использования с помощью регулярных выражений на Перле.
Т.е., чтобы, например, переменная $x была равна 'Content-Type", $y была равна 'text/html', f $z - 'windows-1251'

Как это сделать сам, увы не представляю. Сам работаю на php, а с перлом пришлось столкнуться в институте
Буду очень признателен ответившим.
Заранее спасибо!

Написал Денис в 00:45

26 лет назад, в декабре 1987 года, Ларри Уолл выпустил первую версию языка в ничего не подозревавший мир. Ссылка на группу usenet comp.sources.unix , где впервые упоминается perl как замена awk и sed.
Кроме этого, можно сказать что perl дал сисадминам больше возможностей, чем shell, и более лёгкий способ достижения цели, чем C.
Потом, когда начали появляться интерактивные сайты, perl застолбил себе нишу на этом поприще. Тяжело было бы делать сайты на CGI при помощи shell скриптов или писать обработку запросов и работу с текстом на C.
Знаменитый девиз perl — «всегда есть несколько способов достичь чего-либо», поскольку perl хорошо демонстрирует, что для любых задач можно найти хорошие решения, если взглянуть на них под другим углом.
Читать дальше →

Написал SLY_G в 22:28

Программисту понадобилась классификация слов и понятий, и он решил использовать Википедию как источник категорий. Разбирать ответ API Википедии предполагалось вот такой функцией:

    use XML::LibXML::XPathContext;
use XML::LibXML;



=head2 parse_wikipedia_categories_xml



Получает на вход скаляр -- xml, полученный из API Википедии



Пример: 
http://en.wikipedia.org/w/api.php?action=query&prop=categories&titles=XML&format=xml&cllimit=100



<?xml version="1.0"?>
<api>
  <query>
    <pages>
      <page pageid="34138" ns="0" title="XML">
        <categories>
          <cl ns="14" title="Category:All articles containing potentially dated statements" />
          <cl ns="14" title="Category:Application layer protocols" />
          <cl ns="14" title="Category:Articles containing potentially dated statements from 2009" />
          ...
        </categories>
      </page>
    </pages>
  </query>
</api>



Результат был бы 
[
'Category:All articles containing potentially dated statements',
'Category:Application layer protocols',
'Category:Articles containing potentially dated statements from 2009',
...
]



=cut
sub parse_wikipedia_categories_xml
{
    my $xml = shift;



    my $xml_doc = XML::LibXML->new()->parse_string($doc);
    my $xc = XML::LibXML::XPathContext->new($xml_doc);
    return [ map {$_->to_literal} @{$xc->find("/api/query/pages/page/categories/cl/@title")}];
}

  

Но что-то здесь не так… Что?

23:47

Разные парсеры дат для DateTime модуля.

DateTime::Format::Builder creates DateTime parsers. Many string formats of dates and times are simple and just require a basic regular expression to extract the relevant information. Builder provides a simple way to do this without writing reams of structural code.

DateTime::Format::Builder creates DateTime parsers. Many string formats of dates and [...]

Написал pilat66 в 16:15

В первой части добавлялась проверка синтаксиса и форматирование исходников на Perl в mooedit. Если с первым никаких проблем не возникло, то при форматировании пришлось отказаться от вывода ошибок в область уведомлений. Но с тех пор появилась новая версия в ветке unstable-1.1.9x. Ничего особо нестабильного в версии 1.1.97-devel не заметил, разве что заготовки для долгожданного code folding. Но во внутреннем API появилось как минимум одно приятное изменение.

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

Написал kloppspb в 02:02

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

К клёвому пагинатору написал генератор номеров страниц. Обертка на 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;

upd/11.12.13:: Спасибо Игорю Белому bujhm за наводку — я неделю подкинутую им музыку слушаю, до сих пор нравится и работать не мешает.

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