Use DateTime. É bom Em 01/03/2014 14:04, "Geraldo Netto" <geraldone...@gmail.com> escreveu:
> Opa! > > Ehehehhe!!! > > Devo admitir aqui que a maior parte do desenvolvimento que eu faço é > feito em java > Além disso, a última vez que eu tinha feito alguma coisa em perl foi > em 2006 quando o Fernando Correa da RIO-PM trabalhava em SP > e tinha me ajudado a fazer um front-end em perl-tk p/ aumentar e > diminuir o volume do audio no linux > > BTW, foi lá que eu também conheci o Blabos e depois, em alguns > encontros sociais, o Solli :P > > > See Ya!!! > > Geraldo Netto > Sapere Aude => Non dvcor, dvco > São Paulo, Brasil, -3gmt > site: http://exdev.sf.net/ > > 2014-03-01 12:18 GMT-03:00 Daniel Vinciguerra <dan.vincigue...@gmail.com>: > > herman++ > > > > Caiu em desuso após o PBP "definir" como um bom padrão nomes de sub todo > > maiúsculo ou todo minusculo... mas o perlcritic só pega no nível de > > severidade --brutal > > > > (eu particularmente uso e gosto porque, IMHO, deixa muito mais fácil a > > leitura) > > > > []'s > > > > > > > > Daniel Vinciguerra > > Web Solutions Architect and Co-Owner at Bivee > > http://github.com/dvinciguerra > > > > > > 2014-02-28 21:28 GMT-03:00 Hernan Lopes <hernanlo...@gmail.com>: > > > >> nossa, um camel case! > >> CamelCase anda tão fora de moda que me deixa surpreso ao ver que pessoas > >> ainda o preferem ao invés de under_line > >> > >> > >> > >> 2014-02-28 11:59 GMT-03:00 Geraldo Netto <geraldone...@gmail.com>: > >> > >>> Bom Dia Pessoal! > >>> > >>> Consegui evoluir no código com a api do posix mesmo > >>> crio as datas com POSIX::strftime > >>> e calculo o horário de verão pegando a saida do comando cal no shell > >>> > >>> yep, eu sei que é feito, mas resolve o meu problema de um jeito > rápido... > >>> por hora, a idéia é só gerar o "okay" da gerencia p/ matar umas 4 > >>> versões shell que fazem o mesmo trabalho, mas precisam de alguns > >>> parâmetros diferentes e alguma intervenção humana especificamente no > >>> período de horário de verão > >>> > >>> a minha dúvida é primária, suponho... > >>> mas eu não entendi o porque usar o shift > >>> se eu posso verificar com o defined() se o @_[<número>] está definido? > >>> > >>> Aceito sugestões e Mais uma vez, Valeu mesmo pela força! :P > >>> > >>> > >>> BTW, código todo a seguir: > >>> > >>> #!/usr/bin/perl > >>> > >>> use strict; > >>> use warnings; > >>> > >>> use POSIX; > >>> > >>> > >>> # a inicia a data em 1900 entao, se for passado 95 => 1995 > >>> sub calcularDeslocamentoAno { > >>> die "ano invalido" unless defined(@_[0]) && return ($_[0] > 99 ? > >>> $_[0] - 1900 : $_[0]); > >>> } > >>> > >>> sub criarData { > >>> die "parametros invalidos" unless (defined(@_[0]) && > >>> defined(@_[1]) && defined(@_[2])); > >>> #Usage: POSIX::strftime(fmt, sec, min, hour, mday, > >>> mon, year, wday = -1, yday = -1, isdst = -1) > >>> return POSIX::strftime("%Y,%m,%d", 0, 0, 0, @_[0], (@_[1] -1), > >>> &calcularDeslocamentoAno(@_[2]), 0, 0); > >>> } > >>> > >>> sub calcularDiaInicioHorarioVerao { > >>> my $dia_inicio = `cal 10 2013 | tail -4 | head -1 | cut -d' ' -f7`; > >>> } > >>> > >>> sub calcularDiaFimHorarioVerao { > >>> my $dia_fim = `cal 2 2014 | tail -4 | head -1 | cut -d' ' -f7`; > >>> } > >>> > >>> sub trim { > >>> my $s = shift; > >>> $s =~ s/^\s+|\s+$//g; > >>> return $s; > >>> } > >>> > >>> print &criarData(2, 5, 2014); > >>> print &trim($dia_inicio); > >>> print &trim($dia_fim); > >>> > >>> Geraldo Netto > >>> Sapere Aude => Non dvcor, dvco > >>> São Paulo, Brasil, -3gmt > >>> site: http://exdev.sf.net/ > >>> > >>> 2014-02-26 23:41 GMT-03:00 Geraldo Netto <geraldone...@gmail.com>: > >>> > Opa! > >>> > > >>> > Tudo okay Pessoal? > >>> > > >>> > Eu sou o Geraldo, um ghost reader da SPPM (e algumas outras PMs) > >>> > e eu ando trabalhando vagarosamente num projetinho > >>> > que eu dependo de verificação do horário de verão > >>> > > >>> > A idéia é separar o ano em 3 partes: > >>> > > >>> > fim do horário de verão (terceiro domingo de fevereiro) > >>> > fora do horário de verão > >>> > início do horário de verão (terceiro sábado de fevereiro) > >>> > > >>> > E baseado nisso, lançar um shell que vai receber o timezone, data de > >>> > início e de fim > >>> > p/ fazer a coleta de dados pelo hp openview (comando ovpmbatch) > >>> > > >>> > Só que... > >>> > -eu tenho um servidor tru64 (sem suporte) > >>> > -rodando perl 5.8 (2002 pelo o que o version diz...) > >>> > -sem sudo/root/possibilidade de instalação de pacotes de terceiros > >>> > -<inclua-aqui-todas-as-limitações-que-vocês-imaginarem-de-infra> > >>> > -meu "core business" é análise de desempenho de software, > >>> > então o código não pode ser muito "perlish" > >>> > porque alguém pode precisar dar manutenção depois de mim > >>> > > >>> > Embora eu ainda não tenha código real (só comecei a brincar) > >>> > Eu estou pensando em ir com a api do posix, especificamente a > >>> > função/método strftime > >>> > > >>> > Eventualmente vocês teriam alguma sugestão? > >>> > > >>> > > >>> > Grande Abraço! > >>> > > >>> > Geraldo Netto > >>> > Sapere Aude => Non dvcor, dvco > >>> > São Paulo, Brasil, -3gmt > >>> > site: http://exdev.sf.net/ > >>> =begin disclaimer > >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>> =end disclaimer > >> > >> > >> > >> =begin disclaimer > >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >> =end disclaimer > >> > > > > > > =begin disclaimer > > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > > =end disclaimer > > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer >
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer