| SVN::Dump(3pm) | User Contributed Perl Documentation | SVN::Dump(3pm) |
SVN::Dump - A Perl interface to Subversion dumps
version 0.08
#!/usr/bin/perl
use strict;
use warnings;
use SVN::Dump;
my $file = shift;
my $dump = SVN::Dump->new( { file => $file } );
# compute some stats
my %type;
my %kind;
while ( my $record = $dump->next_record() ) {
$type{ $record->type() }++;
$kind{ $record->get_header('Node-action') }++
if $record->type() eq 'node';
}
# print the results
print "Statistics for dump $file:\n",
" version: ", $dump->version(), "\n",
" uuid: ", $dump->uuid(), "\n",
" revisions: ", $type{revision}, "\n",
" nodes: ", $type{node}, "\n";
print map { sprintf " - %-7s: %d\n", $_, $kind{$_} } sort keys %kind;
An SVN::Dump object represents a Subversion dump.
This module follow the semantics used in the reference document (the file notes/fs_dumprestore.txt in the Subversion source tree):
Each class has a "as_string()" method that prints its content in the dump format.
The most basic thing you can do with SVN::Dump is simply copy a dump:
use SVN::Dump;
my $dump = SVN::Dump->new( { file => 'mydump.svn' } );
$dump->next_record; # read the format header
$dump->next_record; # read the uuid header
print $dump->as_string(); # only print the dump header
while( $rec = $dump->next_record() ) {
print $rec->as_string();
}
After the operation, the resulting dump should be identical to the original dump.
SVN::Dump provides the following methods:
The argument list is a hash reference.
If the SVN::Dump object will read information from a file, the arguments "file" is used (as usal, "-" means "STDIN"); if the dump is read from a filehandle, "fh" is used.
Extra options will be passed to the SVN::Dump::Reader object that is created.
If the SVN::Dump isn't used to read information, the parameters "version" and "uuid" can be used to initialise the values of the "SVN-fs-dump-format-version" and "UUID" headers.
SVN::Dump::Reader, SVN::Dump::Record.
The reference document for Subversion dumpfiles is at: <http://svn.apache.org/repos/asf/subversion/trunk/notes/dump-load-format.txt>
Copyright 2006-2020 Philippe Bruhat (BooK), All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| 2022-10-14 | perl v5.34.0 |