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

[Peter Lindstrøm <sslug@sslug>]

Hvad med noget i denne stil

$line=1;
while (@doc) {
  print "$ord1 fundet i linie $line\n" if (@doc[0] =~ /($ord1)/g);
  shift @doc;
  $line++;
}

Jeg har ikke testet det men tror det virker :)
Jeg går ud fra at @doc er en liste da jeg ellers ikke forstår hvad du
mener.

Peter Lindstrøm
sslug@sslug

Thomas Rokamp wrote:
> 
> Hejsa!
> 
> Jeg bruger Regular Expressions til at gennemsøge en tekst for forekomster af
> bestemte ord.
> fx.
> while($doc =~ /($ord1)/g){
>   $fundet++;
> }
> printf("Antal fundet : %d", $fundet);
> 
> Jeg vil gerne ha' udskrevet på hvilke linje-numre ordene blev fundet.
> Hvordan gør man det?
> 
> Mvh.
> Thomas Rokamp