Glob nicht mit Dateien ? (Seite 2) (Allgemeines zu Perl)

[thread]5721[/thread]

Glob nicht mit Dateien ? (Seite 2)

Leser: 1

[E|B]

2003-09-15 22:52

User since
2003-08-08
2561 Artikel
HausmeisterIn

@BrownWolf

Wolltest du denn nicht alle .txt Dateien?!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Free Faq

2003-09-16 00:29

User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]

[quote=pq,15.09.2003, 20:06][quote=BrownWolf,15.09.2003, 16:52]Mit opendir funktioniert es. Aber das ist mir zuviel Code !!![/quote]
zuviel code? machst du bei einem perlgolf-wettbewerb mit oder was?[/quote]
Er leidet wohl an der gleichen Krankheit wie ich! ;)
Je kürzer der Code um so besser :laugh:
Natürlich darf die Geschwindigkeit darunter nicht leiden
Ach ja noch ne Frage:

Code: (dl )

1
2
3

@dateien = <*.cgi>;

@dateien = glob "*.cgi";

Hab mal irgendwo gelesen, das man lieber das 2. Beispiel bevorzugen soll! Wieso den?\n\n

Haut mich nicht, ich bin ein Noob!

Dubu

2003-09-16 00:39

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=Free Faq,15.09.2003, 22:29]

Code: (dl )

1
2
3

@dateien = <*.cgi>;

@dateien = glob "*.cgi";

Hab mal irgendwo gelesen, das man lieber das 2. Beispiel bevorzugen soll! Wieso den?[/quote]
Wenn das Argument einfach eine Zeichenkette ist, macht es keinen Unterschied.
Wenn du aber eine Variable benutzt, kann es dir bei den spitzen Klammern passieren, das Perl unter bestimmten Bedingungen meint, das waere ein Filehandle, von dem es einlesen soll (wie bei "while (<$fh>)..."). Die glob-Funktion ist dagegen eindeutig.\n\n

BrownWolf

2003-09-16 02:09

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Hey ihr,
hat sich schon erledigt.
Ich hatte mir durch diese Technik eine Menge Bugs eingefangen.
Und nun habe ich alle Einträge in 1 einzige Datei geschrieben.

Gruß BrownWolf

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

View all threads created 2003-09-15 18:52.