Re: [PROGRAMMERING] [Perl] regexp til variabel

[Hans Schou <sslug@sslug>]

On Sun, 15 Oct 2006, Magnus Pedersen wrote:

> Hvordan laver jeg et udtryk der klipper den tekst der er mellem to 
> regulære udtryk ind i en variabel?

Med paranteser.

> <h3 class="fortit"><a class="lnk" 
> href="/vis.php?base=dfa&amp;field1=lfc&amp;term1=Shute%20Nevil">Shute, 
> Nevil</a><br>A town like Alice</h3>
>
> I følgende linie skal jeg bruge "Shute, Nevil" i en variabel og "A town like 
> Alice" i en anden variabel.

#!/usr/bin/perl
while (<>) {
        if (/href.*>([^<]+)<.*br>([^<]+)</) {
                print "str1: $1\n";
                print "str2: $2\n";
        }
}

> Og et lille sidespørgsmål, er der en funktion der kan fjerne de 
> første x antal linier ud af en fil?

Kan du ikke identficere det på en tekst?

grep -A 1000 'tekst' fil

Så får du 1000 linjer efter den givne tekst.

/hans
--
Horsebakken 78, DK-2400 København NV, Phone: +45 2264 8020
-------------------------------------------------------------
Linux-mand søger job
http://www.sslug.dk/emailarkiv/job/2006_10/msg00001.html