Glob nicht mit Dateien ? - #52082 (Allgemeines zu Perl)

coax

2003-09-15 19:18

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Ein bisschen Debugging und das Rätsel wäre gelöst.

Code (perl): (dl )

print "$_\n for <$config{cards}/comments/*.txt>

Du würdest sehen das der glob-Operator nicht nur die Dateinamen der gefundenen Dateien sondern auch deren Pfad zurücklieferen.

Statt den Dateinamen bekommst du in etwa so etwas zurück

/pfad/comments/coax.txt

jetzt prüfst du auf den Benutzernamen am Stringanfang:

Code: (dl )

 $_ =~ /^$benutzer/

das kann nicht matchen da /pfad am Stringanfang steht.

Quote
Mit opendir funktioniert es. Aber das ist mir zuviel Code !!!

warum dann nicht gleich so... ?

Code: (dl )

my @comments = <$config{cards}/comment/$buntzer*.txt>;

ist imho viel kürzer ;-)

hier mal ein kurzes Beispiel mit Ausgabe um das Problem noch ein wenig veranschaulichen:

Code (perl): (dl )

print "mit opendir:\n";
print "-" x 80,"\n";

opendir(DH, './') or die $!;
print "$_\n" for grep { /\.pl$/} readdir(DH);
closedir(DH);

print "\nglob mit Pfad:\n";
print "-" x 80,"\n";

print "$_\n" for <./*.pl>;

print "\nglob ohne Pfad:\n";
print "-" x 80,"\n";

print "$_\n" for <*.pl>;

Quote
Ausgabe:

mit opendir:
--------------------------------------------------------------------------------
gui.pl
ircconn.pl

glob mit Pfad:
--------------------------------------------------------------------------------
./gui.pl
./ircconn.pl

glob ohne Pfad:
--------------------------------------------------------------------------------
gui.pl
ircconn.pl

,,Das perlt aber heute wieder...'' -- Dittsche