File::Basename durch Reguläre Ausdrücke ersetzen (Allgemeines zu Perl) - Perl-Community.de

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

2024-11-26 15:55:44
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
3 Gäste

[thread]18684[/thread]

submit to reddit

File::Basename durch Reguläre Ausdrücke ersetzen

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+28 replies
Kean

2013-10-18 16:35
User since
2004-08-18
463 Artikel
BenutzerIn
Ich habe einen seltsames Problem mit einem meiner Scripte und vermute den Fehler im Modul File::Basename.
Deshalb würde ich gerne die beiden Funktionen "basename" und "dirname" durch Reguläre Ausdrücke ersetzen.

Bisher sieht mein Code so aus:
Code (perl): (dl )

1 2 3

my $pfad = "C:\Test\Dateiname.abc"; my $verz = dirname($pfad); # Inhalt Variable -> "C:\Test\" my $dateiname = basename($pfad,".abc"); # Inhalt Variable -> "Dateiname"
Wie kann ich diese beiden Funktionen am effektivsten durch Reguläre Ausdrücke ersetzen?
Oder gibt es ein anderes Modul was die gleiche Funktionalität hat was ich ausprobieren kann?
Last edited: 2013-10-18 16:41:15 +0200 (CEST)
- payx
  
  2013-10-18 16:42
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Kean,
  
  Im Prinzip so:
  
  Code (perl): (dl )
  
  my ($verz,$dateiname) = ($pfad =~ /(.+\\)(.+)/);
  
  HTH
  Grüße
  payx
  
  PS: In Zeile 1 solltest Du single quotes verwenden, sonst versucht Perl \T zu interpretieren.
  
  Editiert von payx: PS
  Last edited: 2013-10-18 16:43:22 +0200 (CEST)
- Linuxer
  
  2013-10-18 16:45
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Vermutest Du bloß die Probleme oder hast Du konkrete Daten?
  Auf unbestätigten blinden Verdacht würde ich das nicht ersetzen.
  Welche Pfade machen ~~wie~~ welche Probleme?
  Last edited: 2013-10-18 23:08:12 +0200 (CEST)
  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
  
  2013-10-18 17:30
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2013-10-18T14:35:28 Kean
  Bisher sieht mein Code so aus:
  
  Code (perl): (dl )
  
  my $pfad = "C:\Test\Dateiname.abc";
  
  nun, da sehe ich schon ein problem:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  $ perl -wE' my $pfad = "C:\Test\Dateiname.abc"; say $pfad;' Unrecognized escape \T passed through at -e line 2. Unrecognized escape \D passed through at -e line 2. C:TestDateiname.abc
  
  ich nehme an, dass du im echten code single quotes verwendes oder den pfad woanders herbekommst.
  
  ansonsten würde ich Linuxer zustimmen und den Fehler versuchen zu lokalisieren. könnte ein Bug im Modul oder falsche Benutzung sein.
  Last edited: 2013-10-18 17:34:01 +0200 (CEST)
  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
- +12 replies
- GwenDragon
  
  2013-10-18 17:34
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Backslashes in Zeichenketten zwischen doppelten Anführungszeichen gehören maskiert.
  http://perlmaven.com/quoted-interpolated-and-escap...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - bianca
    
    2013-10-18 17:39
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Zwischen einfachen doch auch.
    10 print "Hallo"
    20 goto 10
    - +8 replies
    - GwenDragon
      
      2013-10-18 17:43
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Wirklich?
      ~ perl -wE "say 'C:\t'" C:\t ~ perl -wE 'say "C:\t"' C:
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +7 replies
      - payx
        
        2013-10-18 21:35
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Einen Fall gibt es aber doch:
        
        perl -wE "say 'C:\'" Can't find string terminator "'" anywhere before EOF at -e line 1.
        
        vs.:
        
        perl -wE "say 'C:\\'" C:\
        
        Und da dieser Fall in der (Windows-)Praxis gar nicht so selten ist (ein Verzeichnispfad halt), ist es vermutlich das, was bianca gemeint hat.
        
        Grüße
        payx
        
        +5 replies
        
        nepos
        
        2013-10-19 10:35
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Das macht auch nur Aerger, weil du das ueber die Kommandozeile ausfuehrst.
        Da wird naemlich schon mal von der Shell die erste Ebene an Escaping weggeworfen.
        Wenn man Single Quotes benutzt, dann muss man da drin auch nix Escapen (ausser man gibt das ganze z.B. wieder einer Shell, dann muss man wieder aufpassen).
        
        +2 replies
        
        Raubtier
        
        2013-10-19 10:56
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Naja, es ging payx aber um Windows. Hast du schon einmal probiert, in der cmd.exe einfache Anführungszeichen zu benutzen?
        
        nepos
        
        2013-10-19 17:34
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Nope, Gott sei Dank muss ich mich an der Stelle nicht mit Windows rumaergern ;)
        
        +2 replies
        
        payx
        
        2013-10-20 21:11
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo nepos,
        
        dieses Programm:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        #!/usr/bin/perl use strict; use warnings; use 5.010; say 'C:\';
        
        liefert zurück:
        
        Code: (dl )
        
        Can't find string terminator "'" anywhere before EOF at test.pl line 8.
        
        Klartext: Der Backslash escaped den single quote – auch zwischen single quotes. Deshalb muss er am Ende eines Strings ggf. selbst escaped werden.
        
        Mit Windows hat das nur insofern etwas zu tun, als der obige String unter Windows eine typische Pfadangabe ist. Wenn Du beispielsweise 'foo#"?bar~!\' ausgeben wollen würdest, vielleicht ohne dass es ein Windows-Pfad ist, sondern einfach, weil Dir dieser Text aus hier nicht weiter zu erörternden Gründen ausgabewürdig erscheint, müsstest Du den Backslash am Ende auch escapen. Da kann Bill Gates ausnahmsweise nichts dafür.
        
        Grüße
        payx
        
        Muffi
        
        2013-10-21 08:28
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich hab auch schon gemerkt, dass man unter Windows dauernd Scherereien mit den Backslashpfaden hat. Die meisten Funktionen können aber auch mit Slash umgehn. Ich verwend deshalb auch unter Windows Slash-Pfade wo möglich.
        1 + 1 = 10
        
        GwenDragon
        
        2013-10-19 10:55
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, da hast du Recht.
        U:\>perl -w print 'C:\'; ^Z Can't find string terminator "'" anywhere before EOF at - line 1.
        
        Allerdings kann man in Perl unter Windows auch Pfade mit / schreiben. Funktioniert oft.
        
        Probleme werden wohl eher system(), qx() oder Win32::API-Module machen, wenn die Pfade nicht Win-gemäß sind.
        Last edited: 2013-10-19 10:59:52 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - pq
      
      2013-10-18 17:43
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      nein, müssen nicht:
      
      Code: (dl )
      
      1 2 3 4
      
      $ perl -wE' my $pfad = q/C:\Test\Dateiname.abc/; say $pfad;' C:\Test\Dateiname.abc
      
      allerdings müssen single quotes selbst (bzw. bei q() oder q// natürlich der entsprechende delimiter) escaped werden.
      
      und wenn du 2 backslashes hintereinander willst, musst du insgesamt 3 schreiben.
      
      Editiert von pq: korrigiert: s/4/3/
      Last edited: 2013-10-18 18:00:21 +0200 (CEST)
      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
      - bianca
        
        2013-10-18 18:14
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ah gut.
        Aber \\ hat bisher auch zu einem \ geführt. Daher habe ich mir das wahrscheinlich angewöhnt.
        10 print "Hallo"
        20 goto 10
- +5 replies
- hlubenow
  
  2013-10-18 18:36
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Ich wollte was mit split() versuchen, aber:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl use warnings; use strict; my $pfad = "C:\Test\Dateiname.abc"; my @a = split("\", $pfad); foreach my $i (@a) { print "$i\n"; }
  
  ergibt einen merkwürdigen Fehler. Offenbar wird "\T", "\D" erkannt.
  - bianca
    
    2013-10-18 18:42
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das wurde doch gerade mehr als deutlich gesagt?!
    Bei doppelten Anführungszeichen müssen Backslashes maskiert werden!
    10 print "Hallo"
    20 goto 10
  - pq
    
    2013-10-18 18:42
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    innerhalb von double quotes werden halt so dinge wie \n, \r, \t erkannt. \T und \D sind aber keine bekannten escapes, daher solltest du auch eine warnung bekommen, siehe meinen beitrag weiter oben. sie werden dann zu T und D, der \ fällt weg.
    
    ausserdem ist mir schleierhaft, wie dein skript kompiliert:
    my @a = split("\", $pfad);
    =)
    der backslash maskiert das folgende ". du müsstest "\\" schreiben. bei split sollte man aber in der regel eher eine regex schreiben, also m/\\/
    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
    
    2013-10-18 18:42
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Ja, \ ist ja normalerweise das Escape-Zeichen in Zeichenketten.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - hlubenow
    
    2013-10-18 18:44
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Ihr seid einfach zu schnell. :)
    
    Ich hatte wohl nicht alles oben gelesen, weil es sich ja auf reguläre Ausdrücke, nicht so sehr auf split() bezog.
    
    Jedenfalls, so geht's:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    #!/usr/bin/perl use warnings; use strict; my $pfad = 'C:\Test\Dateiname.abc'; my @a = split(/\\/, $pfad); foreach my $i (@a) { print "$i\n"; }
    
    Wenn man das berücksichtigt, geht wahrscheinlich auch das Modul.
    Last edited: 2013-10-18 18:45:53 +0200 (CEST)
- +7 replies
- GwenDragon
  
  2013-10-19 11:32
  User since
  2005-01-17
  14748 Artikel
  Admin1
  @Kean
  
  Ich weiß ja nicht was du erreichen willst, wo bei dir File::Basename nicht funktioniert, aber:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use File::Basename qw(dirname basename); my $pfad = 'C:\Test\Dateiname.abc'; my $verz = dirname($pfad); # Inhalt Variable -> "C:\Test\" my $dateiname = basename($pfad,""); # Inhalt Variable -> "Dateiname" print "$pfad\n$verz\n$dateiname\n";
  
  ergibt:
  
  C:\Test\Dateiname.abc
  C:\Test
  Dateiname.abc
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - Kean
    
    2013-10-21 09:23
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Sorry dass ich mich erst jetzt melden kann. Das Thema hat sich ja zu einer heißen Diskussion entwickelt...
    
    Mein Fehler ist etwas komplizierter und hat nichts direkt mit den Rückgabewerten der Funktionen zu tun.
    
    Ich habe mehrere Perl-Tk Programme geschrieben und täglich im Einsatz. Ab und zu passiert es dass beim starten oder wenn während des Programmlaufs eine Aktion ausgelöst wird (z.b. drücken eines Buttons) eine Fehlermeldung kommt. Diese sieht wie folgt aus:
    
    Code: (dl )
    
    1 2 3
    
    Programm.exe - Kein Datenträger Es befindet sich kein Datenträger im Laufwerk. Legen Sie einen Datenträger in Laufwerk E: ein. Abbrechen Wiederholen Weiter
    
    Egal ob ich Abbrechen, Wiederholen oder Weiter klicke, kommt der Fehler so 15-20 mal erneut und dann läuft das Programm weiter. Das Programm reagiert dabei ganz normal wie wenn nichts wäre.
    
    Ich habe dieses Problem bereits auf mehreren Rechnern nachstellen können. Ausgelöst wird es anscheinend durch verschiedene Aktionen des CD-ROM/DVD Laufwerks. Nachstellen konnte ich es nur durch das laden eines Programms auf der DVD und dem Auswerfen dieser während des startens.
    
    Da dieses Phänomen nicht bei all meinen Programmen auftritt, vermute ich den Fehler in einem der eingesetzten Module und versuche durch Ausschluss das Modul zu finden. Deshalb meine Frage...
    - +4 replies
    - topeg
      
      2013-10-21 11:46
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich vermute mal das das Script zu einer exe gewandelt wurde.
      Wenn meine Annahme wahr ist:
      
      Praktisch alle Perl-"Compiler" bestehen aus einem Starter mit einem angehängten Archiv, das alle für das Script nötigen (und unnötigen) Module enthält. Das Archiv wir in auf die Festplatte entpackt und das darin enthaltenen Script gestartet.
      
      Der Fehler tritt wohl auf, wenn das Script schon mal gestartet wurde und der Starter auf dem Startmedium nachschaut ob die Module auf dem Startmedium neuer sind, als die schon kopierten Module und Windows das Medium in dem Moment blockiert.
      Eine solche Blockierung kann viele Gründe haben, aber meist passiert es, wenn das Medium gerade geparkt oder gestartet wird.
      Die multiplen Zugriffe folgen aus der internen Struktur des Starters, der für jedes Modul das Archiv neu öffnet.
      
      Das kommt vom Startet direkt und du hast kaum einen Einfluss darauf.
      - +3 replies
      - Kean
        
        2013-10-21 13:05
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Daran kann es eigentlich nicht liegen, da ich ein Programm habe, welches sich ohne Fehlermeldung öffnen und benutzen lässt.
        Von drei getesteten Programmen kommt bei 2 die Fehlermeldung und bei einem nicht. Alle drei sind aber zur Exe compiliert.
        
        +2 replies
        
        topeg
        
        2013-10-21 17:49
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Kann sehr wohl sein.
        Die Reihenfolge und welche Module geladen werden hat Einfluss darauf, wann eine Modul-Dateie geprüft wird. Braucht ein Modul in einer bestimmten Konfiguration besonders lange, so Reicht die Zeit, das das Windows entscheidet die CD zu parken. Die dann folgenden Anfragen geben die Warnungen.
        Es hängt natürlich indirekt mit den Modulen zusammen. Aber zu bestimmen welches Modul so lange lädt, das es zu den Problemen kommt ist nicht einfach.
        Du kannst ja mal zwischen die "use" ein
        
        Code (perl): (dl )
        
        BEGIN{ print localtime()."\n"; }
        
        setzen. Dann siehst du wie lange jedes Modul zum laden braucht. So wird aber nur das reine laden überwacht. Das initialisieren erfolgt später im Startprozess und auch da können noch Module nachgeladen werden.
        
        Kean
        
        2013-10-21 18:18
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Die Programme sind ja gar nicht auf einer CD. Sie liegen immer lokal auf der Festplatte.
    - pq
      
      2013-10-21 14:11
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wäre noch die frage, warum du den fehler gerade bei File::Basename vermutest.
      soweit ich weiss, greift das doch gar nicht auf die festplatte zu.
      aber natürlich kannst du das zum testen relativ einfach ersetzen:
      
      Code (perl): (dl )
      
      1 2
      
      my ($dirname) = $path =~ m/^(.*)\\/; my ($basename) = $path =~ m/.*\\(.*)\.abc$/;
      
      so in etwa (ungetestet)
      
      edit: oder in einem abwasch:
      
      Code (perl): (dl )
      
      my ($dirname, $basename) = $path =~ m/^(.*)\\(.*)\.abc$/;
      
      Last edited: 2013-10-21 14:19:19 +0200 (CEST)
      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

View all threads created 2013-10-18 16:35.