LOCALE::PO4A::PO.3PM(1) User Contributed Perl Documentation :: po4a :: po - po use Locale::Po4a::Po; my $pofile=Locale::Po4a::Po->new(); # Read PO file $pofile->read('file.po'); # Add an entry $pofile->push('msgid' => 'Hello', 'msgstr' => 'bonjour', 'flags' => "wrap", 'reference'=>'file.c:46'); # Extract a translation $pofile->gettext("Hello"); # returns 'bonjour' # Write back to a file $pofile->write('otherfile.po'); :: po4a :: po . // ( ), . PO , ( "` PO "'). PO4A , (MAN PAGE, MANUAL), , PO ( ) . B <-porefs> i . <> b , <> , <> , < > (: ). <--> <> | < > | <> (: 76) PO . , , . , 77 PO . PO4A . , PO4A PO . < > , PO4A MSGID MSGSTR . <> , PO4A PO . . MSGID MSGSTR , . B <-msgid-bugs-address> i <@> .... . , -MSGID-BUGS-TO . <--> . " , ." <--> . "". <--> . "". () . , PO . ($) PO ( ). , . ($) . write_if_needed ($$) , PO POT , , ( ). ($) . . , , . ;) ($%) . () . , . : <> . , , . B (: 76). _ () _ () . MSGFMT - . , PO , MSGFMT . : [some use of the PO file to translate stuff] ($percent,$hit,$queries) = $pofile->stats_get(); print "So far, we found translations for $percent\% ($hit of $queries) of strings.\n"; _ () . (%) . . : B . B . <> . : FILE.C: 46 ( 46 'file.c' ). . <> (). . <> . B <-add-comments> . <> . : <->, <->, <->, <->, <->, <->, <- >, b , b <-->, b , b , b , b b . . <> : . , , ..... , PO .... ("", " 1", "" ) . , , . PO , . <> . , . B B PO . B ; . count_entries () ( ). count_entries_doc () . , . msgid ($) MSGID . msgid_doc ($) MSGID . type_doc ($) MSGID . GetTextization , {$ msgid} {'type' , $ msgid . get_charset () PO . , " -8" . Denis Barbier Martin Quinson (mquinson#debian.org) perl v5.42.0 2025-11-22 LOCALE::PO4A::PO.3PM(1)