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:
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