data do servidor em perl [Perl]

data do servidor em perl

Publicado por leo genilhu 03/02/2004

[ Hits: 9.611 ]

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

Queimando CDs on-the-fly

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Assistente de instalação por apt!

Saiba quanto de energia seu PC gasta aproximadamente por mês

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

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