• Publicidad

pasar de 'ms' a 'min' en perl

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

pasar de 'ms' a 'min' en perl

Notapor xagutxu_perez » 2008-04-18 15:19 @680

Hola a todos:

Si tengo un valor en la variable $miliseg = 66200 (66,200 s) ¿cómo puedo hacer para pasar a este formato: 01:06,200 (min:s)?

Si hago, para obtener la cantidad de minutos: $min = $miliseg / 60000, obtengo una cifra con decimales, y solo me interesaría quedarme con la parte de la izquierda de la cifra (que no me acuerdo cómo se llama...). El resto lo podría hacer con $s = ($miliseg % 60000) / 1000, para obtener los segundos restantes, ¿no?

Gracias...
xagutxu_perez
Perlero nuevo
Perlero nuevo
 
Mensajes: 43
Registrado: 2008-04-04 03:56 @206

Publicidad

Notapor xagutxu_perez » 2008-04-18 15:39 @694

Bien, un amigo me ha escrito que me puedo quedar con la parte entera utilizando la función int();

Y ahora, algo más: ¿hay alguna forma de representar números que siga siempre el mismo formato? Es decir, con 3 dígitos a la izda. de la coma y con 3 dígitos a la derecha para los decimales (por ejemplo)...?
xagutxu_perez
Perlero nuevo
Perlero nuevo
 
Mensajes: 43
Registrado: 2008-04-04 03:56 @206

Notapor explorer » 2008-04-18 16:25 @726

Se podría hacer modificando la variable $# (ver perlvar):

Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
perl -le '$x = 1.34324; $# = "%7.4g"; print $x'
  1.343
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4


Aquí, con relleno de ceros:
Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
perl -le '$x = 1.34324; $# = "%07.4g"; print $x'
001.343
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Pero... ¡Ojo!

El uso de esa variable está 'deprecated'. De hecho, en perl 5.10 ya no existe.

Casi mejor... usa el printf:

Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
perl -e '$x = 1.34324; printf "%7.4g\n", $x'
  1.343
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados