/usr/bin/tmxwc is in libxml-tmx-perl 0.36-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | #!/usr/bin/perl -s
# ABSTRACT: Gives statistics about tmx file.
# PODNAME: tmxwc
our($h);
use XML::TMX::Reader;
my $TTU = 0;
my $n = scalar(@ARGV);
for my $file (@ARGV) {
my $tm = XML::TMX::Reader->new($file);
my $TU = 0;
$tm->for_tu({-raw => 1 },
sub { $TU++ ;
print STDERR "\r$TU..." unless $TU%1000;
}
);
print (($h?"":"$file: "),"$TU tu.\n");
$TTU += $TU;
}
print "total: $TTU tu.\n" if $n > 1;
__END__
=pod
=encoding utf-8
=head1 NAME
tmxwc - Gives statistics about tmx file.
=head1 VERSION
version 0.36
=head1 SYNOPSIS
tmxwc tmx1 [tmx2 ...]
-h don't print filenames (default: print filenames)
=head1 DESCRIPTION
Gives statistical information about TMX files like the number of
translation units.
=head1 AUTHORS
=over 4
=item *
Alberto Simões <ambs@cpan.org>
=item *
José João Almeida <jj@di.uminho.pt>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010-2017 by Projeto Natura <natura@di.uminho.pt>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|