data do servidor em perl [Perl]

data do servidor em perl

Publicado por leo genilhu 03/02/2004

[ Hits: 9.588 ]

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

Graficos com barras em Perl

Crivo de Eratóstenes Simples em Perl

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

Queimando CDs on-the-fly

Escrevendo varias linhas em um arquivo qualquer

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