yongbin · February 2, 2013 19:30 · yongbin · Feb 2, 2013 · yongbin · Feb 2, 2013
diff --git a/svn-xml-dump.pl b/svn-xml-dump.pl
 #!/usr/bin/env perl
 use strict;
 use warnings;
 use 5.010;
 use XML::Twig;
 use Data::Dumper;
 use Path::Tiny;
 use DateTime;
 use DateTime::Format::RFC3339;

 my $file = shift;
 my ($basename) = split( /\./, $file );
 my $f = DateTime::Format::RFC3339->new();

 my $twig = XML::Twig->new(
    twig_handlers => {
        logentry => sub {
            my $date  = $f->parse_datetime( $_->first_child('date')->text );
            my $paths = $_->first_child('paths');
            foreach my $path ( $paths->children('path') ) {
                return
                  unless ( $path->att('copyfrom-path')
                    && $path->att('copyfrom-rev') );

                my $from_path = path( $path->att('copyfrom-path') );
                my $from_rev  = $path->att('copyfrom-rev');
                my $to        = path( $path->text );

                return if $from_path =~ m(\.);

                if($from_path =~ m{/trunk}) {
                    $from_path = $basename;
                } else {
                    $from_path =~ s(^/)($basename/);
                }

                $to =~ s(^/)($basename/);

                printf " - %s : %7s:%04d : %-30s => %s\n",
                  $date,
                  $basename,
                  $from_rev,
                  $from_path,
                  $to;
            }
          }
    }
 );                          # create the twig
 $twig->parsefile($file);    # build it
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use 5.010;
	use XML::Twig;
	use Data::Dumper;
	use Path::Tiny;
	use DateTime;
	use DateTime::Format::RFC3339;

	my $file = shift;
	my ($basename) = split( /\./, $file );
	my $f = DateTime::Format::RFC3339->new();

	my $twig = XML::Twig->new(
	twig_handlers => {
	logentry => sub {
	my $date = $f->parse_datetime( $_->first_child('date')->text );
	my $paths = $_->first_child('paths');
	foreach my $path ( $paths->children('path') ) {
	return
	unless ( $path->att('copyfrom-path')
	&& $path->att('copyfrom-rev') );

	my $from_path = path( $path->att('copyfrom-path') );
	my $from_rev = $path->att('copyfrom-rev');
	my $to = path( $path->text );

	return if $from_path =~ m(\.);

	if($from_path =~ m{/trunk}) {
	$from_path = $basename;
	} else {
	$from_path =~ s(^/)($basename/);
	}

	$to =~ s(^/)($basename/);

	printf " - %s : %7s:%04d : %-30s => %s\n",
	$date,
	$basename,
	$from_rev,
	$from_path,
	$to;
	}
	}
	}
	); # create the twig
	$twig->parsefile($file); # build it
No results found