Debian::L10n::Debconf(3pm) | User Contributed Perl Documentation | Debian::L10n::Debconf(3pm) |
Debian::L10n::Debconf - translation status of Debconf templates
use Debian::L10n::Debconf; my $tmpl = Debian::L10n::Debconf->new(); $tmpl->read_compact($file); my @languages = $tmpl->langs(); foreach (sort @languages) { my ($t,$f,$u) = $tmpl->stats($_); print "$_:${t}t${f}f${u}u\n"; }
This module extracts informations about translation status of Debconf templates files.
my $tmpl = Debian::L10n::Debconf->new();
$tmpl->read_compact($file);
@trans = qw(templates.de templates.fr templates.ja templates.nl); $tmpl->read_dispatched('templates', @trans);
my @list = $tmpl->langs();
my $filename = $tmpl->filename("de");
my $number = $tmpl->count();
my ($t, $f, $u) = $tmpl->stats("de"); my %stats = $tmpl->stats(); foreach (keys %stats) { print $_.':'. $stats{$_}->[0].'t'.$stats{$_}->[1].'f'. $stats{$_}->[2]."u\n"; }
my @ids = $tmpl->entries();
Copyright (C) 2001 Denis Barbier <barbier@debian.org>
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
2021-01-05 | perl v5.32.0 |