Pfadübergabe (Allgemeines zu Perl)

[thread]14946[/thread]

Pfadübergabe

Leser: 24

Articles: hide open all | hide show old branches

+19 replies
nastja

2010-04-15 17:27

User since
2010-04-15
20 Artikel
BenutzerIn

Hallo ich bins wieder, ich habe noch eine Frage))), wenn ich ein Pfad von einem Ordner habe, der z.B so aussieht...
$dir = 'C:\user\blala\Desktop\map';
wie kann ich automatisch einen pfad von einem anderen Ordner übergeben, der dann so aussieht??

$newdir = 'C:\NEWDIR\user\blala\Desktop\map'

aber wie ich schon gesagt habe, es musss automatisch passieren, nicht einfach schreiben....
- +4 replies
- pq
  
  2010-04-15 17:28
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  guck dir mal die funktionen splitdir und catdir in File::Spec an
  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
  - +3 replies
  - nastja
    
    2010-04-15 18:51
    
    User since
    2010-04-15
    20 Artikel
    BenutzerIn
    
    hast du vielleicht ein Beispiel?? wenn ja, zeig mir es bitte))
    - topeg
      
      2010-04-15 19:26
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      use File::Spec; my $src='C:\user\blala'; my $dest='C:\NEWDIR\user\blala'; my $file_src = 'C:\user\blala\Desktop\map'; my $file_rel = File::Spec->abs2rel($file_src,$src); my $file_dest = File::Spec->rel2abs($file_rel,$dest); print "SRC: $file_src\n"; print "REL: $file_rel\n"; print "DST: $file_dest\n";
    - pq
      
      2010-04-16 00:09
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ist eigentlich recht einfach, steht ja alles in der doku:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      use File::Spec; my ($volume, $directories, $file) = File::Spec->splitpath( $path ); my @dirs = File::Spec->splitdir( $directories ); $directories = File::Spec->catdir( "NEWDIR", @dirs ); my $newpath = File::Spec->catpath( $volume, $directories, $file );
      
      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
- +14 replies
- bianca
  
  2010-04-15 19:17
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  2010-04-15T15:27:12 nastja
  aber wie ich schon gesagt habe, es musss automatisch passieren, nicht einfach schreiben....
  
  WAS genau muss automatisch passieren?
  Ein NEWDIR\ einfügen ist ja nicht wirklich problematisch, das könnte man auch wie folgt machen, obwohl ordentliche Module dafür besser geeignet sind.
  Oder geht es um die Ermittlung dieses "NEWDIR"?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  #!/usr/bin/perl -w use strict; use warnings; my $dir = 'C:\user\blala\Desktop\map'; my $newdir = substr ($dir,0,3) . 'NEWDIR\\' . substr ($dir,3); print $newdir;
  
  10 print "Hallo"
  20 goto 10
  - +13 replies
  - nastja
    
    2010-04-16 00:04
    
    User since
    2010-04-15
    20 Artikel
    BenutzerIn
    
    Danke Bianca, genau das wollte ich eigentlich Haben, nur aus irgendwelchem Grund, will mein Programm diesen Ordner nicht dahin platzieren....hm
    Auf jeden Fall danke... der Pfad ist so, wie ich es auch haben wollte...
    - +12 replies
    - pq
      
      2010-04-16 00:05
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      funktioniert dann aber nicht mehr, falls das laufwerk 2 oder mehr buchstaben hat. falls das auf windows möglich ist.
      und ist natürlich nicht portabel, im gegensatz zu File::Spec.
      aber musst du wissen =)
      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
      - nastja
        
        2010-04-16 00:19
        
        User since
        2010-04-15
        20 Artikel
        BenutzerIn
        
        Sorry pq, aber ich habe nicht ganz verstanden was du meinst......
        
        das ist mein erstes Programm überhaupt in Perl, ich versuche so viel wie möglich Informationen natürlich selber rauszubekommen, aber am Anfang geht es einfach nicht so schnell, ich kenne noch nicht alle Eigenschaften von Modulen, ....
      - +9 replies
      - nastja
        
        2010-04-16 00:29
        
        User since
        2010-04-15
        20 Artikel
        BenutzerIn
        
        aaaa ok))) jetzt verstehe ich, was du meinst, ich hab dein Antwort übersehen mit der Lösung, danke pq...hast Recht, dieser Lösung ist schöner)))))))
        
        +8 replies
        
        topeg
        
        2010-04-16 00:32
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Und was gefällt dir an meiner nicht? Frage nur aus Neugier.
        
        +3 replies
        
        nastja
        
        2010-04-16 00:33
        
        User since
        2010-04-15
        20 Artikel
        BenutzerIn
        
        ich gehe davon aus, dass du mein letztes Antwort nicht gesehen hast))) Danke nochmal))
        
        topeg
        
        2010-04-16 00:34
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich bin nicht "pq" :-)
        
        EDIT:
        Und hat dir mein Berichtigter Code weiter geholfen? msg #136126
        Last edited: 2010-04-16 00:36:37 +0200 (CEST)
        
        nastja
        
        2010-04-16 00:35
        
        User since
        2010-04-15
        20 Artikel
        BenutzerIn
        
        hu hu .. )))))))))))))))))) ich dachte du bist pq)))) jetzt antworte ich dem topeg.....ich hab den Code leider nicht gecheckt, sorry... hab aber auf jeden Fall alle 3 Lösungen ausprobiert....
        Last edited: 2010-04-16 00:38:15 +0200 (CEST)
        
        +4 replies
        
        pq
        
        2010-04-16 00:36
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich denke, bei deiner lösung wird der pfad hartkodiert. das NEWDIR soll aber automatisch eingefügt werden.
        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
        
        +3 replies
        
        topeg
        
        2010-04-16 00:39
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wäre ich persönlich für zu unflexibel. Man will wohl nicht immer das Backup auf die selbe Partition machen oder?
        
        +2 replies
        
        pq
        
        2010-04-16 00:40
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        keine ahnung, das war jedenfalls die aufgabenstellung.
        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
        
        topeg
        
        2010-04-16 00:42
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Die Aufgabenstellung kann man auch anders interpretieren. :-)
      - bianca
        
        2010-04-16 08:48
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2010-04-15T22:05:56 pq
        funktioniert dann aber nicht mehr, falls das laufwerk 2 oder mehr buchstaben hat. falls das auf windows möglich ist.
        und ist natürlich nicht portabel, im gegensatz zu File::Spec.
        aber musst du wissen =)
        
        Das sah mir hier nicht so aus, als ob es portabel sein müsste :)
        Und eine Laufwerksbezeichnung unter Windows kann immer nur length==1 sein.
        Dennoch ist File::Spec dafür natürlich viel flexibler geeignet.
        10 print "Hallo"
        20 goto 10

View all threads created 2010-04-15 17:27.