[devel] automated CPAN update: perl summary

[devel] automated CPAN update: perl summary

[Igor Vlasenko]

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

* Обновлено более 200 модулей из 240 по которым был доступ
по acl. Можно было бы обновить и больше, но уже обновление
начало упираться в обновление других пакетов, на которые
acl не было, также сборку отсутствующих.

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

* cpan2rpm не умеет? паковать скрипты из %_bindir.
у части пакетов в %_bindir действительно мусор,
однако в вот этих  %_bindir/* зря не упакован.

perl-Module-CoreList corelist
perl-Net-RBLClient   spamalyze
perl-Archive-Zip     crc32

Стоило бы паковать, выглядит как баг.

AT> кому пришла в голову идея собирать Data::Dumper? Встречу тресну в лоб.

Сорри, первый раз по ошибке запустил сброщик 
с нефильтрованным списком пакетов,
и он выполнил много бесполезной работы.



-- 

Dr. Igor Vlasenko
--------------------
Topology Department
Institute of Math
Kiev, Ukraine

Re: [devel] automated CPAN update: perl summary

[Sergey Y. Afonin]

On Saturday 17 July 2010, Igor Vlasenko wrote:

> AT> кому пришла в голову идея собирать Data::Dumper? Встречу тресну в лоб.
> 
> Сорри, первый раз по ошибке запустил сброщик 
> с нефильтрованным списком пакетов,
 
Зато LDV пакетную базу почистил по итогам пересборки. :-)

-- 
С уважением, Сергей Афонин

[devel] /usr/bin/crc32 (was: automated CPAN update: perl summary)

[Alexey Tourbin]

[-- Attachment #1.1: Type: text/plain, Size: 490 bytes --]

On Sat, Jul 17, 2010 at 03:35:47PM +0300, Igor Vlasenko wrote:
> * cpan2rpm не умеет? паковать скрипты из %_bindir.
> у части пакетов в %_bindir действительно мусор,
> однако в вот этих  %_bindir/* зря не упакован.
> 
> perl-Module-CoreList corelist
> perl-Net-RBLClient   spamalyze
> perl-Archive-Zip     crc32

Скрипт crc32 не имеет не документации, ни даже опции --help.
Класть его в /usr/bin (в том числе по этим причинам) неохота.

> Стоило бы паковать, выглядит как баг.

[-- Attachment #1.2: crc32 --]
[-- Type: text/plain, Size: 709 bytes --]

#!/usr/bin/perl

# Computes and prints to stdout the CRC-32 values of the given files

use strict;
use lib qw( blib/lib lib );
use Archive::Zip;
use FileHandle;

my $totalFiles = scalar(@ARGV);
foreach my $file (@ARGV) {
    if ( -d $file ) {
        warn "$0: ${file}: Is a directory\n";
        next;
    }
    my $fh = FileHandle->new();
    if ( !$fh->open( $file, 'r' ) ) {
        warn "$0: $!\n";
        next;
    }
    binmode($fh);
    my $buffer;
    my $bytesRead;
    my $crc = 0;
    while ( $bytesRead = $fh->read( $buffer, 32768 ) ) {
        $crc = Archive::Zip::computeCRC32( $buffer, $crc );
    }
    printf( "%08x", $crc );
    print("\t$file") if ( $totalFiles > 1 );
    print("\n");
}

[-- Attachment #2: Type: application/pgp-signature, Size: 198 bytes --]

Re: [devel] /usr/bin/crc32 (was: automated CPAN update: perl summary)

[Igor Vlasenko]

On Tue, Jul 20, 2010 at 07:23:43PM +0400, Alexey Tourbin wrote:
> > * cpan2rpm не умеет? паковать скрипты из %_bindir.
> > однако в вот этих  %_bindir/* зря не упакован.
[...]
> > perl-Archive-Zip     crc32
> 
> Скрипт crc32 не имеет не документации, ни даже опции --help.
> Класть его в /usr/bin (в том числе по этим причинам) неохота.

Как минимум Бубунта и Федора/ЦентОсь как /usr/bin/crc32
кладет именно этот скрипт.

И нормальной альтернативной реализации нет. Дурацкая ситуация получилась
с /usr/bin/crc32 из-за его простоты. Народ вовсю пользуется 
самодельнми реализациями в ~/bin, начиная от 4-хстрочника на питоне, 
есть и готовый С код,
но как-то всем лень добавить getopt, оформить его в нормальный пакет 
в /usr/bin с --help, man и прочая. 

Сложилась традиция брать /usr/bin/crc32 из perl-Archive-Zip,
давайте и мы будем придерживаться.

Я понимаю нежелание клась вместе с модулем, но если в подпакет вынести?
Ня-файлы чем-то проверять надо.

-- 

Dr. Igor Vlasenko
--------------------
Topology Department
Institute of Math
Kiev, Ukraine

Re: [devel] /usr/bin/crc32

[Dmitry V. Levin]

[-- Attachment #1: Type: text/plain, Size: 1187 bytes --]

On Wed, Jul 21, 2010 at 08:11:43PM +0300, Igor Vlasenko wrote:
> On Tue, Jul 20, 2010 at 07:23:43PM +0400, Alexey Tourbin wrote:
> > > * cpan2rpm не умеет? паковать скрипты из %_bindir.
> > > однако в вот этих  %_bindir/* зря не упакован.
> [...]
> > > perl-Archive-Zip     crc32
> > 
> > Скрипт crc32 не имеет не документации, ни даже опции --help.
> > Класть его в /usr/bin (в том числе по этим причинам) неохота.
> 
> Как минимум Бубунта и Федора/ЦентОсь как /usr/bin/crc32
> кладет именно этот скрипт.
> 
> И нормальной альтернативной реализации нет. Дурацкая ситуация получилась
> с /usr/bin/crc32 из-за его простоты. Народ вовсю пользуется 
> самодельнми реализациями в ~/bin, начиная от 4-хстрочника на питоне, 
> есть и готовый С код,
> но как-то всем лень добавить getopt, оформить его в нормальный пакет 
> в /usr/bin с --help, man и прочая. 
> 
> Сложилась традиция брать /usr/bin/crc32 из perl-Archive-Zip,
> давайте и мы будем придерживаться.
> 
> Я понимаю нежелание клась вместе с модулем, но если в подпакет вынести?
> Ня-файлы чем-то проверять надо.

А /usr/bin/cksum -- это случайно не то же самое, но "с --help, man и прочая"?


-- 
ldv

[-- Attachment #2: Type: application/pgp-signature, Size: 198 bytes --]

Re: [devel] /usr/bin/crc32

[Igor Vlasenko]

On Wed, Jul 21, 2010 at 09:53:25PM +0400, Dmitry V. Levin wrote:
> On Wed, Jul 21, 2010 at 08:11:43PM +0300, Igor Vlasenko wrote:
> > On Tue, Jul 20, 2010 at 07:23:43PM +0400, Alexey Tourbin wrote:
> > > > * cpan2rpm не умеет? паковать скрипты из %_bindir.
> > > > однако в вот этих  %_bindir/* зря не упакован.
> > [...]
> > > > perl-Archive-Zip     crc32
> > > 
> > > Скрипт crc32 не имеет не документации, ни даже опции --help.
> > > Класть его в /usr/bin (в том числе по этим причинам) неохота.
> > 
> > Как минимум Бубунта и Федора/ЦентОсь как /usr/bin/crc32
> > кладет именно этот скрипт.
> > 
> > И нормальной альтернативной реализации нет. Дурацкая ситуация получилась
> > с /usr/bin/crc32 из-за его простоты. Народ вовсю пользуется 
> > самодельнми реализациями в ~/bin, начиная от 4-хстрочника на питоне, 
> > есть и готовый С код,
> > но как-то всем лень добавить getopt, оформить его в нормальный пакет 
> > в /usr/bin с --help, man и прочая. 
> > 
> > Сложилась традиция брать /usr/bin/crc32 из perl-Archive-Zip,
> > давайте и мы будем придерживаться.
> > 
> > Я понимаю нежелание клась вместе с модулем, но если в подпакет вынести?
> > Ня-файлы чем-то проверять надо.
> 
> А /usr/bin/cksum -- это случайно не то же самое, но "с --help, man и прочая"?

нет, это POSIX.2 checksum.

checksum это не один алгоритм, а целое семейство,
зависящее, в частности, от выбора полинома, with, init, и т.д., см.
http://ru.wikipedia.org/wiki/%D0%A6%D0%B8%D0%BA%D0%BB%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B9_%D0%B8%D0%B7%D0%B1%D1%8B%D1%82%D0%BE%D1%87%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%B4

В BSD cksum есть опция -o, и там можно выбрать -o 3,
что даст crc32. у нас такой возможности нет.
[BSD man quote]...
-o
    Use historic algorithms instead of the (superior) default one.
...
    Algorithm 3 is what is commonly called the `32bit' CRC algorithm. This is a 32-bit checksum. ...
[/quote]

-- 

Dr. Igor Vlasenko
--------------------
Topology Department
Institute of Math
Kiev, Ukraine