[ Nemanja Jakovljevic @ 19.02.2004. 20:48 ] @
sledeci kod: Code: sub AUTOFILL { @distros=`find /storage/LinuxPortal/ -type f -iname *.iso`; chop @distros; foreach( @distros) { push @niz,[split '/']; } $br=-1; while(++$br < @niz) { $putanja=join ('/',${niz[$br]}[0..(@niz[$br]-3)]); ($ime, $iso) = (${niz[$br]}[(@niz[$br]-2)],${niz[$br]}[(@niz[$br]-1)]); ${niz[$br]}[($putanja,$ime,$niz)]; } $br = 0; while (++$br<@niz) { if (${niz[$br]}[0] eq ${niz[$br-1]}[0]) { ${niz[$br-1]}[2]=${niz[$br-1]}[2]."::@{niz[$br]}[2]"; splice (@niz,$br,1); } } $br=-1; open (BAZA,">DATABASE"); while (++$br<@niz) { print BAZA (join('::',$niz[$br])); } close(BAZA); } daje output: Code: nemanja@jaguar work $ cat DATABASE ARRAY(0x815ff1c)ARRAY(0x814e60c)ARRAY(0x814e6b4)ARRAY(0x815330c)ARRAY(0x81533cc)ARRAY(0x8153474)ARRAY(0x815351c)ARRAY(0x8168c00)ARRAY(0x8168ca8)ARRAY(0x8168d50)ARRAY(0x8168e10)ARRAY(0x8168eac)ARRAY(0x8168f54)ARRAY(0x8167120)ARRAY(0x81671c8)ARRAY(0x8167270)ARRAY(0x8167318)ARRAY(0x81673c0)ARRAY(0x8167468)ARRAY(0x8169454)ARRAY(0x81694fc)ARRAY(0x81695a4)ARRAY(0x816964c)ARRAY(0x816970c)ARRAY(0x816a4f4)ARRAY(0x816a5b4)ARRAY(0x816a674)ARRAY(0x816a734)ARRAY(0x816a7f4)ARRAY(0x816a89c)ARRAY(0x816b380)ARRAY(0x816b428)ARRAY(0x816b4d0)ARRAY(0x816b578)ARRAY(0x816b620)ARRAY(0x816b6c8)ARRAY(0x816c20c)ARRAY(0x816c2b4)ARRAY(0x816c35c)ARRAY(0x816c404)ARRAY(0x816c4ac)ARRAY(0x816c554)ARRAY(0x816cf28)ARRAY(0x816cfd0)ARRAY(0x816d078)ARRAY(0x816d120)ARRAY(0x816d1c8)ARRAY(0x816dfe4)ARRAY(0x816e098)ARRAY(0x816e158)ARRAY(0x816e218)ARRAY(0x816e2c0)ARRAY(0x816e368)nemanja@jaguar work $ mozete pretpostaviti da ovo nisam hteo. trebalo bi da bude nesto tipa fsdkjf::dsdsd::dsdsd::dsdsd::dsdsd::dsds |