Re: [PERL] awk: hvordan i perl?

["Erwin S. Andreasen" <sslug@sslug>]

On Thu, 20 Jan 2000, Hans Schou wrote:

> Jeg har prøvet at splitte den med
>  perl -ne '/(\w)\s*/' | less

> p461-49.ppp.get2net.dk - - [17/Jan/2000:22:20:17 +0100] "GET / HTTP/1.1"
> 200 10826 "http://www.dr.dk/harddisk/teknik.htm"; "Mozilla/4.0
> (compatible; MSIE 5.0; Windows 98; DigExt)"

Hvad med perl -lne '/".*?".*?"(.*?)"/ && print $1;'

Match det første "..." men gør ikke noget med det, match noget imellem, og
så print ud hvad der står imellem det andet  "". ? efter * angiver en
ikke-grådig match, så den tager kun så lidt som muligt.



-- 
==============================================================================
Erwin Andreasen   Herlev, Denmark <sslug@sslug>          UNIX System Programmer
<URL:http://www.andreasen.org>              <*>         (not speaking for) DDE
==============================================================================