Função Perl localtime
Descrição
Esta função converte a hora especificada por EXPR em um contexto de lista, retornando uma matriz de nove elementos com a hora analisada para o fuso horário local atual. Os elementos da matriz são -
# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
Se EXPR for omitido, usa o valor retornado por hora.
$ mday é o dia do mês e $ mon é o próprio mês, no intervalo 0..11 com 0 indicando janeiro e 11 indicando dezembro.
$ year é o número de anos desde 1900, não apenas os dois últimos dígitos do ano. Ou seja, $ year é 123 no ano 2023. A maneira correta de obter um ano completo de 4 dígitos é simplesmente: $ year + = 1900;
Sintaxe
A seguir está a sintaxe simples para esta função -
localtime EXPR
Valor de retorno
Esta função retorna uma string no formato: Thu Set 21 14:52:52 2000 em contexto escalar e os valores individuais dos componentes de tempo (segundos, minutos, horas, dia do mês, mês, ano, dia da semana, dia do ano, horário de verão) no contexto da lista.
Exemplo
A seguir está o código de exemplo que mostra seu uso básico -
#!/usr/bin/perl -w
use POSIX;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
$year += 1900;
print "$sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst\n";
$now_string = localtime;
print "$now_string\n";
$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
print "$now_string\n";
Quando o código acima é executado, ele produz o seguinte resultado -
19, 58, 14, 1, 8, 2013, 0, 243, 0
Sun Sep 1 14:58:19 2013
Sun Sep 1 14:58:19 2013