Obtener milisegundos
Publicado: 2012-02-16 07:39 @361
Hola, nuevamente pidiendo ayuda. En este caso tengo que hacer algo como esto
pero no sé cómo obtener los milisegundos.
El código es el siguiente:
#!C:\Perl\bin\perl.exe
use diagnostics;
use strict;
use warnings;
use File::Find;
my $dir = "C:\\Files";
find(\&fecha, $dir);
sub fecha
{
our $fila;
our $origen;
our @elem;
my $elemento = $_;
if($elemento=~ /\.dat$/)
{
our $yr;
our $mo;
our $mday;
our $hr;
our $mi;
our $se;
our $mil;
print " el elemento es: $elemento \n";
my $fi = $elemento;
open FI, "$fi";
$fila = <FI>;
@elem = split(/\s+/,$fila);
print " hora $elem[3] \n";
$origen = $elem[3];
my @utc = gmtime($origen);
print "utc : @utc \n";
$yr = sprintf "%4d",$utc[5]+1900;
$mo = sprintf "%02d",$utc[4] + 1;
$mday = sprintf "%02d",$utc[3];
$hr = sprintf "%02d",$utc[2];
$mi = sprintf "%02d",$utc[1];
$se = sprintf "%4.1f",$utc[0];
print "$hr$mi $se \n";
}
close FI;
}
pero me muestra:
HRMM SECON
1150 27.0
Desde ya agradezco su ayuda, ya que es muy importante que pueda obtener los milisegundos.
¡Muchas gracias!
¡Saludos!
pero no sé cómo obtener los milisegundos.
El código es el siguiente:
#!C:\Perl\bin\perl.exe
use diagnostics;
use strict;
use warnings;
use File::Find;
my $dir = "C:\\Files";
find(\&fecha, $dir);
sub fecha
{
our $fila;
our $origen;
our @elem;
my $elemento = $_;
if($elemento=~ /\.dat$/)
{
our $yr;
our $mo;
our $mday;
our $hr;
our $mi;
our $se;
our $mil;
print " el elemento es: $elemento \n";
my $fi = $elemento;
open FI, "$fi";
$fila = <FI>;
@elem = split(/\s+/,$fila);
print " hora $elem[3] \n";
$origen = $elem[3];
my @utc = gmtime($origen);
print "utc : @utc \n";
$yr = sprintf "%4d",$utc[5]+1900;
$mo = sprintf "%02d",$utc[4] + 1;
$mday = sprintf "%02d",$utc[3];
$hr = sprintf "%02d",$utc[2];
$mi = sprintf "%02d",$utc[1];
$se = sprintf "%4.1f",$utc[0];
print "$hr$mi $se \n";
}
close FI;
}
pero me muestra:
HRMM SECON
1150 27.0
Desde ya agradezco su ayuda, ya que es muy importante que pueda obtener los milisegundos.
¡Muchas gracias!
¡Saludos!