Resultados da pesquisa a pedido "perl"
Como capturar a saída de uma carpa no Perl?
Estou escrevendo um módulo Perl e estou usando carp para lançar um aviso não fatal de volta ao programa de chamada. O aviso de carpa funciona bem - estou verificando se um parâmetro de entrada atende a uma determinada condição - se ele não ...
Como instalar / configurar o Git :: Hooks para usar com o Gerrit
oGit :: Ganchos [https://github.com/gnustavo/Git-Hooks/wiki]é uma estrutura Perl para implementar ganchos Git / Gerrit. Qual é o procedimento para instalar e configurá-lo para usar com o Gerrit?
Capturando texto antes e depois de um bloco de código no estilo C com uma expressão regular Perl
Estou tentando capturar algum texto antes e depois de um bloco de código no estilo C usando uma expressão regular Perl. Até agora é isso que eu tenho: use strict; use warnings; my $text = << "END"; int max(int x, int y) { if (x > y) { return x; ...
Como faço para converter uma string binária em um número no Perl?
Como posso converter a string binária$x_bin="0001001100101" ao seu valor numérico$x_num=613 em Perl?
Expressão regular Perl (usando uma variável como uma sequência de caracteres de pesquisa com caracteres de operador Perl incluídos)
$text_to_search = "example text with [foo] and more"; $search_string = "[foo]"; if ($text_to_search =~ m/$search_string/) print "wee";Por favor, observe o código acima. Por alguma razão, eu gostaria de encontrar o texto "[foo]" na variável $ ...
Substituindo "definido (@array)" obsoleto em uma operação ternária
Eu tenho o seguinte código que precisa ser corrigido, comodefined(@array) foi descontinuado no Perl mais recente. my @inputs = ( ( defined @{$padSrc->{inouts}} ? @{$padSrc->{inouts}} : () ), ( defined @{$padSrc->{inputs}} ? @{$padSrc->{inputs}} ...
Como especificar qual versão do perl usar no CentOS
Estou executando o CentOS 5.4, que possui apenas a versão 5.8 do perl disponível por padrão, e tenho um programa que requer o perl 5.10, por isso compilei o perl 5.10 no CentOS. Como especificar com qual perl eu quero executar o programa, porque ...
Como redirecionar STDOUT e STDERR para uma variável
Eu quero redirecionarSTDERR eSTDOUT para uma variável. Eu fiz isso. close(STDOUT); close(STDERR); my $out; open(STDOUT, ">>", \$out); open(STDERR, ">>", \$out); for(1..10) { print "print\n"; # this is ok. warn "warn\n"; # same system("make"); # ...
Como preservar a transparência ao redimensionar PNG usando Perl e GD
Este é o código que estou usando: !/usr/bin/perl use GD; sub resize { my ($inputfile, $width, $height, $outputfile) = @_; my $gdo = GD::Image->new($inputfile); ## Begin resize my $k_h = $height / $gdo->height; my $k_w = $width / $gdo->width; my ...
Existe uma maneira de executar JavaScript no Perl?
Já trabalhei há alguns anos no Perl construindo scrapers da Web, e considerando o problema que o spam representa e como a raspagem de páginas da Web se tornaria muito mais fácil para essas pessoas, por exemplo, se o PerlLWP :: ...