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

["Thomas Rokamp" <sslug@sslug>]

$doc er et document (eller en streng, der indeholder et dokument læst fra
harddisken)

Jeg vil lige se om det du skrev virker...

Mvh.
Thomas Rokamp

"Peter Lindstrøm" <sslug@sslug> skrev i en meddelelse
news: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
>