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

[Alexey Tourbin <at@altlinux.ru>]

[-- 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 --]