glob Verhalten unklar (Allgemeines zu Perl)

[thread]17028[/thread]

glob Verhalten unklar

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
crojay

2011-12-29 11:54
User since
2011-03-08
81 Artikel
BenutzerIn
Hi,

ich habe nun des öfteren die glob Methode verwendet um bestimmte Dateien eines Verzeichnisses in einer Liste zu erhalten. Jetzt bin ich aber auf etwas gestossen, dass ich mir nicht erklären kann. Auch nach lesen der Doku...

Also ich habe im Verzeichnis f:\tmp mehrere Dateien, keine beginnt mit foo
aber dennoch liefert die glob methode ein Ergebnis, ich hätte eine leere Liste erwartet. Hier mein Beispiel-Code:
Code (perl): (dl )

1 2 3

my $testFolder = "f:\\tmp"; my @testList = glob("$testFolder\\foo"); print @testList;
Output:
f:\tmp\foo

Es gibt weder eine foo Datei noch ein foo Ordner. Wieso liefert dann glob dies zurück?

Danke
- GwenDragon
  
  2011-12-29 12:19
  User since
  2005-01-17
  14875 Artikel
  Admin1
  Ich weiß es nicht.
  
  Aber glob enthält normalerweise Wildcards als Parameter.
  Wenn du
  
  Code (perl): (dl )
  
  glob("$testFolder\\foo*")
  
  schreibst, kommt eine leere Liste raus.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- torsten
  
  2011-12-29 14:40
  User since
  2010-08-16
  45 Artikel
  BenutzerIn
  weil glob nach Definition so arbeitet. Sonst würde sowas hier unter Linux nicht funktionieren:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  $ echo t* t tmp $ echo klaus klaus $ echo *klaus* *klaus*
  
  Es gibt die Dateien t und tmp, aber keine die klaus irgendwie enthielte. Trotzdem gibt echo sowohl klaus als auch *klaus* aus.
  
  In einem leeren Verzeichnis kannst Du auch sowas machen:
  
  Code: (dl )
  
  1 2 3 4
  
  $ echo * * $ echo *.xxx *.xxx
  
  Wenn glob keine Datei findet, die auf das Muster passt, wird das Muster selbst ausgegeben.
- GwenDragon
  
  2011-12-29 15:48
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  Versuch der Erklärung:
  
  Quote
  glob
  
  In list context, returns a (possibly empty) list of filename expansions on the value of EXPR such as the standard Unix shell /bin/csh would do.
  perldoc glob
  
  Zu beachten ist der Texteil filename expansions (...)as the standard Unix shell.
  Beispiel: Auch /path/test ist ein filename und expandiert eben "nur" zu /path/test
  
  Das ist etwas irritierend für Anfänger.
  glob liefert also nicht die Liste der gefundenen Dateien sondern nur die Liste der von der Shell expandierten Dateinamen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- GwenDragon
  
  2011-12-29 16:53
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  2011-12-29T10:54:17 crojay
  ich habe im Verzeichnis f:\tmp mehrere Dateien, keine beginnt mit foo
  aber dennoch liefert die glob methode ein Ergebnis
  Deswegen ist es später sinnvoll, dann auch den "gefundenen" Dateinamen auf Existenz als echte Datei mit dem Dateitestoperator -f zu prüfen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - crojay
    
    2011-12-30 16:46
    User since
    2011-03-08
    81 Artikel
    BenutzerIn
    
    Hallo,
    
    also nachdem mich das glob so genervt hat, bin ich jetzt umgestiegen und lese die files eines ordners mir readdir ein und prüfe dann mit einer regex ob ich die Datei behandle oder nicht.
    
    Das funktionierte direkt wie ich es gewollt hatte, wahrscheinlich ist es 1000 mal langsamer aber das ist mir jetzt egal
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
    
    sub removeFilesWithPattern{ my($folder,$filePattern) = @_; my $deletedFilesCounter = 0; &log_this($customer,$ordername,"Deleting files which matches pattern $filePattern in folder: $folder"); if (-d $folder){ opendir FOLDER, $folder or die "cannot open dir $folder $!\n"; my @fileList = readdir FOLDER; closedir FOLDER; foreach my $entry (@fileList){ if (!-d "$folder\\$entry"){ if ($entry =~ m/$filePattern/){ &log_this($customer,$ordername,"delete file $entry"); unlink "$folder\\$entry"; $deletedFilesCounter++; } } } } return $deletedFilesCounter }

View all threads created 2011-12-29 11:54.