Resultados da pesquisa a pedido "perl"
Como descobrir se o valor existe no hash sem usar a chave no perl?
Eu tenho um mapa de hash como este my $name = 'AUS'; #dynamic values my %hash = { 'a'=>{ 'x'=> { '1' =>'US' '2' =>'UK' } 'y'=>{ '1' =>'AFRICA' '2' =>'AUS' } } 'b'=>{ 'x' =>{ '1' =>'US' '2' =>'UK' } } };Estou tentando descobrir se o nome é único ...
Dancer vs Catalyst [Perl Web Frameworks] [fechado]
O que você acha dos dois? Comecei a ler um livro sobre o Catalyst e achei bastante complexo em comparação com o Dancer. então agora estou experimentando o Dancer, e parece mais fácil aprender e mais "amigável ao ser humano".
Sensibilidade a maiúsculas e minúsculas no script Perl - Como torná-lo insensível?
Como eu alteraria o script markov a seguir para tratar as palavras em maiúsculas e minúsculas como iguais? A idéia toda é ajudar a aumentar a qualidade da saída do meu gerador de texto markov. Tal como está, se você inserir 99 frases em ...
Substituição de Perl usando string que contém um cifrão no Windows
Estou usando o perl no windows e estou tentando fazer um liner usando o perl para substituir um espaço reservado em um arquivo usando uma variável do windows que contém um cifrão. Alguém sabe qual é o uso correto para fazê-lo funcionar com o ...
Qual é uma boa maneira de esperar até que um arquivo seja atualizado e depois lido no Perl?
Fiquei me perguntando se há uma maneira de aguardar a atualização de um arquivo e, em seguida, lê-lo depois de atualizado. Então, se eu tiverfile.txt, Quero esperar até que algo novo seja escrito para ele e depois ler / processá-lo / etc. ...
Perl `join` produz sequência de várias linhas
Eu tenho esse programa para classificar duas matrizes #!/usr/bin/perl -w $movies = 'movies.txt'; open (FHD, $movies) || die " could not open $movies\n"; @movies = <FHD>; $fruits = 'fruits.txt'; open (FHD, $fruits) || die " could not open ...
Mensagem de erro do Perl DBI: Não é possível chamar o método "selectcol_arrayref" em um valor indefinido
my $dblinks = ''; $dblinks = $dbh->selectcol_arrayref("select db_link from db_links where ticket=\'LOW\'"); my $success = 0; for my $dblink (@$dblinks) { $success = eval { my ($ret) = $dbh->selectrow_array("select 1 from " ...
ID exclusivo de identificação do navegador da web para logins do painel de controle da web no Perl
Os navegadores da Web possuem um ID exclusivo que pode ser transmitido aos scripts Perl? (Como um único produto semelhante a uma série que você compra na loja, por exemplo) Por exemplo: Se eu instalar um navegador da Web, esse navegador da Web ...
Arquivo de leitura Perl, imprimindo valor exclusivo de uma coluna
Eu sou novo no perl e gostaria de obter o seguinte com o perl. Eu tenho um arquivo que contém os seguintes dados: /dev/hda1 /boot ext3 rw 0 0 /dev/hda1 /boot ext3 rw 0 0Gostaria de extrair o segundo campo do arquivo e imprimir apenas valores ...
Perl: if (elemento na lista)
Estou procurando a presença de um elemento em uma lista. Em Python, há umin palavra-chave e eu faria algo como: if element in list: doTaskExiste algo equivalente no Perl sem precisar iterar manualmente a lista inteira?