Codierung (Allgemeines zu Perl)

[thread]18430[/thread]

Codierung

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
kailyy

2013-07-10 14:51
User since
2013-06-04
5 Artikel
BenutzerIn
Hallo zusammen

Ich habe ein ecoding Problem beim öffnen einer Datei. Ich mache folgendes (siehe unten). Ich öffne ein VCS Template und ersetzte gewisse Inhalte und gebe die Datei aus (als speichern unter).

Nun habe ich das Problem, dass die Datei als Unix ANSI as UTF-8 ausgegeben wird und somit sind die Umlaute dahin. Ich müsste dos/windows ANSI haben.

Hat da einer eine Idee wie ich das lösen kann? Ich weiss, dass es ein vCard Perl Modul gibt, dass will ich aber explizit NICHT verwenden (security Restriktion auf Server, fragt nicht...).

-----------
Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

open (VCF , "<D:/www/msweb001/files/vCard.vcf") ; @VCF=<VCF> ; close(VCF) ; $VCF = join(/ / , @VCF) ; $VCF =~ s/\[!!vcf_titel!!\]/$funktion/ig ; $VCF =~ s/\[!!vcf_name!!\]/$name/ig ; $VCF =~ s/\[!!vcf_vorname!!\]/$vorname/ig ; print "Content-type: text/x-vcard\n"; print "Content-Disposition: attachment; filename=test.vcf\n\n"; print "$VCF";
modedit Editiert von GwenDragon: Perl-Code in CODE-Tags gestellt; bitte http://www.perl-community.de/bat/poard/markup_help... lesen!
Last edited: 2013-07-10 16:49:04 +0200 (CEST)
- +8 replies
- Muffi
  
  2013-07-10 15:30
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Guck mal in der Doku von open(), da kann man das vorliegende encoding angeben.
  1 + 1 = 10
  - +7 replies
  - kailyy
    
    2013-07-10 16:07
    
    User since
    2013-06-04
    5 Artikel
    BenutzerIn
    
    Hast Du ein Beispiel? Die Doku http://perldoc.perl.org/functions/open.html ist sehr dürftig in diesem Bezug...
    - +6 replies
    - FIFO
      
      2013-07-10 16:37
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Guckstu hier: PerlIO
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - +5 replies
      - kailyy
        
        2013-07-10 16:46
        
        User since
        2013-06-04
        5 Artikel
        BenutzerIn
        
        bringt mich auch nicht weiter! Gebt doch ein Beispiel was korrekt wäre. Wenn ich mit der Doku weiter käme, würde ich wohl kaum um Hilfe suche...
        
        Das habe ich schon versucht (ohne Erfolg)
        
        Code (perl): (dl )
        
        1 2 3 4
        
        open (VCF , "<:win32", "D:/www/msweb001/files/vCardLU.vcf") ; open (VCF , "<:crlf", "D:/www/msweb001/files/vCardLU.vcf") ; open (VCF , "<:encoding(ISO-8859-1)", "D:/www/msweb001/files/vCardLU.vcf") ; open (VCF , "<:encoding(UFT-8)", "D:/www/msweb001/files/vCardLU.vcf") ;
        
        Last edited: 2013-07-10 16:49:57 +0200 (CEST)
        
        +3 replies
        
        payx
        
        2013-07-10 16:59
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo kailly,
        
        beim open stellst Du das tatsächliche Encoding Deiner Quelldatei ein.
        
        Dein Problem kommt vermutlich bei der Ausgabe über die DOS-Konsole.
        
        Füge vor dem ersten print-Befehl ein:
        
        binmode(STDOUT, ":encoding(cp850)");
        
        Dann sollte es klappen.
        
        HTH
        Grüße
        payx
        
        +2 replies
        
        kailyy
        
        2013-07-10 17:59
        
        User since
        2013-06-04
        5 Artikel
        BenutzerIn
        
        Hey payx
        
        Danke für die Info. Du bist auf der richtigen Spur :-). Das File ist zumindest jetzt dos/Windows (und nicht mehr Unix) aber immer noch ANSI UTF-8 statt nur ANSI. Es hat also tatsächlich was mit der Ausgabe zu tun und nicht mit dem lesen der Datei.
        
        Die Datei wird über eine HTML URL-Übergabe use CGI qw(:standard) abgefüllt. Evtl. kommt da noch was falsch. Auf jedenfall habe ich nun statt ü Ç¬ und davor war's Ã¼ statt ü. Denke die Spur ist die Richtige. Danke für den Hinweise. Melde mich wieder, wenn ich die Lösung habe.
        
        Muffi
        
        2013-07-11 08:38
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        2013-07-10T15:59:59 kailyy
        Das File ist zumindest jetzt dos/Windows (und nicht mehr Unix) aber immer noch ANSI UTF-8 statt nur ANSI.
        
        Welches file?
        1 + 1 = 10
        
        FIFO
        
        2013-07-10 17:00
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        vgl. payx.
        Für Files:
        
        Code (perl): (dl )
        
        1 2
        
        open my $outFH, '>:encoding(ISO-8859-1)', 'foo.dos' or die "$!"; print $outFH "Ätsch\nBätsch";
        
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View all threads created 2013-07-10 14:51.