qx und Apostrophen im Dateinamen (solved) (Allgemeines zu Perl)

[thread]19712[/thread]

qx und Apostrophen im Dateinamen [solved]

Tags: perl5 windows qx Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+7 replies
guest crayfish

2015-07-06 00:10
Hallo Perl Profis

Ich bräuchte mal ein bisschen Hilfe bitte! Ich versuche (Windows 7!!, Strawberry Perl) in einer Schleife den Inhalt einer Reihe von Dateien, in eine Variable umzuleiten, deren Inhalt ich dann auswerten möchte. Derzeit sieht das bei mir so aus:
Code: (dl )

1 2 3 4 5 6 7 8

my @txt = qx(dir /B *.eit); foreach (@txt) { chomp $_; my $ctxtf = qx(type $_); $ctxtf =~ /.*\x{00f8}(1?[0-9])\. findewort.*/; print "\n==> Ergebnis: ".$1."\n"; }
Dies funktioniert, allerdings nur, wenn die *.txt Dateien keine Leerzeichen im Dateinamen haben. Haben sie eines, dann bekomme ich eine Fehlermeldung "The system cannot find the file specified."

Ich kriege das mit dem Escapen und Backticks einfach nicht hin. Wäre über jeden Tip sehr dankbar!

Der Fish
Last edited: 2015-07-06 09:04:36 +0200 (CEST)
- +6 replies
- GwenDragon
  
  2015-07-06 09:06
  User since
  2005-01-17
  14381 articles
  Admin1
  In Windows musst du die Dateinamen in doppelte Hochkomma (") stellen, dann wird das Problem mit Leerzeichen verhindert.
  
  Code (perl): (dl )
  
  1 2 3
  
  my @txt = qx(dir /B "*.eit"); ... my $ctxtf = qx(type "$_");
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - guest crayfish
    
    2015-07-06 09:41
    Hallo GwenDragon, Vielen Dank für die Antwort!
    
    Ich habe _fast_ die Lösung, aber nur fast! Also, das mit den Double Quotes habe ich natürlich probiert, genauso wie viele andere Kombinationen, mit ', oder "\", oder "\', oder ...
    
    Egal, jedenfalls habe ich gerade bemerkt, dass es an daran liegt, dass manche der Dateinamen ein Apostroph ' beinhalten. Z.B:
    
    Frank O'Donnell kauft Pelze.txt
    
    Sobald ich das ' rausnehme, funktioniert es! Wie schaffe ich es aber, die Hochkommas drin zu lassen, und trotzdem die Datei zu öffnen.
    
    Übrigens:
    
    Code: (dl )
    
    my @txt = qx(dir /B *.txt);
    
    funktioniert so, auch ohne Double Quotes. Vielleicht liegt es auch an meiner Umgebung.
    Ich poste hier noch einmal den gesamten Quelltext, ich habe da am Anfang so ein "binmode" Statement, ich glaube, das war wegen der Umlaute (die auch in einigen Dateinamen und in der Datei selbst enthalten sind), vielleicht mache ich da was falsch.
    
    Sorry falls da Unsinn steht, habe Perl zum letzten Mal vor 10 Jahren angefasst, und selbst damals war ich alles andere als ein Perl-Profi!
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl -w use warnings; use strict; binmode(STDOUT , ":encoding(cp437)" ); my @txt = qx(dir /B *.txt); foreach (@txt) { chomp $_; my $ctxtf = qx(type $_); $ctxtf =~ /.*\x{00f8}(1?[0-9])\. findewort.*/; print "\n==> Ergebnis: ".$1."\n"; }
    
    Any help appreciated!
    
    Fish
    Last edited: 2015-07-06 09:52:16 +0200 (CEST)
    - +4 replies
    - GwenDragon
      
      2015-07-06 10:19
      
      User since
      2005-01-17
      14381 articles
      Admin1
      
      Dann musst du vorher den Dateinamen Quoten.
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $filename = qq($_); ... my $ctxtf = qx(type $filename); ...
      
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +3 replies
      - crayfish
        
        2015-07-06 10:37
        
        User since
        2015-07-06
        2 articles
        BenutzerIn
        
        Vielen Dank, das funktioniert jetzt so:
        
        Code: (dl )
        
        1 2 3 4
        
        ... my $filename = qq($_); ... my $ctxtf = qx(type "$filename");
        
        Danke, so kann ich erst einmal weitermachen.
        
        Fish
        Last edited: 2015-07-06 10:49:50 +0200 (CEST)
        
        +2 replies
        
        crayfish
        
        2015-07-06 21:44
        
        User since
        2015-07-06
        2 articles
        BenutzerIn
        
        Vielleicht noch einmal ein kleiner Nachtrag: Es hat sich herausgestellt, das ich meine Schwierigkeiten von einem "merkwürdigen" Apostroph hatte. Ich hatte eine Excel Datei erstellt, in die ich Text mit "normalem" Apostroph ' geschrieben habe. Diese Excel Datei habe ich in eine CSV exportiert, aus den Aprostophen (wenn ihr mir diesem Plural mal erlaubt) wurden dann aus irgendeinem Grund andere Apostrophen.
        Sobald ich sie in gvim ersetzt habe, funktionierte es auch mit dem Öffnen der Dateien.
        
        Dieser Thread sollte daher eigentlich eher heißen: "qx und Apostrophen im Dateinamen".
        
        Also, danke nochmal. Aktuell hapert es mal wieder an Umlauten im Dateinamen, aber das kriege ich schon hin, hoffentlich... :)
        
        GwenDragon
        
        2015-07-07 08:53
        
        User since
        2005-01-17
        14381 articles
        Admin1
        
        Du meinst ein Hochkomma im Dateinamen.
        Das Zeichen über der Raute (#), also das ' is ein einfaches englisches Hochkomma, kein Apostroph.
        Der Apostroph ist das: ’. Nicht zu verwechseln mit dem francophon verwendeten Accent acute/grave ´.
        Last edited: 2015-07-07 08:55:10 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2015-07-06 00:10.