Hi MoD,

so:

$position = pos($zeile,$spalte,$zeilenlaenge);

sub pos{
use integer;
my $y = shift;
my $x = shift;
my $l = shift;
return $y * $l + $x;
}

Das geht bis maximal 2**31-1 (2 hoch 31 minus 1) Byte große Dateien.

Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)