Resultados da pesquisa a pedido "perl"
Por que não consigo corresponder minha string da entrada padrão no Perl?
Por que meu script não funcionará corretamente? Eu sigo um vídeo do YouTube e trabalhei para o cara. Estou executando o Perl no Windows usando o ActiveState ActivePerl 5.12.2.1202 Aqui está o meu minúsculo bloco de código. print "What is your ...
Qual é a maneira mais defensiva de percorrer as linhas em um arquivo com Perl?
Normalmente, faço um loop pelas linhas de um arquivo usando o seguinte código: open my $fh, '<', $file or die "Could not open file $file for reading: $!\n"; while ( my $line = <$fh> ) { ... }Contudo,em responder a outra ...
Como aplico a formatação a uma palavra específica em um arquivo docx usando o Win32 :: Ole no Perl?
Por exemplo, meu arquivo docx contém as seguintes frases: Este é um exemplo de Perl Este é um exemplo de Python Este é outro exemplo de Perl Quero aplicar um estilo arrojado a todas as ocorrências da palavra "Perl" da seguinte forma: Isto é ...
Como posso controlar a versão Perl usada ao enviar trabalhos de grade?
Estou trabalhando com o SGE (Sun Grid Engine) para enviar trabalhos para uma grade. Eu também usoperlbrew para gerenciar minhas versões Perl instaladas. Eu escrevi um pequenosh scripts que eu uso para executar um script perl que requer uma versão ...
use shell para iterar através de um arquivo
Eu tenho dois arquivos de entrada. Um deles possui lista de nomes, formato mm: dd, duração do uso e outros itens de nome de host em cada linha. O outro é o que eu gerei que possui um conjunto de listas de nomes em cada linha que não se repete. ...
Como uso (ou converto ou visualizo) objetos Python embutidos no Perl?
Estou ressuscitando algum código órfão, escrito em Perl, mas usa Python embutido. Uma chamada para o módulo Python retorna uma matriz de dicts ou objetos Python. Estou realmente lutando com a maneira de acessar as estruturas de dados - se eu ...
Como posso fazer o Perl morrer se um aviso for gerado?
Gostaria que meu script perl morresse sempre que um aviso fosse gerado, incluindo avisos gerados por pacotes usados. Por exemplo, isso deve morrer: use strict; use warnings; use Statistics::Descriptive; my @data = ( 8, 9, 10, "bbb" ); my $stat ...
Git log JSON * com arquivos alterados *
Preciso obter a saída de um comando git log formatado como JSON. Eu gosto da abordagem sugerida emSaída de log do Git para XML, JSON ou YAML? [https://stackoverflow.com/questions/4600445/git-log-output-to-xml-json-or-yaml] para usar um formatador ...
Os scripts Perl no Windows 10 são executados no Explorer, mas não no prompt de comando
Instalei o ActiveState Perl no meu novo PC com Windows 10. Instalei a mesma versão exata do Perl em vários computadores pessoais e ele está instalado em centenas de computadores de outros usuários da minha empresa. A mesma instalação exata, ...
Como posso armazenar o resultado de um comando do sistema em uma variável Perl?
$ cat test.pl my $pid = 5892; my $not = system("top -H -p $pid -n 1 | grep myprocess | wc -l"); print "not = $not\n"; $ perl test.pl 11 not = 0 $Quero capturar o resultado, ou seja,11 em uma variável. Como eu posso fazer isso?