Einlesen griechischer Textdateien (Fragen zu Perl-Modulen)

[thread]15827[/thread]

Einlesen griechischer Textdateien

Leser: 22

Articles: hide open all | hide show old branches

+8 replies
Gast Malte Liesner

2011-01-10 01:53

Hallo Leute,

ich habe nun schon STunden damit verbracht selbst die Lösung für meine Probleme zu finden und schaffe es einfach nicht. Ich hoffe ich bin hier in der richtigen Forum-Kategorie. Ich habe es auch nicht geschafft das ganze Forum zu durchforsten, ob die Frage schon mal gestellt wurde.,

Meine Frage: Wie stelle ich ein, dass der Input ein bestimmtes Zeichenformat hat? Wie stelle ich das Zeichenformat für den Output ein?. Ich weiß das geht irgendiw mit Encode, aber ich brauche mal ein paar einfache Code-Samples.

Also: ich will eine Datei, die in griechischen Zeichen geschrieben ist, einlesen und dann auf die einzelnene Zeichen mittels Regex zugreifen.
Ich kenne Unicode etc, aber ich weiß nicht wie ich es umsetzen kann.

Kann mir jemand bitte ein Code.Beispiel geben, wie man ein Locale einstellt? Das wär super.

Danke
Malte
Last edited: 2011-01-10 01:55:16 +0100 (CET)
- topeg
  
  2011-01-10 14:38
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Welche Zeichenkodierung wurde genutzt UTF-8 oder was anderes? Davon hängt primär ab wie die Daten mit Encode gelesen werden müssen.
- +6 replies
- renee
  
  2011-01-10 16:43
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $greek_file = '/path/to/greek.file'; open my $fh, '<:encoding(iso-8859-7)', $greek_file or die $!; while ( my $line = <$fh> ) { print "yes" if $line =~ /$regex/; } close $fh;
  
  Oder wenn es utf-8 ist, halt "utf-8" statt "iso-8859-7" schreiben. Dafür muss es aber Perl > 5.6.x sein.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +5 replies
  - Gast Malte
    
    2011-01-12 06:26
    
    Hallo Leute,
    
    vielen Dank für die Antworten. Ich kann jetzt eine utf8-codierte Datei einlesen und auch speichern. Aber die Konsole zeigt mir noch nict die Zeichen an. Das muss irgendwie mit binmode gehen. ich schreibe mit perl express unter windows xp.
    
    Last edited: 2011-01-12 07:01:54 +0100 (CET)
    - +4 replies
    - topeg
      
      2011-01-12 08:40
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      versuch mal:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      #!/usr/bin/perl use strict; use warnings; use utf8; my $greek_file = '/path/to/greek.file'; open my $fh, '<:encoding(UTF-8)', $greek_file or die $!; print <$fh>; close $fh;
      
      "use utf8" sollte auch STDOUT passend setzen.
      
      Kannst du nicht alternativ die Konsole auf UTF-8 setzen?
      - +2 replies
      - renee
        
        2011-01-12 13:18
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2011-01-12T07:40:05 topeg
        "use utf8" sollte auch STDOUT passend setzen
        
        Nope, "use utf8" sagt dem Parser nur, dass der Quellcode utf-8 enthält. Du meinst vermutlich "use encoding 'utf-8'".
        
        Aber auch das ist nicht ohne, weil es sich auch auf qr, qx, ... auswirkt.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        topeg
        
        2011-01-12 13:37
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Gerade nochmal ausprobiert. Hast recht.
      - Dubu
        
        2011-01-12 20:12
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Also einfach ein
        
        Code (perl): (dl )
        
        binmode STDOUT, ':encoding(utf8)';
        
        am Anfang / vor der ersten Ausgabe und es sollte klappen. Zumindest wenn du UTF-8 haben möchtest.

View all threads created 2011-01-10 01:53.