Re: [PERL] Streng kodning.

["Nezar Nielsen" <sslug@sslug>]

----- Original Message ----- 
From: "Allan Christiansen" <sslug@sslug>
To: <sslug@sslug>
Sent: Thursday, July 13, 2000 2:22 PM
Subject: [PERL] Streng kodning.
>
>Input er :
>$getcpu = 'Average:          all      0.20      0.00      4.20     95.60'
>
>Koden er
>
>$getcpu =~
>/^Average:\s+(\d+).(\d+)%\s+(\d+).(\d+)%\s+(\d+).(\d+)%\s+(\d+).(\
>$getcpuusr = $1;
>$getcpusys = $5;

For det første mangler du at få 'all\s+' med, for det andet skal du huske at escape punktummer med \  - dvs \. i et regex.

Hvis de altid står på den form der ville jeg nok hoppe over hvor gærdet var lavest, og gøre noget i stil med

#del op efter space, og tag den tredie og femte.
my($getcpuusr,$getcpusys)=(split/\s+/,$getcpu)[2,4]; 
#og gang dem med 100 for at få tal i 1000-index.
$getcpuusr=$getcpuusr*100;
$getcpusys=$getcpusys*100;

-- 
Mvh. Nezar Nielsen
http://fez.dk/