[SP-pm] Perl e horário de verão

[Geraldo Netto]

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.vinciguerra at 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 <hernanlopes at 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 <geraldonetto at 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 <geraldonetto at 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 at 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 at 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 at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>