Re: [PERL] Regexp hjælp

[Carsten Svaneborg <sslug@sslug>]

Peter Toft wrote:
>    Working revision:    1.1     Sat Aug 31 22:03:36 2002
>    Repository revision: 1.2    
> Hvordan får jeg de to versioner 1.1 og 1.2 ud i $myver
> og $cvsver???

Hvad med blot

if ($fil ~= /Working\s+revision:\s*([\.0-9]+)/i)
  { $myver=$1; }

if ($fil ~= /Repository\s+revision:\s*([\.0-9]+)/i)
  { $cvsver=$1; }

(totalt utestet).

\s er whitespace.

-- 
          Mvh. Carsten Svaneborg
       http://www.softwarepatenter.dk
 hvor fremtidens idemonopoler bekæmpes idag.