Dateien umbenennen (Allgemeines zu Perl)

[thread]14618[/thread]

Dateien umbenennen

Leser: 23

Articles: hide open all | hide show old branches

+11 replies
lukastonner

2010-02-09 12:15
User since
2010-02-07
47 Artikel
BenutzerIn
Ich habe Namen (Dateien), die stündlich aktualisiert in ein Verzeichnis geschrieben werden. Den Dateien möchte ich eine Nummer zuordnen und unter dieser in ein neues Verzeichnis schreiben. Letztendlich sollten in der Ausgabe alle Variablen $name mit neuer Zuordnung stehen. Das Programm schreibt aber nur den letzten Wert (62087) in den Ordner. Kann mir jemand sagen was ich vergessen oder falsch gemacht habe?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

$outputname=$name; foreach ($name) { if ($name=München) {$outputname=66021;} if ($name=Gurke) {$outputname=66024;} if ($name=XXX) {$outputname=66023;} if ($name=XXX) {$outpuname=62086;} if ($name=XXX) {$outputname=62087;} } $OUTPUT2=$_dir2."/NO".".$outputname."_".$now_date.".txt";
//Modedit GwenDragon: Code-Tags hinzu
Last edited: 2010-02-09 12:18:24 +0100 (CET)
- GwenDragon
  
  2010-02-09 12:23
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Bitte das nächste mal Perl-Code in Code-Tags stellen.
  Lies bitte mal: Anleitung (BBCode des Forums)
  
  1) Bitte verwende deine Programme mit
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  am Anfang.
  Dann wirst du von Perl gewarnt, wenn bestimmte Programmkonstrukte nicht in Ordnung sind.
  
  2) Du wendest den Vergleich falsch an.
  
  Mit $name=München weist du der Variable $name den Rückgabewert der Funktion München zu.
  
  Was du willst, ist der Vergleich von Zeichenketten. Das geschieht dann so:
  
  Code (perl): (dl )
  
  if ($name eq 'München') {$outputname=66021;}
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- murphy
  
  2010-02-09 12:23
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Deine Zuweisungen sind wohl immer wahr. Außerdem gehören Strings in Anführungszeichen. Du willst also wohl eigentlich so etwas schreiben:
  
  Code (perl): (dl )
  
  1 2 3
  
  [...] if ($name eq 'München') { $outputname = 66021; } [...]
  
  When C++ is your hammer, every problem looks like your thumb.
  - lukastonner
    
    2010-02-09 14:04
    
    User since
    2010-02-07
    47 Artikel
    BenutzerIn
    
    Es funktioniert. Vielen Dank für die schnelle Hilfe.
  - +2 replies
  - lukastonner
    
    2010-02-09 14:14
    
    User since
    2010-02-07
    47 Artikel
    BenutzerIn
    
    was mich wundert ist, wenn ich den outputname printe taucht jede Ziffer doppelt auf..
    
    662086
    662086
    10007
    10007
    ...
    Last edited: 2010-02-09 14:33:33 +0100 (CET)
    - renee
      
      2010-02-09 14:29
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ja, meiner Meinung nach, macht das durchaus Sinn. Du hast ja keinen Alternativteil (else), sondern nur viele if's. Wenn Du die Zuweisung nicht machst, bleibt $outputname leer und der Ortsname würde durch "nichts" ersetzt werden...
      
      Was Du aber rauslassen kannst ist die for-Schleife. Ein for($name) macht genau einen Durchlauf...
      
      Und Du solltest vielleicht elsif für die vielen ifs nehmen:
      
      Code (perl): (dl )
      
      1 2
      
      if( $name eq 'München' ) { ... } elsif( $name eq 'xxx' ) { ... }
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- styx-cc
  
  2010-02-09 12:27
  User since
  2006-05-20
  533 Artikel
  BenutzerIn
  Hallo,
  
  ich wuerde das ueber einen Hash versuchen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl -w use strict; my $name = chomp(<STDIN>); my %city_codes = qw(München => 66021, Gurke => 66024, XXX => 66087 ); if (exists $city_codes{$name}) { print "Zugewiesene Nummer fuer $name: $city_codes{$name}\n"; } else { print "Wert in \$name '$name' unbekannt.\n"; }
  
  Mfg
  
  ps.: ungetestet
  Pörl.
- +4 replies
- GwenDragon
  
  2010-02-09 12:32
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Übrigens musst du aufpassen, welche Zeichenkodierung dein Betriebssystem verwendet, auf dem du das Skript laufen lässt.
  Und mit welchem Zeichensatz dein Editor das abspeichert.
  
  Linux hat meist UTF-8, Windows in der Konsole CP850, während Windows selbst Windows-1252.
  Auf dem Mac oder MacOSX kann das nochmals anders sein.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - sid burn
    
    2010-02-09 12:53
    
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Quote
    Linux hat meist UTF-8, Windows in der Konsole CP850, während Windows selbst Windows-1252.
    
    Nutzt Windows ab Vista nicht auch UTF-8?
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - +2 replies
    - renee
      
      2010-02-09 13:15
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Auf meinem deutschen Windows 7 wird in der cmd noch cp437 verwendet...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - GwenDragon
        
        2010-02-09 13:35
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Hmm, bei mir meldet chcp die Codepage 850.
        
        U:\>chcp /? Wechselt die aktuelle Codepage oder zeigt deren Nummer an. CHCP [nnn] nnn Die Nummer einer Codepage. Der Befehl CHCP ohne Parameter zeigt die Nummer der aktuellen Codepage an. U:\>cmd Microsoft Windows [Version 6.1.7600] Copyright (c) 2009 Microsoft Corporation. Alle Rechte vorbehalten. U:\>chcp Aktive Codepage: 850.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-02-09 12:15.