Parafraseando Larry Wall, o problema com os one-liners Perl é que eles não cabem necessariamente em 80 colunas.
Existem tantos sinalizadores para passar perl, como codificação STDIO, caminhos de inclusão, importações de módulo … E analisar vários arquivos estruturados por meio de uma linha pode ser doloroso.
Felizmente, existe App :: p – Steroids para seus perl one-liners .
Faz poucas coisas, mas muito bem. Ele automatiza o carregamento lento de dependência (não há necessidade de digitar -Mmais!) E adiciona vários atalhos convenientes para funções comumente usadas.
Então, preparem-se, vamos usar Perl como uma calculadora de data CLI com sintaxe familiar:
$ p 'S DateTime->today->add(days=>92)->ymd'
2013-03-31Como você pode ver, não há necessidade de declarar DateTime (também não foi pré-declarado!) SÉ um atalho para say. Existem vários outros:
- r / w – lê / grava arquivos via File :: Slurp ;
- jd / jl – despejar / carregar via JSON :: XS ;
- xd / xl – descarregar / carregar via XML :: Hash :: LX ;
- yd / yl – descarregar / carregar via YAML ;
- dd de Data :: Dump ;
- get, head, getprint, getstore, mirror from LWP :: Simple ;
- sum, first, min, max, zip, uniq, any, all, none … all from List :: AllUtils .
O script é muito simples, se você perder alguma idiossincrasia sua, não hesite em bifurcá-lo e personalizá-lo 🙂