localization - Anfängerfrage (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-22 14:47:52
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
5 Gäste

[thread]17473[/thread]

submit to reddit

localization - Anfängerfrage

Tags: perl5 l10n Ähnliche Threads

Leser: 30

Articles: hide open all | hide show old branches

+21 replies
naspdep

2012-06-11 10:34
User since
2012-06-11
8 Artikel
BenutzerIn
Hi,
Eigentlich schäme ich mich dafür, diese Frage zu stellen, aber ich suche und suche und finde keine Antwort. (Vielleicht bin ich auch zu blöd.)
Ich soll ein Programm so modifizieren, dass die Ausgabe jeweils in die Sprache des users übersetzt wird.
Ich habe mich nun schon durch diverse Modul-Beschreibungen gehangelt, aber nie mal eine klare Anweisung gefunden, wie ich dem Programm nun sage : "Übersetze x in y".
Ich habe nun ein Testprogramm, in welchem ich versuche, eine Übersetzung von 'Hello' nach 'Hallo' hinzukriegen. Aber das Einzige, was ich bisher geschafft habe, ist, die Zahl 1.23 als 1,23 ausgeben zu lassen. :(

Im groben sieht das Programm so aus:
Code (perl): (dl )

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

1 #!/usr/bin/perl -w 2 3 # Exercise Program for localization and internationalization 4 5 use strict; 6 use lib qw(/home/xpathun/perl.d/language.d/); 7 use locale; 8 use POSIX qw(locale_h); 9 use Locale::TextDomain; 10 11 my $current_locale; 12 13 my $lang_var = `env | grep -m 1 [a-z][a-z]_[A-Z][A-Z]`; # looking for a variable which contains a valid language value 14 15 chomp $lang_var; 16 my @lang_set = split('=' , $lang_var); # extracting the value 17 18 my $lang = $lang_set[1]; 19 chomp $lang; 20 21 $current_locale = setlocale(LC_ALL , $lang) || die "Had trouble with the language $lang\n"; 22 23 my $string =__"Hello"; 24 25 print "$string\n"; 26 27 my $number = 1.23; 28 print "$number\n";
Danke für eure Hilfe
Last edited: 2012-06-11 10:38:42 +0200 (CEST)
- +2 replies
- Lebewesen
  
  2012-06-11 10:56
  
  User since
  2011-09-09
  62 Artikel
  BenutzerIn
  
  Wenn ich dich richtig verstehe, willst du einen String übersetzen lassen? Oder willst du nur die Programmoberfläche für den jeweiligen Nutzer anpassen?
  - naspdep
    
    2012-06-11 11:08
    
    User since
    2012-06-11
    8 Artikel
    BenutzerIn
    
    Eine richtige Programmoberfläche gibt es nicht. Es geht nur darum, den Output zu übersetzen.
    
    (Btw: Das ganze läuft auf einem Ubuntu 12.04 Server)
- Gast Muffi
  
  2012-06-11 11:45
  
  Und wer sagt/soll sagen perl nun wo, dass "hello" auf deutsch "hallo" heisst?
  Last edited: 2012-06-11 11:46:52 +0200 (CEST)
- +7 replies
- GwenDragon
  
  2012-06-11 12:13
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Und wo sind deine LC_MESSAGES-Verzeichnisse in denen die .po bzw. .pot-Dateien liegen, in denen die übersetzten Strings stehen?
  gettext funktioniert nur mit diesen Dateien.
  http://www.gnu.org/software/gettext/manual/gettext...
  http://de.wikipedia.org/wiki/GNU_gettext
  Last edited: 2012-06-11 13:03:29 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - naspdep
    
    2012-06-11 14:56
    
    User since
    2012-06-11
    8 Artikel
    BenutzerIn
    
    Mit gettext ansich habe ich schon Probleme, weil angeblich keine 'new' - Methode existiert. Und wenn ich das richtig verstanden habe, brauche ich etwas wie
    my $gt = new Gettext;
    , um gettext verwenden zu können.
    So steht es jedenfalls im CPAN.
    (Fehlermeldung: Can't locate object method "new" via package "Gettext" (perhaps you forgot to load "Gettext"?))
    
    Ich weiß nicht, woran das jetzt liegt. Es gibt in meinem System nur eine Gettext.pm Datei im Verzeichnis '/usr/share/perl5/Debconf/'
    Habe ich da evtl was falsch installiert? Oder verstehe ich es komplett falsch?
    Ich hatte es natürlich geladen, (nicht dass die Frage jetzt kommt, ) wohl auch erfolgreich, habe es aber, da es nicht funktionieren wollte (evtl. nicht ganz restlos) wieder gelöscht, und nach anderen Möglichkeiten gesucht.
    
    Eine .po -Datei habe ich erstellt. Sie liegt im Unterverzeichnis 'LocaleData/messages/LC_MESSAGES'. Kann es sein, dass diese Datei einen bestimmten Namen haben muss? (z.B. 'en.po' für englisch?).
    - +5 replies
    - Linuxer
      
      2012-06-11 15:39
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Anscheinend hast Du Gettext in Deinem Skript nicht mit use Gettext; eingebunden.
      Da Du keinen Code zum Problem lieferst, kann man nur vermuten.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +4 replies
      - naspdep
        
        2012-06-11 15:54
        
        User since
        2012-06-11
        8 Artikel
        BenutzerIn
        
        Um ehrlich zu sein, hatte ich genau das gemeint, als ich gesagt habe
        
        Quote
        Ich hatte es natürlich geladen
        
        Da ich es gelöscht habe, existiert der Code so natürlich nicht mehr.
        Aber so in etwa hatte ich das wohl versucht:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        use lib qw(/usr/share/perl5/Debconf); use strict; use locale; use POSIX qw(locale_h); use Locale::TextDomain; use Gettext; my $gt = new Gettext;
        
        Auch in der Variante
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        use strict; use locale; use POSIX qw(locale_h); use Locale::TextDomain; use Debconf::Gettext; my $gt = new Debconf::Gettext;
        
        Es gab auch keine Fehlermeldung, dass er das Modul nicht gefunden hätte.
        
        topeg
        
        2012-06-11 16:09
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Debconf::Gettext ist nicht Gettext
        
        Debconf::Gettext ist speziell für Debian Pakete gedacht. Damit werden die Installationsnachrichten von Paketen übersetzt.
        
        +2 replies
        
        Linuxer
        
        2012-06-11 16:51
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Schau Dir mal die /usr/share/perl5/Debconf/Gettext.pm genau an.
        
        Da steckt wahrscheinlich ein package Debconf::Gettext drin.
        Das ist - wie topeg schon anmerkte - ein anderes Paket und Package als das, was Du suchst.
        
        Damit hast Du Gettext nicht geladen, sondern Debconf::Gettext ...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        naspdep
        
        2012-06-13 09:53
        
        User since
        2012-06-11
        8 Artikel
        BenutzerIn
        
        Ok, also falsch installiert...
        Dann muss ich jetzt mal rausfinden, weches Paket genau ich brauche...
- +3 replies
- pq
  
  2012-06-13 11:31
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  also ich weiss nicht, warum die andern meinen, dass du Gettext.pm brauchst. Locale::TextDomain scheint ja durchaus geeignet zu sein, wenn man in die doku schaut. mir ist allerdings nicht ganz klar, was man dort im use-statement angibt. (du hast ja z.b. gar nichts dort angegeben).
  du brauchst also einen packagenamen und .po-dateien (bzw. ein verzeichnis dafür), in denen die übersetzungen stehn. leider ist in der distribution des moduls auch kein beispiel zu finden, wie man vorhandene .po-dateien benutzen/testen kann.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Linuxer
    
    2012-06-14 10:14
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Ich meinte nicht, dass naspdep Gettext braucht.
    Meine Beiträge bezogen sich schlicht auf die gezeigte Fehlermeldung, dass Gettext wohl nicht geladen war:
    
    Quote
    ...
    (Fehlermeldung: Can't locate object method "new" via package "Gettext" (perhaps you forgot to load "Gettext"?))
    ...
    
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - pq
      
      2012-06-14 10:30
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      hab ich auch nicht gesagt. aber aus irgendeinem grund hat er irgendwann gemeint, dass er
      my $gt = new Gettext;
      schreiben muss, und ich weiss nicht, wieso.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +7 replies
- Gast naspdep
  
  2012-06-14 08:10
  
  Also, was Gettext angeht, verzweifle ich gerade wirklich...
  Nachdem ich anders nichts vernünftiges gefunden habe, habe ich auf http://packages.ubuntu.com/
  nachgeschaut. Folgendes: Wenn ich mir Scripte mit Gettext anschaue, werden die ohne besonderen Paketnamen und ohne Erweiterung von @INC aufgerufen. Wenn ich das richtig verstehe, müsste es also ein Paket geben, das eine Gettext.pm-Datei in einem der in @INC enthaltenen Pfade speichert.
  Das scheint aber bei keinem Paket der Fall zu sein.
  Und mit diesem Textdomain bin ich auch iwie überfordert.
  Ich würde schon gerne erstmal mit Gettext einsteigen. Aber welches Paket genau brauche ich denn dafür?
  Last edited: 2012-06-14 09:22:59 +0200 (CEST)
  - +2 replies
  - pq
    
    2012-06-14 09:47
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    wieso versteifst du dich jetzt so auf Gettext.pm? hast du meine antwort nicht gelesen?
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - naspdep
      
      2012-06-15 11:40
      
      User since
      2012-06-11
      8 Artikel
      BenutzerIn
      
      Irgendwie nicht. Ich weiß nicht, woran das liegt, aber deine vorherige Antwort wurde noch nicht angezeigt, als ich das geschrieben habe... Jetzt gerade wird angezeigt, du hättest um 10:30 noch was geschrieben, aber sonst sehe ich nichts davon...
  - +4 replies
  - topeg
    
    2012-06-14 10:09
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Bei Debian/Ubuntu ist Locale::gettext dabei. Das Paket heißt liblocale-gettext-perl. Das ist ein Wrapper um die Clib.
    
    Weißt du wie du gettext grundsäzlich nutzen musst?
    
    Grundsätzlich:
    Ein Programm parst den Code und ließt alle Strings die im Code zum übersetzen markiert sind. Daraus erzeugt es eine Datei mit den Strings. Dazu kannst du nun verschiedenen Dateien Anlegen, die eine entsprechende Übersetzung enthalten. Das ganze wird "kompiliert", also in eine kompakte Form gebracht. Das ganze an den richtigen Stellen gespeichert erlaubt es dem Programm auf den Strings die passende Übersetzung zu finden.
    als vollständige Doku: www.gnu.org/software/gettext/manual/gettext.html
    - +3 replies
    - naspdep
      
      2012-06-15 11:58
      
      User since
      2012-06-11
      8 Artikel
      BenutzerIn
      
      Ich habe mir mal die Beispiele angesehen, die dort erwähnt werden. Da wird Gettext gar nicht geladen. Jetzt bin ich noch verwirrter.
      
      Eines davon ist:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      #!@PERL@ # Example for use of GNU gettext. # This file is in the public domain. # # Source code of the Perl program, using the Locale::Messages API. use Locale::Messages qw (textdomain bindtextdomain gettext); use POSIX qw(getpid); binmode STDOUT, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8. sub _ ($) { &gettext; } textdomain "hello-perl"; bindtextdomain "hello-perl", "@localedir@"; print _"Hello, world!"; print "\n"; printf _"This program is running as process number %d.", getpid(); print "\n";
      
      Für @PERL@ in Z.1 habe ich /usr/bin/perl -w eingegeben.
      Aber was er in Z.15 für @localedir@ haben will, ist mir iwie nicht ganz klar. Will er den Pfad zu den po-Dateien? Will er den Ordner, in dem meine locales drin sind? Will er einen Ordner zu Locale-Modulen? Alles schon ausprobiert, aber funktionieren tut das Beispiel so trotzdem nicht...
      - +2 replies
      - topeg
        
        2012-06-16 01:06
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Also zu Anfang. Es gibt mehr als eine Implementation von Gettext für Perl. Das wird dir noch häufiger begegnen, dass es mehrere Module gibt die alle ungefähr das selbe machen.
        
        Neben Gettext gibt es noch Locale::gettext, Locale::Messages, Locale::Simple und noch einige mehr.
        
        Neben dem eigentlichen Programmieren ist es auch wichtig zu wissen welche Module man am besten nutzt.
        
        Aber zurück zu gettext.
        
        Programme die gettext nutzen greifen auf die Umgebungsvariablen zurück um festzustellen was die Aktuelle Ausgabesprache ist.
        
        So ist in LANGUAGE definiert welche Sprachen generell verstanden werden. LC_MESSAGE definiert ein welcher Sprache Texte ausgeben werden sollen. Daneben gibt es noch LC_CTYPE und LANG. Will man alle diese Werte auf einmal beeinflussen gibt es noch LC_ALL
        Anzumerken ist das LC_ALL=C sämtliche Übersetzungen unterdrückt und alle Texte so ausgeben werden wie sie im Code stehen. Das gilt für alle Programme. (zumindest wenn das System POSIX Konform ist) Schreibe LC_ALL=C programm und du bekommst die Ausgaben wie sie die Programmierer verfasst haben.
        
        Will man unter Debian (und auch Ubuntu) die aktiven Sprachen einstellen so kann man als root dpkg-reconfigure locales eingeben und die Sprachen einstellen, die man verwenden möchte. Danach ist ein Neustart angebracht, damit die Einstellungen in allen Ecken des Systems ankommen.
        
        Um zu schauen welche locales zur Verfügung stehen kann man locale -a ausführen damit werden alle verfügbaren gelistet.
        
        Nun ein kleines Script:
        test.pl:
        
        Code (perl): (dl )
        
        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
        
        #!/usr/bin/perl use strict; use warnings; # gettext laden. # Das ist Bei Debian gleich dabei und nutzt die C-Lib gettext use Locale::gettext; # POSIX laden um "setlocale" nutzen zu lönnen use POSIX; # das Verzeichnis finden in dem das Script liegt use FindBin '$Bin'; # keine Übersetzung vorläufig setlocale(LC_MESSAGES,'C') or die( "Can't set LC_MESSAGES" ); # die Domein an ein Verzeichnis # im Ordner des Scriptes binden bindtextdomain("my_test","$Bin/translate"); # in diesem Scrit diese Domain verwenden textdomain("my_test"); print gettext("Yo man")."\n"; for(0..9) { printf gettext('ln: %02u')."\n",$_; }
        
        Das soll ein kleines Beispiel sein.
        
        Wie zu sehen sollte im Verzeichnis des Scripts ein Ordner "translate" existieren.
        
        Nun generieren wir aus dem Script ein Template für die Übersetzungen:
        
        xgettext ./test.pl -d my_test -p translate Das Erzeugt im Ordner 'translate' eine Datei "my_test.po"
        Grob gesagt sucht xgettext nach gettext(...) und nimmt den String daraus um damit das Template zu erzeugen. Darum funktionieren so Konstrukte wie gettext( "WERT=$wert\n" ) nicht und sollten besser so geschrieben werden: sprintf( gettext( "WERT=%s\n" ), $wert )
        
        Die Sollte ungefähr so aussehen:
        
        Code: (dl )
        
        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
        
        # SOME DESCRIPTIVE TITLE. # Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER # This file is distributed under the same license as the PACKAGE package. # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. # #, fuzzy msgid "" msgstr "" "Project-Id-Version: PACKAGE VERSION\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2012-06-15 23:27+0200\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" "Language-Team: LANGUAGE <LL@li.org>\n" "Language: \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=CHARSET\n" "Content-Transfer-Encoding: 8bit\n" #: test.pl:13 msgid "Yo man" msgstr "" #: test.pl:16 #, perl-format msgid "ln: %02u" msgstr ""
        
        Das ist das Template mit dem die einzelnen Übersetzungen erzeugt werden.
        Im Verzeichnis 'translate' führt man aus: msginit -l de -i my_test.po Damit wird eine Datei 'de.po' erzeugt. Darin macht man die Übersetzungen. Ungefähr so:
        
        Code: (dl )
        
        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
        
        # German translations for PACKAGE package. # Copyright (C) 2012 THE PACKAGE'S COPYRIGHT HOLDER # This file is distributed under the same license as the PACKAGE package. # ToPeG <topeg@test.local>, 2012. # msgid "" msgstr "" "Project-Id-Version: PACKAGE VERSION\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2012-06-15 23:27+0200\n" "PO-Revision-Date: 2012-06-15 23:31+0200\n" "Last-Translator: ToPeG <topeg@test.local>\n" "Language-Team: German\n" "Language: de\n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" #: test.pl:13 msgid "Yo man" msgstr "Hallo" #: test.pl:16 #, perl-format msgid "ln: %02u" msgstr "Zeile %02u"
        
        Wenn man Umlaute benutzt muss man das charset=ASCII Ändern. Speichert man die Datei Als UTF-8 (was zu empfehlen ist) dann setzt man charset=UTF-8 Speichert man in einer anderen Kodierung muss man das dort vermerken. Macht man da einen Fehler nörgelt gettext herum das bestimmte Zeichen nicht zur Kodierung passen, oder die Ausgabe hat seltsame Zeichen.
        Das macht man nun für jede Sprache die man haben will (z.B englisch).
        
        Der nächste Schritt ist es die Dateien zu kompilieren und an die richtige Stelle zu packen. Dazu erzeugt man zu jeder Sprache einen Ordner diesen Namens der einen Ordner 'LC_MESSAGES' enthält. Also für Deutsch: translate/de/LC_MESSAGES/ Nun wird das ganze kompiliert: msgfmt -o de/LC_MESSAGES/my_test.mo ./de.po Nun kann das Script auf die Übersetzung zugreifen. Dieses Prozedere wiederholst du für jede der Übersetzungen.
        
        Mit ./test.pl bekommt man :
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        Yo man ln: 00 ln: 01 ln: 02 ln: 03 ln: 04 ln: 05 ln: 06 ln: 07 ln: 08 ln: 09
        
        Was zu erwarten ist da eine Übersetzung unterdrückt ist.
        
        Kommentiert man #setlocale(LC_MESSAGES,'C') aus bekommt man die Ausgabe:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        Hallo Zeile 00 Zeile 01 Zeile 02 Zeile 03 Zeile 04 Zeile 05 Zeile 06 Zeile 07 Zeile 08 Zeile 09
        
        Wenn du Vorher für alle gewünschten Übersetzungen die locales ausgewählt hast, kannst du die Sprache ändern indem du die Zeile setlocale(LC_MESSAGES,'...') änderst.
        
        Die Ordnerstruktur ist bei mir nun:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        test.pl translate/my_test.po translate/de.po translate/en.po translate/de/LC_MESSAGES/my_test.mo translate/en/LC_MESSAGES/my_test.mo
        
        Das "gettext"-Packet bietet noch weitere Programme um z.B Änderungen im Script zu erkennen und in den Übersetzungen zu ergänzen. Das solltest du dir aber selber durch lesen.
        
        Ich hoffe das hilft dir weiter.
        
        naspdep
        
        2012-06-18 08:10
        
        User since
        2012-06-11
        8 Artikel
        BenutzerIn
        
        Oh ja, das hilft mir weiter :)
        
        Vielen Dank!

View all threads created 2012-06-11 10:34.