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

steve

2004-07-12 15:35

User since
2004-03-04
52 Artikel
BenutzerIn
[default_avatar]

[quote=sri,12.07.2004, 13:25][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\%.}'

[/quote]
ja ok ..

interessante Lösung ???

Antworten mit Zitat