data do servidor em perl
script em perl simples, para iniciantes que pega a data do servido,e a separa em dd/mm/aa imprimindo na tela
Descrição
script em perl simples, para iniciantes que pega a data do servido,e a separa em dd/mm/aa imprimindo na tela
#!/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" ;
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" ;