#!/usr/bin/perl -w use lib '/src/TeX/texlive-svn/new-infra'; use strict; our $opt_debug=1; use TLTREE; use Data::Dumper; my $tl = TLTREE->new( 'svnroot' => "/src/TeX/texlive-svn/new-infra" ); print "svnroot = ", $tl->svnroot, "\n"; $tl->init_from_svn; print Dumper($tl); #$tl->print; my $fn="texmf-dist/fonts/tfm/baz/file1"; print "$fn rev = ", $tl->file_svn_lastrevision($fn), "\n"; my $foo = $tl->get_matching_files("run","t texmf-dist fonts"); print "files under texmf-dist fonts = @$foo\n"; $foo = $tl->get_matching_files('run',"f texmf/.*/bar/.*"); print "files mathcing f texmf/.*/bar/.*: @$foo\n"; $foo = $tl->get_matching_files('bin','f bin/${ARCH}/.*'); foreach (keys %$foo) { my @a = @{$foo->{$_}}; print "arch=$_: @a\n"; } $foo = $tl->get_matching_files('run','f texmf-dist/fonts/tfm/bar/file?'); print "file matching g texmf-dist/fonts/tfm/bar/file?: @$foo\n";