Articles of perl

Como posso me conectar à impressão de Perl?

Aqui está um cenário. Você tem uma grande quantidade de scripts legados, todos usando uma biblioteca comum. Os scripts mencionados usam a instrução ‘print’ para saída de diagnóstico. Nenhuma mudança é permitida aos scripts – eles variam muito, têm suas aprovações e há muito tempo deixaram os vales frutíferos de supervisão e controle. Agora, uma […]

Como sei se uma variável tem um valor numérico em Perl?

Existe uma maneira simples em Perl que me permita determinar se uma determinada variável é numérica? Algo ao longo das linhas de: if (is_number($x)) { … } seria o ideal. Uma técnica que não lança avisos quando a opção -w está sendo usada é certamente preferida.

Variáveis ​​Nginx semelhantes ao SetEnv no Apache?

Eu uso SetEnv no Apache para definir algumas variables ​​em virtualhosts que eu recupero no PHP usando $_SERVER[the_variable] . Agora estou mudando para Perl Catalyst e Nginx, mas parece que a diretiva “env” no Nginx não é a mesma. Não funciona. Como isso pode ser feito? Aqui está a imagem de fundo, para o caso […]

Lista vs do array Perl

Eu tenho duas estruturas de dados em Perl: Uma matriz: my @array2 = ( “1”, “2”, “3”); for $elem (@array2) { print $elem.”\n”; } Me dando a seguinte saída: 1 2 3 E uma lista: my @array = [ “1”, “2”, “3”]; for $elem (@array) { print $elem.”\n”; } Dando a seguinte saída: ARRAY(0x9c90818) Obviamente, […]

Como eu ‘uso’ um módulo Perl em um diretório que não está em @INC?

Eu tenho um módulo no diretório pai do meu script e gostaria de usá-lo. Se eu fizer use ‘../Foo.pm’; Eu recebo erros de syntax. Eu tentei fazer: push @INC, ‘..’; use EPMS; e .. aparentemente não aparece em @INC Eu estou ficando louco! O que há de errado aqui?

Como você arredondar um número de ponto flutuante em Perl?

Como posso arredondar um número decimal (ponto flutuante) para o inteiro mais próximo? por exemplo 1.2 = 1 1.7 = 2

Como eu executo uma substituição Perl em uma string, mantendo o original?

Em Perl, o que é uma boa maneira de realizar uma substituição em uma string usando uma expressão regular e armazenar o valor em uma variável diferente, sem alterar o original? Eu costumo apenas copiar a string para uma nova variável, em seguida, ligá-lo ao s/// regex que faz a substituição na nova string, mas […]

Obtendo STDOUT, STDERR e código de resposta do comando externo * nix no perl

Eu quero executar um comando externo de dentro do meu script Perl, colocando a saída de stdout e stderr em uma $variable de minha escolha, e para obter o código de saída do comando no $? variável. Eu passei por soluções em perlfaq8 e seus fóruns, mas eles não estão funcionando para mim. O estranho […]

Como extrair o pg_backend_pid do postgresql no shell script e passá-lo para outro processo?

Eu preciso executar bin/psql na linha de comando (ou script) e imprimir seu pg_backend_pid out, para que o pg_backend_pid possa ser passado para outro processo (executado pelo root) como argumento de linha de comando. O problema para mim é que o outro processo precisa ser executado depois de obter o pid. O psql (com a […]

Como faço para lidar com caracteres especiais em um regex Perl?

Eu estou usando um programa Perl para extrair texto de um arquivo. Eu tenho uma matriz de seqüências de caracteres que eu uso como delimitadores para o texto, por exemplo: $pat = $arr[1] . ‘(.*?)’ . $arr[2]; if ( $src =~ /$pat/ ) { print $1; } No entanto, duas das strings na matriz são […]