Re: [PERL] Regexp hjælp

[Bjørn Bille Højte <sslug@sslug>]

On Thu, 7 Nov 2002, Peter Toft wrote:

> 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???

En absolut uskøn løsning, men den ser ud til at fungere...


foreach $_ (split(/\n/, $cvsCheckCwd)) {
  if (/Working revision:([[:space:]]*)([[:digit:],[:punct:]]*)/) {
    $myver=$2
  }
  if (/Repository revision:([[:space:]]*)([[:digit:],[:punct:]]*)/) {
    $cvsver=$2
  }
}
printf "myver  = $myver\n";
printf "cvsver = $cvsver\n";



Med venlig hilsen
Bjørn Bille Højte
sslug@sslug