data do servidor em perl
Publicado por leo genilhu 03/02/2004
[ Hits: 9.648 ]
Homepage: www.genilhu.com
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" ;
Crivo de Eratóstenes Simples em Perl
Escrevendo varias linhas em um arquivo qualquer
Cálculo de área de uma figura geométrica
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Erro ao fazer remaster usando Penguin eggs (0)
queria saber como instalar o android power tools igual ao winux no lin... (7)