Hi Quitschi,
wenn ich Dein Problem richtig verstanden habe, könnte sowas helfen:
-------------------------------------------------------------------------------
$filenum = '';
for each $num (split '', $x) # einen String 1111122240000 in einzelne Zeichen zerlegen
{
if ($filenum ne $num)
{
close DATEI if $filenum;
open (DATEI, ">>file$num.txt");
$filenum = $num;
}
print DATEI "$num\n";
}
close DATEI;
-------------------------------------------------------------------------------
Vielleicht verlierst Du ja noch mal ein Wort darüber, wo Dein Denkfehler lag (falls das hier funktionieren sollte).
Gruß,
Jörk