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