zusätzliche Rückgabe der Trefferposition bei Matching

[Horst]

Hi Tom,

und jetzt alles zusammen:

open (FILEHANDLE, "test.txt");
@datei = <FILEHANDLE>;
close FILEHANDLE;
foreach $el(@datei){
  $z++;
  while($el =~ /hugo/g){
    print "Zeile:$z Stelle";
    print pos $el;
    print "\n";
  }
}

Gruss vom Horst