data do servidor em perl [Perl]

data do servidor em perl

Publicado por leo genilhu 03/02/2004

[ Hits: 9.410 ]

Homepage: www.genilhu.com

Download data_perl.pl

0 0

Denuncie Favoritos Indicar

script em perl simples, para iniciantes que pega a data do servido,e a separa em dd/mm/aa imprimindo na tela

Esconder código-fonte

#!/usr/bin/perl
#
#leo genilhu <leogenilhu@bol.com.br>
#
# data hora
open(DATAHOR,"date '+%d/%m/%y %H : %M' |");
@Emisao = split(/ /,<DATAHOR>); //separa o array Emisao
close DATAHOR ;
chomp(@Emisao); // tira os espacos
print @Emisao[0],"\n" ;
print @Emisao[1],"\n" ;
print @Emisao[2],"\n" ;
print @Emisao[3],"\n" ;
@data = split(/\//,@Emisao[0]);
print @data[0],"\n" ;
print @data[1],"\n" ;
print @data[2],"\n" ;

Scripts recomendados

Fatorial

imprime numeros de forma crescente e decrescente [FOR]

Lista de números aleatórios não-repetidos de um intervalo em Perl

Múltiplos de 7 - Decrescente

check_mem.pl - Plugin Nagios para checar consumo de RAM

Comentários

[1] Comentário enviado por gleriston em 12/08/2011 - 20:40h

Na verdade tem um pequeno erro, nada de mais, tem que comentar: //separa o array Emisao, dessa forma #//separa o array Emisao, da mesma forma // tira os espacos. Senão dá erro. Tirando isso tá muito bom. Parabéns leo genilhu.

Aproveitando fiz um simplificado:

#!/usr/bin/perl
#gleriston sampaio <gleriston_sampaio@hotmail.com>
# data hora
open(DATAHOR,"date '+%d/%m/%y %H : %M' |");
@data = split(/ /,<DATAHOR>); #//separa o array Emisao
close DATAHOR ;
print "Data : ",@data[0];
chomp(@data); #// tira os espacos
print "\nHora : ",@data[1],"" ;
print @data[2],"" ;
print @data[3],"\n" ;

0 0