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!