glob() funzt nur jedes zweite Mal... (gelöst) (Allgemeines zu Perl)

[thread]15806[/thread]

glob() funzt nur jedes zweite Mal... [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+5 replies
ronnyt

2011-01-06 19:23
User since
2011-01-06
2 Artikel
BenutzerIn
Hallo Perl-Freunde,

Ich hab ein Problem mit glob() und es hier mal so verallgemeinert, dass es nachvollziehbar wird:
Code (perl): (dl )

1 2 3 4 5 6 7 8

#!/usr/bin/perl $s="log lock lock log log log www www www www "; @jobs=split(/ /, $s); foreach $job (@jobs){ print "#$job# --> "; $verz=glob("/var/$job*"); print "$verz\n"; }
ergibt bei mir:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

#log# --> /var/log #lock# --> #lock# --> /var/lock #log# --> #log# --> /var/log #log# --> #www# --> /var/www #www# --> #www# --> /var/www #www# -->
Im Original sind es natürlich nicht immer dieselben Namen, so dass immer nur jedes zweite korrekt funktioniert.

Ich habs probiert auf verschiedenen Debians mit Perl 5, dito auf einem BSD mit Perl 4...

Vermutlich liegt das nur an dem Brett vor meinem Kopp.
Hat jemand einen Tip, welche entscheidendes Detail das Brett verdeckt? ;-)

Schönen Gruß,

Ronny
- +4 replies
- pq
  
  2011-01-06 19:27
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  glob liefert ja in der regel eine liste von dateien/verzeichnissen zurück.
  du rufst es hier aber im skalaren kontext auf. in dieser form liefert glob nur das erste element des ergebnisses und beim nächsten aufruf mit demselben parameter das zweite element usw.
  wenn du nur das erste element haben möchtest, dann ruf es so auf:
  my ($verz) = glob(...);
  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
  - ronnyt
    
    2011-01-06 19:33
    
    User since
    2011-01-06
    2 Artikel
    BenutzerIn
    
    kuuul, genau das wars...
    ich muss wohl noch viel lernen;-)
    
    DANKE
    
    cu, Ronny
  - +2 replies
  - BernhardSchmalhofer
    
    2011-01-06 21:56
    
    User since
    2009-03-26
    56 Artikel
    BenutzerIn
    
    Eine kleine Korrektur ist, dass glob() bei nachfolgenden Aufrufen im skalarem Kontext das Argument ignoriert. Es gibt also keine separaten glob-Ergebnisslisten für die verschiedenen Argumente. Erst nachdem die aktuelle Liste vollständig abgearbeitet ist, wird das Argument wieder betrachtet. Im Beispielsfall wird also abwechselnd das Argument betrachtet und ignoriert.
    
    Ein 'use strict;' hätte vielleicht einen nützlichen Hinweis geben können.
    Im strict Modus werden nämlich bei der Ausgabe die undefinierten Variablen angemeckert.
    - pq
      
      2011-01-06 22:45
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2011-01-06T20:56:46 BernhardSchmalhofer
      Eine kleine Korrektur ist, dass glob() bei nachfolgenden Aufrufen im skalarem Kontext das Argument ignoriert.
      
      oh, man lernt ja nie aus =)
      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

View all threads created 2011-01-06 19:23.