ampersand im Dateipfad... (gelöst) (Allgemeines zu Perl)

[thread]15540[/thread]

ampersand im Dateipfad... [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+4 replies
tron

2010-10-15 13:26
User since
2010-10-15
2 Artikel
BenutzerIn
Hallo,
bin genoetigt mit Perl f. Windows ( 5.10.0 build 1004) eine Datei zu kopieren die ein '&' im Pfadnamen enthaelt und komme nicht weiter...
Originalpfad :
I:\transfer\123&abc\__Proj_EMCY-FRs@TPS\xhost.txt
Code (perl): (dl )

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

my $BASEPATH="D:\\temp\\x"; my $EMCY_NUMBER; $EMCY_NUMBER=$ARGV[0]; my $FILE2="I:\\transfer\\123&abc\\__Proj_EMCY-FRs\@TPS\\xhost.txt"; print "File2 : $FILE2\n"; if ( ! -e $FILE2 ) { print "$FILE2 does not exist.\n"; } else { system("copy $FILE2 $BASEPATH\\$EMCY_NUMBER"); }
File2 : I:\transfer\123&abc\__Proj_EMCY-FRs@TPS\xhost.txt
The system cannot find the file specified.
The system cannot find the path specified.

Habe verschiedene Versuche mit einfachen Pfaden gemacht, das @ Zeichen wird korrekt geqouted, es liegt am '&' das es nicht funktioniert...
Hat jemand ein Idee wie ich das file kopiert bekomme bzw. wie ich mit dem '&' im Pfadnamen korrekt umgehen muss ?
Last edited: 2010-10-15 14:02:54 +0200 (CEST)
- +2 replies
- pq
  
  2010-10-15 13:35
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  benutze stattdessen einfach File::Copy, dann musst du dich nicht um irgendwelchen shell-escaping-kram kümmern. ist auch im perl-core mit drin.
  
  alternativ rufst du system() mit mehreren argumenten auf. man übergibt nur ein argument als string, wenn man die shell explizit dabeihaben will, aber du willst ja einfach nur ein copy machen. siehe http://p3rl.org/system
  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
  - tron
    
    2010-10-15 14:47
    
    User since
    2010-10-15
    2 Artikel
    BenutzerIn
    
    Danke fuer die schnelle Antwort.
    Die Benutztung von File::Copy hat mir geholfen.
    Das was ich machen muss kann ich damit bewerkstelligen.
    Last edited: 2010-10-15 15:20:55 +0200 (CEST)
- bianca
  
  2010-10-15 13:42
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Hmm, ob es wirklich am Und liegt?
  
  Ich hab hiermit keine Probleme:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  #!/usr/bin/perl -w use strict; use warnings; use diagnostics; use File::Copy; copy("te&st/te&st.txt","te&st/te&st_neu.txt") or die "Copy failed: $!";
  
  10 print "Hallo"
  20 goto 10

View all threads created 2010-10-15 13:26.