Foro - Perl en Español

por **javierg** » 2006-10-17 05:33 @273

Buenas, ejecuto la siguiente instrucción

Código: Seleccionar todo: df -k /var Filesystem kbytes used avail capacity Mounted on /dev/dsk/c0t0d0s0 7672769 4818006 2778036 64% /

guardo en una variable

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$texto=/dev/dsk/c0t0d0s0    76727694818006277803664%/Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Ahora mi idea es conseguir sólo el valor de CPU, que es el 64, pero me es imposible, eso sí, sin el %, sólo el valor.

He probado con expresiones regulares, pero el resutado me da vacío, y otras ni me funciona, comparando como una subcadena, no logro sacar el 64.
Un poco de ayuda, please

A ver... primero... ese 64% no se refiere a la CPU, sino al porcentaje de ocupación del disco en la partición /dev/dsk/c0t0d0s0: 4818006 / 7672769 ~ 0.64.

Ahora, si lo que quieres es sacar ese valor, puedes hacerlo en Perl de varias formas. Lo que sí veo en tu asignación es que te faltan las comillas simples:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$texto='/dev/dsk/c0t0d0s0    7672769 4818006 2778036    64%    /';Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Con expresiones regulares:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($ocupado)=$texto=~/(\d+)%/;# 64Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(es decir, nos quedamos con los dígitos que acompañan al símbolo '%').

Con split:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ocupado=(split" ",$texto)[4];# 64%
$ocupado=substr($ocupado,0,length($ocupado)-1);# 64Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Algo más extraño:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ocupado= 0+substr($texto,index($texto,"%")-3,3);# 64Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Con un módulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Filesys::Df;
my$ref= df("/dev/dsk/c0t0d0s0");
$ocupado=$ref->{per};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

No logro sacar el % de CPU

No logro sacar el % de CPU

Publicidad

¿Quién está conectado?