Uma Função Util A Todos!
#1
Posted 12/05/2004, 15:44
elas são uteis quando precisamos imprimir datas nas paginas.
sub data{
#retorna a data no formato diasemana, dia mesextenso ano
my @WeekDays = ('Domingo','Segunda','Terça','Quarta','Quinta','Sexta','Sábado');
my @Months = ('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julhot','Agosto','Setembro','Outubro','Novembro','Dezembro');
my ($Sec,$Min,$Hour,$Day,$Month,$Year,$Week_Day) = (localtime);
$Year += 1900;
if ($Sec < 10) { $Sec = "0".$Sec; }
if ($Min < 10) { $Min = "0".$Min; }
if ($Hour < 10) { $Hour = "0".$Hour; }
if ($Day < 10) { $Day = "0".$Day; }
my $DATA_AGORA = $WeekDays[$Week_Day].", ".$Day." ".$Months[$Month]." ".$Year;
return $DATA_AGORA ;
}
sub datahora{
#retorna a data no formato diasemana, dia mesextenso ano hh:mm:sec
my @WeekDays = ('Domingo','Segunda','Terça','Quarta','Quinta','Sexta','Sábado');
my @Months = ('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julhot','Agosto','Setembro','Outubro','Novembro','Dezembro');
my ($Sec,$Min,$Hour,$Day,$Month,$Year,$Week_Day) = (localtime);
$Year += 1900;
if ($Sec < 10) { $Sec = "0".$Sec; }
if ($Min < 10) { $Min = "0".$Min; }
if ($Hour < 10) { $Hour = "0".$Hour; }
if ($Day < 10) { $Day = "0".$Day; }
my $DATA_AGORA = $WeekDays[$Week_Day].", ".$Day." ".$Months[$Month]." ".$Year ;
my $DATAHORA_AGORA = $DATA_AGORA . " $Hour:$Min:$Sec";
return $DATAHORA_AGORA ;
}
Espero que seja util a todos e fale apena ter em suas bibliotecas.
Steven Koch
stvkoch@gmail.com
#2
Posted 12/05/2004, 17:34
require "datamaster.pl";
salve como datamaster.pm
package data;
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
# * DataMaster 1.0 *
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
# Arquivo: datamaster.pl
# Autor: Henrique Fernandes Silveira
# Versão: FREE
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
#
# Atenção:
# Não é necessário modificar as linhas abaixo
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
($seg,$min,$hora,$diam,$mes,$ano,$sdia,$diano,$isdst) = localtime(time);
@nummeses = ("01","02","03","04","05","06","07","08","09","10","11","12");
@meses = ("Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro");
@abrev_meses = ("Jan","Fev","Mar","Abr","Mai","Jun","Jul","Ago","Set","Out","Nov","Dez");
@dias = ('Domingo','Segunda-feira','Terça-feira','Quarta-feira','Quinta-feira','Sexta-feira','Sabado');
@abrev_dias = ('Dom','Seg','Ter','Qua','Qui','Sex','Sab');
$ano += 1900;
sub main'data_barra {
# retornar dd/mm/aa
$sdata = "$diam/@nummeses[$mes]/$ano";
}
sub main'data_hora {
# Retorna Diadasemana, Diadomes de Mes de Ano hora:minuto:segundo
# if ($hora < 10) { $hora = "0$hora"; }
if ($min < 10) { $min = "0$min"; }
if ($seg < 10) { $seg = "0$seg"; }
$data_hora = "$dias[$sdia], $diam de $meses[$mes] de $ano $hora\:$min\:$seg";
}
sub main'hora {
# Retorna Diadasemana, Diadomes de Mes de Ano hora:minuto:segundo
if ($min < 10) { $min = "0$min"; }
if ($seg < 10) { $seg = "0$seg"; }
$hora = "$hora\:$min\:$seg";
}
sub main'data_semhora {
# Retorna Diadasemana, Mes , Year
$ldate = "$dias[$sdia], $diam de $meses[$mes] de $ano";
}
sub main'abrev_mes {
# Retorna a Abreviação do Mês
$abrev_meses[$mes];
}
sub main'abrev_dia {
# Retorna a Abreviação do Dia
$abrev_dias[$sdia];
}
sub main'mes {
# Retorna o mes
$meses[$mes];
}
sub main'dia {
# Retorna o dia
$dias[$sdia];
}
sub main'numero_mes {
# Retorna o numero do mes
$nummeses[$mes];
}
sub main'numero_dia {
# Retorna o numero do dia
$diam;
}
sub main'ano {
# Retorna o ano
$ano = "$ano";
}
1; # retorne true
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#3
Posted 24/08/2004, 17:01
#5
Posted 30/08/2004, 01:56
Edição feita por: *º[ ¤ gLx ¤ ]º*, 30/08/2004, 01:57.
#6 Whitesnake
Posted 30/08/2004, 21:20
É isso.
#7
Posted 02/09/2004, 08:12
Javascript eh para manipular cliente...
Um abraço...
Steven Koch
Steven Koch
stvkoch@gmail.com
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)