FM / CDB_File-1.05-0

/home/.cpan/build/CDB_File-1.05-0

Name	Size	Mode	Actions
blib/	-	0755	rm
t/	-	0755	rm
ACKNOWLEDGE	988	0644	edit dl rm
bun-x.pl	1251	0755	edit dl rm
CDB_File.bs	0	0644	edit dl rm
CDB_File.c	40780	0644	edit dl rm
CDB_File.o	262016	0644	edit dl rm
CDB_File.pm	14127	0644	edit dl rm
CDB_File.xs	26299	0644	edit dl rm
Changelog	6211	0644	edit dl rm
COPYRIGHT	131	0644	edit dl rm
INSTALL	645	0644	edit dl rm
Makefile	39329	0644	edit dl rm
Makefile.PL	1538	0644	edit dl rm
MANIFEST	428	0644	edit dl rm
MANIFEST.SKIP	138	0644	edit dl rm
META.json	1594	0644	edit dl rm
META.yml	937	0644	edit dl rm
MYMETA.json	1403	0644	edit dl rm
MYMETA.yml	827	0644	edit dl rm
pm_to_blib	0	0644	edit dl rm
ppport.h	521411	0644	edit dl rm
typemap	707	0644	edit dl rm

Edit: /home/.cpan/build/CDB_File-1.05-0/bun-x.pl (1251B)

#! /usr/bin/perl

use CDB_File;
use strict;

sub unnetstrings {
    my ($netstrings) = @_;
    my @result;
    while ( $netstrings =~ s/^([0-9]+):// ) {
        push @result, substr( $netstrings, 0, $1, '' );
        $netstrings =~ s/^,//;
    }
    return @result;
}

my $chunk = 8192;

sub extract {
    my ( $file, $t, $b ) = @_;
    my $head = $$b{"H$file"};
    my ( $code, $type ) = $head =~ m/^([0-9]+)(.)/;
    if ( $type eq "/" ) {
        mkdir $file, 0777;
    }
    elsif ( $type eq "_" ) {
        my ( $total, $now, $got, $x );
        open OUT, ">$file" or die "open for output: $!\n";
        exists $$b{"D$code"} or die "corrupt bun file\n";
        my $fh = $t->handle;
        sysseek $fh, $t->datapos, 0;
        $total = $t->datalen;
        while ($total) {
            $now = ( $total > $chunk ) ? $chunk : $total;
            $got = sysread $fh, $x, $now;
            if ( not $got ) { die "read error\n"; }
            $total -= $got;
            print OUT $x;
        }
        close OUT;
    }
    else {
        print STDERR "warning: skipping unknown file type\n";
    }
}

die "usage\n" if @ARGV != 1;

my ( %b, $t );
$t = tie %b, 'CDB_File', $ARGV[0] or die "tie: $!\n";
map { extract $_, $t, \%b } unnetstrings $b{""};

#! /usr/bin/perl use CDB_File; use strict; sub unnetstrings { my ($netstrings) = @_; my @result; while ( $netstrings =~ s/^([0-9]+):// ) { push @result, substr( $netstrings, 0, $1, '' ); $netstrings =~ s/^,//; } return @result; } my $chunk = 8192; sub extract { my ( $file, $t, $b ) = @_; my $head = $$b{"H$file"}; my ( $code, $type ) = $head =~ m/^([0-9]+)(.)/; if ( $type eq "/" ) { mkdir $file, 0777; } elsif ( $type eq "_" ) { my ( $total, $now, $got, $x ); open OUT, ">$file" or die "open for output: $!\n"; exists $$b{"D$code"} or die "corrupt bun file\n"; my $fh = $t->handle; sysseek $fh, $t->datapos, 0; $total = $t->datalen; while ($total) { $now = ( $total > $chunk ) ? $chunk : $total; $got = sysread $fh, $x, $now; if ( not $got ) { die "read error\n"; } $total -= $got; print OUT $x; } close OUT; } else { print STDERR "warning: skipping unknown file type\n"; } } die "usage\n" if @ARGV != 1; my ( %b, $t ); $t = tie %b, 'CDB_File', $ARGV[0] or die "tie: $!\n"; map { extract $_, $t, \%b } unnetstrings $b{""};