Foro - Perl en Español

Hola,

Estoy intentando leer el valor que tiene asignado la variable btime en el archivo /proc/stat, pero me gustaría hacerlo todo en una línea, sin usar la variable $tmp1, ¿es posible?. Gracias

open(FILE, "< /proc/stat") || return 1;
($tmp1) = grep( { m/btime/ } <FILE>);
close FILE || return 1;
@uptime_date = split (' ', $tmp1, 2);

Bienvenido a los foros de Perl en español, rikr000.

Esta es una forma muy común de hacerlo en Perl (un modismo):

Muchas gracias, ya, para ver si también es posible, ¿se puede asignar el valor a una variable, en vez de un array? Sólo necesito el valor numérico, la línea es así:

btime 1314939856

¡Hecho!

Esta es otra versión:


Lo que hace es ejecutar en el shell el comando cat, para que saque a la salida estándar el contenido de /proc/stat. Esa salida la pasamos a la expresión regular, por donde buscamos por el número que nos interesa, que es capturado por los paréntesis. Al lado izquierdo hay una lista de variables (bueno, solo una variable). Sabemos que es una lista por la presencia de los paréntesis. Como consecuencia de eso, las capturas de la exp. reg. son devueltas en forma de lista, hacia las variables, con lo que $uptime_date obtiene el valor de $1, la primera (y única) captura.