Ersetzen von Zeichen "/" In Variablen (Allgemeines zu Perl)

[thread]15009[/thread]

Ersetzen von Zeichen "/" In Variablen

Leser: 26

Articles: hide open all | hide show old branches

+10 replies
bora99

2010-05-10 13:09
User since
2009-12-05
54 Artikel
BenutzerIn
Hallo,

Habe folgendes Problem , wenn ich einer Variable Zeichen mit "/" (z.B: Pfad von einem Directory) habe, funktioniert folgende Ersetzung:

Richtiger Output : G:/Dir-Save
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $akt_root_dir = 'G:/Dir'; my $save_root_dir = 'G:/Dir-Save'; print "Root_Dir : $akt_root_dir\n"; print "Save_Dir : $save_root_dir\n"; $akt_save_directory = $akt_root_dir ; $akt_save_directory =~ s#$akt_root_dir#$save_root_dir#g; print "Pfad-Save : $akt_save_directory\n";
Zeichen mit "\" funktioniert leider nicht:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $akt_root_dir = 'G:\Dir'; my $save_root_dir = 'G:\Dir-Save'; print "Root_Dir : $akt_root_dir\n"; print "Save_Dir : $save_root_dir\n"; $akt_save_directory = $akt_root_dir ; $akt_save_directory =~ s#$akt_root_dir#$save_root_dir#g; print "Pfad-Save : $akt_save_directory\n"
Falscher Output : G:\Dir , Richtig wäre G:\Dir-Save

gruss,

mod-edit pq: perl-tags hinzugefügt
Last edited: 2010-05-10 13:31:11 +0200 (CEST)
- +4 replies
- bianca
  
  2010-05-10 13:22
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Richtig wäre my $akt_root_dir = 'G:\\Dir'; weil der Backslash \ auch zwischen Hochstrichen "entschärfende" (Stichwort escape) Wirkung hat.
  
  Edit: Besser geeignet für Akrobatik mit Datei- und Pfadnamen ist ein Modul wie z.B. File::Spec
  Last edited: 2010-05-10 13:26:05 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - pq
    
    2010-05-10 13:25
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das macht keinen unterschied. zwischen single quotes escaped der backslash nur einen weiteren backslash und natürlich single quotes selbst:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    $ perl -w my $akt_root_dir = 'G:\Dir'; print "$akt_root_dir\n"; __END__ G:\Dir $ perl -w my $akt_root_dir = 'G:\\Dir'; print "$akt_root_dir\n"; __END__ G:\Dir
    
    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
    - +2 replies
    - bianca
      
      2010-05-10 13:27
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-05-10T11:25:40 pq
      das macht keinen unterschied. zwischen single quotes escaped der backslash nur einen weiteren backslash und natürlich single quotes selbst:
      
      Oh, wieder was richtig gestellt im Kopf. War das bei früheren Perl's mal anders oder hab ichs mir falsch eingeprägt?
      10 print "Hallo"
      20 goto 10
      - pq
        
        2010-05-10 13:33
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn der backslash in single quotes genauso wie in double quotes funktioniert hätte, wäre ja
        '\n'
        und
        "\n"
        dasselbe gewesen.
        
        ich habe nie perl 4 oder was früheres programmiert (5.4 war mein erstes perl), aber ich würde wetten, dass auch da single quotes schon so funktioniert haben wie heute.
        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
- +5 replies
- pq
  
  2010-05-10 13:29
  User since
  2003-08-04
  12208 Artikel
  Admin1
  du musst sonderzeichen in regexes escapen. da der backslash in der regex ein sonderzeichen ist und variablen innerhalb regexes interpoliert werden, schreib ein \Q davor:
  
  Code (perl): (dl )
  
  $akt_save_directory =~ s#\Q$akt_root_dir#$save_root_dir#g;
  
  siehe auch perldoc -f quotemeta
  
  und das nächste mal bitte deinen code in code-tags setzen. danke
  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
  - +4 replies
  - bianca
    
    2010-05-10 13:33
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Warum reicht es in diesem Fall eigentlich, nur die linke Seite zu escapen? Rechts ist ja auch ein Backslash drin.
    10 print "Hallo"
    20 goto 10
    - Gast wer
      
      2010-05-10 13:36
      
      Die linke Seite wir das ohne "\Q" als Regex interpretiert, die Recht ist einfach ein String.
    - +2 replies
    - pq
      
      2010-05-10 13:38
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      probier mal aus, was passiert, wenn du dort auch ein \Q davorschreibst.
      die rechte seite einer substitution ist ein ganz normaler string.
      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
      - bora99
        
        2010-05-10 14:27
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        Quote
        Besser geeignet für Akrobatik mit Datei- und Pfadnamen ist ein Modul wie z.B. File::Spec"
        
        Danke für den Hinweis, bei Einsatz für WINDOWS und LINUX habe ich das eingesetzt, für einen bestimmen Fall brauch ich die oben gewünschte Zeichen-Ersetzung
        
        Code: (dl )
        
        $akt_save_directory =~ s#\Q$akt_root_dir#$save_root_dir#g;
        
        Mit \Q funktioniert es perfekt, Danke

View all threads created 2010-05-10 13:09.