falsche Reihenfolge bei readdir (Allgemeines zu Perl)

[thread]18675[/thread]

falsche Reihenfolge bei readdir

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+9 replies
Astralkeks

2013-10-15 16:57
User since
2012-07-17
40 Artikel
BenutzerIn
Hallo zusammen,

ich schaue in verschiedene Unterverzeichnisse (/usr/temp1, /usr/temp2, etc), ob im dortigen Ordner inbound_zip Dateien im Format *.zip liegen, die anschließend in /usr/tempXX/inbound entpackt werden sollen.
Funktioniert meist wie es soll, nur kam heute irgendetwas offensichtlich durcheinander. Wobei ich schon die ersten beiden Zeilen der Ausgabe nicht verstehe, da die zugehörigen Variablen in meinen Augen komplett identisch sind.
Jemand irgendeine Idee?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

foreach my $target (@targets) { $fullpath = $homedir.$target . '/inbound_zip'; opendir INZ, $fullpath or die $!; while ( my $in_zip = readdir INZ) { if (($in_zip ne ".") && ($in_zip ne "..")) { if ($in_zip =~ m/.*\.zip$/) { print "Erkannte Zip-Datei: $fullpath/$in_zip\n"; my $cmd = "cd $homedir$target/inbound; unzip $fullpath/$in_zip"; if (`$cmd` == 0) { print "Befehl [$cmd] erfolgreich ausgefuehrt. Entferne Zip-Datei\n"; $cmd = "rm $fullpath/$in_zip"; if (`$cmd` == 0) { print "Befehl [$cmd] erfolgreich ausgefuehrt.\n"; } } } } } }
Ausgabe
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_0.zip Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_8.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei Befehl [rm /usr/temp1/inbound_zip/testdaten_8.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_2.zip Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_0.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei Befehl [rm /usr/temp1/inbound_zip/testdaten_0.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_8.zip unzip: cannot find or open /usr/temp1/inbound_zip/testdaten_8.zip, /usr/temp1/inbound_zip/testdaten_8.zip.zip or /usr/temp1/inbound_zip/testdaten_8.zip.ZIP. Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_8.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei rm: cannot remove `/usr/temp1/inbound_zip/testdaten_8.zip': No such file or directory Befehl [rm /usr/temp1/inbound_zip/testdaten_8.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_2.zip replace 20131015162219.XML? [y]es, [n]o, [A]ll, [N]one, [r]ename: NULL (assuming [N]one) replace 20131015162217.XML? [y]es, [n]o, [A]ll, [N]one, [r]ename: NULL (assuming [N]one) Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_2.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_2.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei Befehl [rm /usr/temp1/inbound_zip/testdaten_2.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_3.zip rm: cannot remove `/usr/temp1/inbound_zip/testdaten_2.zip': No such file or directory Befehl [rm /usr/temp1/inbound_zip/testdaten_2.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_3.zip replace 20131015162559.XML? [y]es, [n]o, [A]ll, [N]one, [r]ename: NULL (assuming [N]one) replace 20131015162558.XML? [y]es, [n]o, [A]ll, [N]one, [r]ename: NULL (assuming [N]one) Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_3.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_3.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei rm: cannot remove `/usr/temp1/inbound_zip/testdaten_3.zip': No such file or directory Befehl [rm /usr/temp1/inbound_zip/testdaten_3.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_1.zip Befehl [rm /usr/temp1/inbound_zip/testdaten_3.zip] erfolgreich ausgefuehrt. Erkannte Zip-Datei: /usr/temp1/inbound_zip/testdaten_1.zip replace 20131015162754.XML? [y]es, [n]o, [A]ll, [N]one, [r]ename: NULL (assuming [N]one) replace 20131015162801.XML? [y]es, [n]o, [A]ll, [N]one, [r]ename: NULL (assuming [N]one) Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_1.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei Befehl [cd /usr/temp1/inbound; unzip /usr/temp1/inbound_zip/testdaten_1.zip] erfolgreich ausgefuehrt. Entferne Zip-Datei rm: cannot remove `/usr/temp1/inbound_zip/testdaten_1.zip': No such file or directory Befehl [rm /usr/temp1/inbound_zip/testdaten_1.zip] erfolgreich ausgefuehrt. Befehl [rm /usr/temp1/inbound_zip/testdaten_1.zip] erfolgreich ausgefuehrt.
- Linuxer
  
  2013-10-15 17:09
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Nur als Anmerkung, weil's mir gerade förmlich ins Auge stach:
  
  Hast Du Dir eigentlich mal angesehen, was bei der Ausführung eines Kommandos via Backticks zurückgeliefert wird? Und diese Rückgabe vergleichst Du numerisch mit einer Zahl... Liefert unzip wirklich nur eine reine (Integer) Zahl als Ausgabe?
  
  Siehe: http://perldoc.perl.org/perlop.html#%60STRING%60
  
  Wenn Du ernsthaft den Returncode des Kommandos vergleichen willst, musst Du entweder $? vergleichen oder system() verwenden.
  
  Siehe: http://perldoc.perl.org/perlvar.html#$? und http://perldoc.perl.org/functions/system.html
  
  Code: (dl )
  
  1 2 3 4
  
  my @output = qx( command ); # oder die leidigen backticks anstatt qx() if ( $? eq 0 ) { # cmd ok }
  
  ODER:
  
  Code: (dl )
  
  1 2 3
  
  if ( system( "command" ) == 0 ) { # cmd ok }
  
  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-15 17:29
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  die ersten beiden zeilen kommen mir auch sehr merkwürdig vor.
  abgesehen davon, und zusätzlich zu linuxers kommentaren, würde ich persönlich erst alle zip-dateien in ein array schreiben, bevor ich sie auspacke und entferne. ich weiss nicht, ob es systeme gibt, die durcheinanderkommen, wenn man während des iterierens über ein dir handle dateien löscht.
  trotzdem ist der fehler gleich bei der ersten datei komisch.
  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
- Linuxer
  
  2013-10-15 18:12
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Weitere Anmerkungen:
  
  unzip kann (jedenfalls in der Version 5.52 wie ich sie hier gerade parat habe) mit der Option -d dir ein Verzeichnis angegeben bekommen, wohin entpackt werden soll; damit ließe sich das cd ... auf Shell-Ebene einsparen.
  
  Alternativ könntest Du auch einfach für jedes Target mit Perls chdir das Ziel-Verzeichnis wechseln. Damit fiele das Shell-cd für jede Zip-Datei ebenfalls weg (edit: und natürlich auch die unzip-Option -d wäre nicht notwendig :/edit).
  
  Da Du ja nur einzelne Dateien löschst, könntest Du auch Perls unlink zum Löschen der Datei verwenden.
  Last edited: 2013-10-15 19:07:34 +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!
  - +3 replies
  - Raubtier
    
    2013-10-15 20:40
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Und auch noch eine Anmerkung zur Sicherheit.
    Sowas hier:
    
    Code (perl): (dl )
    
    $cmd = "rm $fullpath/$in_zip";
    
    ist potentiell gefährlich. Was passiert, wenn $fullpath Leerzeichen enthält oder anderweitig "unerwartete" Symbole? Perl kennt unlink.
    
    (sorry, wollte eigentlich nicht auf Linuxer antworten, sondern Astralkeks)
    - +2 replies
    - Astralkeks
      
      2013-10-16 08:45
      
      User since
      2012-07-17
      40 Artikel
      BenutzerIn
      
      Vielen Dank für die ganzen Anregungen. Ich werde das Script umstellen, testen und dann berichten.
      zum Thema Backticks/qx...ich ging eigentlich immer davon aus, dass beide Lösungen das gleiche nur in anderen Schreibweisen tun. Allerdings scheint die Returncodeauswertung tatsächlich nicht zu tun in meinem Script. Zumindest weisen einige Logmeldungen am Ende darauf hin. Ich werde das ändern.
      - Linuxer
        
        2013-10-16 10:56
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Backticks und qx() tun auch prinzipiell das gleiche (siehe Doku); aber ein Return-Code des ausgeführten Befehls steckt in ihrer Rückgabe nicht drin.
        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!
- +2 replies
- Gast wer
  
  2013-10-15 23:29
  
  nicht zu vergessen: die reihenfolge in dem gelesen wird steht nicht fest.
  hängt von dateisystem ab.
  - Astralkeks
    
    2013-10-16 08:41
    
    User since
    2012-07-17
    40 Artikel
    BenutzerIn
    
    Die Reihenfolge ist auch egal in dem Zusammenhang, es muss nur sichergestellt werden, dass in einem Durchlauf dieselbe Datei entpackt und gelöscht wird.

View all threads created 2013-10-15 16:57.