Re: [PERL] Søg i tekst og find linjenummer

[Peter Andreasen <sslug@sslug>]

> Jeg bruger Regular Expressions til at gennemsøge en tekst for forekomster af
> bestemte ord.
>
> Jeg vil gerne ha' udskrevet på hvilke linje-numre ordene blev fundet.
> Hvordan gør man det?

Jeg går ud fra at det er et krav at du har teksten som een stor klump i
en scalar variabel, fx. $txt? (Hvis det er direkte fra fil er det let:
print "Found at $." if /ord/;)

Du kan fx. skrive:

  my $l = 1;
  foreach (split /\n/, $txt) {
       print "Fandt $1 på linie $l" if /(ord)/;
       $l++;
  }

 - peter

-- 
ln -s /dev/random ~/.plan