Verzeichnis-Baum durchsuchen - #348 (Perl/CGI)

Spuki

2007-07-13 11:37

User since
2007-07-13
38 Artikel
BenutzerIn

[quote=pq,12.07.2007, 17:09]besser CPAN:

File::Find verwenden. und warum liest du zweimal
das verzeichnis aus und machst zwischendurch rewinddir, wenn du
es doch nur einmal auslesen müsstest? kostet halt mehr zeit.

im übrigen finde ich es recht ungewöhnlich, gleich am anfang der sub
alle variablen zu deklarieren, obwohl du sie erst später brauchst.

und wofür ist das hier gedacht?

Code: (dl )

 if ($#files > 0){
   
     
       foreach $file(@files){ 
     print "$file\n";
     }
 }

wenn @files mehr als einen eintrag enthält, iteriere darüber.
also bei einem element interessiert dich das nicht, oder wie?[/quote]
wollte mit meinem bsp eigentlich nur kleinen eindruck geben..... ehrlich gesagt habe ich diesen code nur aus einem anderen forum kopiert (etwas überholungsbedürftig wies scheint) ..... außerdem programmiere ich erst seit einer woche in perl (mach grad einen ferialjob :D )

möchte mich aber trotzdem bei euch bedanken.... kannte diese bibliothek (bis jetzt) noch nicht.... ich glaube jetzt bekomm ichs hin

mfg spuki

<closed> :D

$^="2rehtona 3lrep 1tsuj 4rekcah";@~=sort split/ /,$^;_(
_(_(_())));sub _{print$^=reverse substr$~[0],1;shift@~;}

...erster Versuch eines JAPH :D