[SP-pm] Variáveis Especiais

[Nelson Ferraz]

Apenas para completar esta resposta, estive pesquisando no Perl Best
Practices e encontrei um exemplo...

## Code fragment (NOT RECOMMENDED) from Chapter 5 of "Perl Best Practices"  ##

local $| = 1;        # Autoflush output

local $" = qq{\0};   # Hash subscript separator
local $; =  q{, };   # List separator
local $, =  q{, };   # Output field separator
local $\ = qq{\n};   # Output record separator


O exemplo acima não é recomendado pois necessita de comentários para
explicar os nomes das variáveis -- o que, de acordo com qualquer
manual básico de programação, deveria ser claro desde o princípio.

##   Code fragment (Recommended) from Chapter 5 of "Perl Best Practices"    ##

use English qw( -no_match_vars );

local $OUTPUT_AUTOFLUSH         = 1;

local $SUBSCRIPT_SEPARATOR      = qq{\0};
local $LIST_SEPARATOR           =  q{, };
local $OUTPUT_FIELD_SEPARATOR   =  q{, };
local $OUTPUT_RECORD_SEPARATOR  = qq{\n};

O exemplo acima é recomendado, pois os nomes das variáveis são claros;
se você quiser comentar cada linha, pode explicar o porquê de cada
valor, e não o significado de cada variável.

Pra quem ainda não leu o livro Perl Best Practices, ele é considerado
referência obrigatória em muitas empresas que trabalham com perl.

[]s

Nelson