data do servidor em perl

Publicado por leo genilhu 03/02/2004

[ Hits: 9.433 ]

Homepage: www.genilhu.com

Download data_perl.pl




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

Aprendendo a fazer equações em Perl

Soma varios valores e mostra sua media

Data por extenso

Xshot

Queimando CDs on-the-fly


  

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" ;

[2] Comentário enviado por 3n1gm4 em 29/05/2014 - 15:08h

seguinte manow tem como imprimir a data do brasil e não puxar a data do servidor ?


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts