RDW #1 - Rätsel der Woche Nummer eins - #84007 (Allgemeines zu Perl)

sri

2004-07-12 15:25

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=steve,12.07.2004, 12:39]btw. hat jemand ne iterative Lösung ohne File::Find?[/quote]
Ja meine! :)

Code: (dl )

perl -MData::Dumper -e 'do{for(<$_*>){split m[/]and$.=\%.and push@.,"$_/";$.=$.->{$_[$_]}||=$_==$#_?"":{}for 0..$#_;}}while($_=shift@.);&_;sub _{print Dumper\%.}'

http://mojolicio.us/

Antworten mit Zitat