File::HomeDir und encoding (solved) (Allgemeines zu Perl)

[thread]19447[/thread]

File::HomeDir und encoding [solved]

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+8 replies
Kuerbis

2015-01-03 10:38

User since
2011-03-20
957 articles
BenutzerIn

Hallo,

geben die Methoden von File::HomeDir die Verzeichnisnamen "encoded" zurück?
- +7 replies
- GwenDragon
  
  2015-01-03 11:32
  
  User since
  2005-01-17
  14851 articles
  Admin1
  
  Was meinst du damit?
  Es wird das Verzeichnis zurück gegeben, das in ENV drin steht ode über betriebssystemspezifische Routinen abgefragt werden kann.
  Da wird nix umkodiert.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - Kuerbis
    
    2015-01-03 12:03
    
    User since
    2011-03-20
    957 articles
    BenutzerIn
    
    Das heißt, wo ich mit decodierten Strings arbeite, müsste ich die Verzeichnisnamen decodieren?
    - +4 replies
    - GwenDragon
      
      2015-01-03 12:09
      
      User since
      2005-01-17
      14851 articles
      Admin1
      
      Was meinst du mit dekodieren in dem Zusammenhang?
      Soweit ich weiß, haben die modernen Betriebssysteme Unicode als Zeichen bei Dateisystemen.
      
      //EDIT: File::HomeDir funktioniert aber leider nur bedingt. Aus MacOS anders als Linux oder Windows.
      Getestet: Auf meinem Windows funktioniert es nicht korrekt, selbst my_home wird falsch ausgelesen, das kommt dann C:\strawberry\data.
      
      PERL-5.14 U:\>perl -MFile::HomeDir -E "say File::HomeDir->my_home" C:\strawberry\data PERL-5.14 U:\>perl -MFile::HomeDir -E "say File::HomeDir::Windows->my_home" U:\TEST PERL-5.14 U:\>perl -MFile::HomeDir -E "say File::HomeDir::Windows->my_pictures" U:\TEST\Pictures PERL-5.14 U:\>perl -MFile::HomeDir -E "say File::HomeDir->my_pictures"
      
      Da fumnktioniert was nicht korrekt.
      
      Dir bleibt nix übrig als eigene Tests zu schreiben.
      Last edited: 2015-01-03 12:58:14 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - pq
        
        2015-01-03 13:18
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        das ist merkwürdig, da eigentlich automatisch das richtige modul aufgerufen werden sollte. und der autor ist selbst windows-user.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        if ( $IMPLEMENTED_BY ) { # Allow for custom HomeDir classes # Leave it as the existing value } elsif ( $^O eq 'MSWin32' ) { # All versions of Windows $IMPLEMENTED_BY = 'File::HomeDir::Windows'; ... sub my_home { $IMPLEMENTED_BY->my_home; }
        
        welche version nutzt du?
        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
        
        GwenDragon
        
        2015-01-03 13:54
        
        User since
        2005-01-17
        14851 articles
        Admin1
        
        Ja, das ist seltsam.
        Ich habe die 1.00 unter StrawberryPerl 5.14 getestet.
        Da ist File::HomeDir 1.00 dabei.
        //EDIT:
        Die Dateien liegen unter C:\strawberry\perl\vendor\lib.
        
        Wenn ich unter cpan
        look File::HomeDir perl Makefile.PL dmake dmake test dmake install quit
        ausführe, installiert Perl das File::HomeDir unter C:\strawberry\perl\site\lib\.
        Und dann klappt es wieder korrekt mit dem Methoden.
        
        Perl sucht zuerst in site\lib wie:
        more (3.2kb)
        
        Ich habs gerade nochmals mit einer frisch gezogenen Perl 5.14.4 von http://strawberryperl.com/download/5.14.4.1/strawb... getestet.
        
        //EDIT2:
        Das ist wohl ein Bug ~~der Strawberry 5.14.4.1-PortableZIP~~, die strawberry-perl-5.14.4.1-32bit.zip hat kein Problem mit File::HomeDir.
        Aber dafür alle Strawberry-PortableZIP-Versionen. WTF!
        Last edited: 2015-01-03 14:54:14 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Kuerbis
        
        2015-01-03 13:30
        
        User since
        2011-03-20
        957 articles
        BenutzerIn
        
        Wenn ich es mit diesem Skript probiere, funktioniert es mit und ohne decode:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!perl use warnings; use strict; use 5.10.0; use File::HomeDir; use Devel::Peek; use Encode qw( decode ); use Encode::Locale; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; my $d = File::HomeDir->my_home(); Dump $d; say $d; $d = decode( 'locale', $d ); say "================================================"; Dump $d; say $d;
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        SV = PVMG(0xc02cbc) at 0xaba78c REFCNT = 1 FLAGS = (PADMY,POK,pPOK) IV = 0 NV = 0 PV = 0xc76b4c "C:\\Dokumente und Einstellungen\\h\344ll\366"\0 CUR = 36 LEN = 40 C:\Dokumente und Einstellungen\hällö ================================================ SV = PVMG(0xc02cbc) at 0xaba78c REFCNT = 1 FLAGS = (PADMY,POK,pPOK,UTF8) IV = 0 NV = 0 PV = 0xc798b4 "C:\\Dokumente und Einstellungen\\h\303\244ll\303\266"\0 [UTF8 " C:\\Dokumente und Einstellungen\\h\x{e4}ll\x{f6}"] CUR = 38 LEN = 40 C:\Dokumente und Einstellungen\hällö
    - Kuerbis
      
      2015-01-04 09:23
      
      User since
      2011-03-20
      957 articles
      BenutzerIn
      
      Werde die Namen decodieren.

View all threads created 2015-01-03 10:38.