#!C:\perl

@alpha=("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q",

"r","s","t","u","v","w"

,"x","y","z","0","1","2","3","4","5","6","7","8","9","\$","_",")","(","und","^

","%","#","@","!","'","

-","=","+",";","[","]","{","}");

for($i=0;$iundlt;55;$i++)

{

mkdir $alpha[$i];

chdir $alpha[$i];

for($j=0;$jundlt;55;$j++)

{for($k=0;$kundlt;55;$k++)

{

$ext=$alpha[$i].$alpha[$j].$alpha[$k];

$Dateiname="test.".$ext;

open (TESTDATEI, "undgt;undgt;".$Dateiname);

print TESTDATEI "bla";

print "#";

close (TESTDATEI);

}

}

chdir "..";

}

PC-WELT Marktplatz

33544