LOCALE::PO4A::PO.3PM(1) User Contributed Perl Documentation Locale::Po4a::Po: PO- use Locale::Po4a::Po; my $pofile=Locale::Po4a::Po->new(); # PO- $pofile->read('file.po'); # $pofile->push('msgid' => 'Hello', 'msgstr' => 'bonjour', 'flags' => "wrap", 'reference'=>'file.c:46'); # $pofile->gettext("Hello"); # returns 'bonjour' # $pofile->write('otherfile.po'); Locale::Po4a::Po -- , . / ( , , po), . , PO- , gettext, info- ( <>). po4a, PO- ( ) , (man info-), , debconf, , - . --porefs PO-. : never -- , noline -- (, 1), counter -- full -- ( : full). --wrap-po no|newlines| ( : 76) , PO-. : ( git), ( ). , gettext PO- 77- ( ). , po4a . , po4a PO- , . newlines, po4a msgid msgstr . no, po4a PO-. gettext, po4a. : , msgid msgstr, .. , . --msgid-bugs-address email@address msgid. , POT- Report- Msgid-Bugs-To. --copyright-holder POT . : <> --package-name POT-. : <>. --package-version POT-. : <>. , new() . , PO-, . read($) PO- ( ). , , ; . write($) . write_if_needed($$) write(), PO POT- , , , , ( POT- POT-Creation- Date). filter($) . , (, , . ). , Perl, eval , , true. Perl ;) gettext($%) , , . , () . . : wrap , , , . , ( wrap()). wrapcol , ( : 76). stats_get() gettext (.. , ) stats_clear(). , , "msgfmt --statistic". PO-, msgfmt . : [ PO- -] ($percent,$hit,$queries) = $pofile->stats_get(); print " $percent\% ($hit $queries) .\n"; stats_clear() gettext. push(%) . -. : msgid . msgstr . reference , . : file.c:46 ( 46 <>). ( ) , . comment () . . automatic , . . --add-comments xgettext. flags , , . : c-text, python-text, lisp-text, elisp-text, librep-text, smalltalk-text, java-text, awk-text, object- pascal-text, ycp-text, tcl-text, wrap, no-wrap fuzzy. . gettext . type : . , , PO- , msgid msgid, msgid msgstr. , , msgid PO- , (, <>, <>, <

> .. DocBook). , , , . PO-, , . wrap , , . , . PO- wrap no- wrap. wrapcol ignored; the key is kept for backward computability. count_entries() ( ). count_entries_doc() . , . msgid($) msgid . msgid_doc($) msgid . type_doc($) msgid . , , {$msgid}{'type'}, , $msgid - . get_charset() , PO-. , "UTF-8". (Denis Barbier) (Martin Quinson) (mquinson#debian.org) perl v5.38.2 2024-06-26 LOCALE::PO4A::PO.3PM(1)