Re: [PERL] Regexp hjælp

[René Seindal <sslug@sslug>]

On Thu, Nov 07, 2002 at 11:00:01PM +0100, Peter Toft wrote:
> Jeg er en klovn til regexp...
> 
> Jeg har nogle linier fra CVS hvor jeg skal have hugget 
> versionsnummeret ud en "cvs status" 
>  my $cvsCheckCwd = join ("", runSilent ("cvs status $filename));
> 
> Herefter kan $cvsCheckCwd indeholde
> 
> File: README            Status: Needs Patch
> 
>    Working revision:    1.1     Sat Aug 31 22:03:36 2002
>    Repository revision: 1.2     /usr/local/CVSROOT/linuxbog/friheden/eksempler/README,v
>    Sticky Tag:          (none)
>    Sticky Date:         (none)
>    Sticky Options:      (none)
> 
> 
> Hvordan får jeg de to versioner 1.1 og 1.2 ud i $myver
> og $cvsver???

my ($myver, $cvsver) = ($cvsCheckCwd =~ m/Working revision:\s+(\d[\d.]*)\s+.*Repository revision:\s+(\d[\d.]*)/gs);

-- 
René Seindal (sslug@sslug)              http://www.seindal.dk/rene/