Brauche nochmal eure Hilfe: Nummerierung bei einer Schleife

[Thomas Henkel]

Hi!

Ich hatte gestern schonmal hier gepostet und mir wurde erfolgreich und wirklich schnell geholfen! danke leute! ;-)
ok, mein beitrag war dieser hier:

http://www.teamone.de/selfaktuell/forum/messages/110325.html

ich wollte alle urls aus einer datei rausfiltern und in einer neuen speichern lassen. Ich habe das Skript von n.d. parker genommen und es funktioniert so wie ich es wollte! danke nochmal n.d. parker

das skript sieht jetzt so aus:

------
#!/usr/bin/perl -w

$rein="namedertextdatei";
$raus="namederurldatei";

open REIN,"<$rein" or &error (tralala);
open RAUS,">$raus" or &error (soundso);
while (<REIN>) {
  if (/^URL:\s*(.+)$/)
     print RAUS "$1\n";}
}
close RAUS;
close REIN;

------

so die neue datei mit den urls sieht dann so aus:

http://www.teamone.de
http://www.thomas.de
http://www.henkel.de
http://www.undsoweiter.de

jetzt bräuchte ich nochmal eure hilfe. geht es das man diese einträge auch nummeriert?

also ich bräuchte die auflistung so:

Besucher 1: http://www.teamone.de
Besucher 2: http://www.thomas.de
Besucher 3: http://www.henkel.de
Besucher 4: http://www.undsoweiter.de

kann man das ohne viel aufwand hinkriegen?
wenn ja, könnte mir noch einmal einer behilflich sein?
ich weiss leider nicht wie ich sowas in die Schleife einbaue.

Best regards

Thomas Henkel

[Curt]

---

#!/usr/bin/perl -w

$rein="namedertextdatei";
$raus="namederurldatei";

open REIN,"<$rein" or &error (tralala);
open RAUS,">$raus" or &error (soundso);

$ii = 0;

while (<REIN>) {
  if (/^URL:\s*(.+)$/)

$ii++;

print RAUS "Besucher $ii $1\n";}
}
close RAUS;
close REIN;

---

vielleicht so ??

gruss

Curt

[Thomas Henkel]

vielen dank Curt, es hat geklappt! :-)

Best regards

Thomas Henkel