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 <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
