Resultados da pesquisa a pedido "perl"
como verificar se um hash está vazio no perl
Use o código a seguir para verificar se o hash está vazio. Existe um método melhor e é seguro usá-lo? if (!keys %hash) { print "Empty";}
Comparando dois diretórios usando Perl
u sou novo no Perl, então desculpe meu noobnes Aqui está o que pretendo fazer. $ perl dirComp.pl dir1 dir2 dir1 e dir2 são nomes de diretóri O script dirComp.pl deve identificar se o conteúdo em dir1 e dir2 é idêntico ou nã Eu inventei um ...
Posso solicitar a entrada do usuário depois de ler a entrada canalizada no STDIN no Per
Estou tentando escrever um script perl que lê dados canalizados e solicita entrada ao usuário com base nesses dados. O script a seguir,prompt_for_action, é o que estou tentando fazer: #!/usr/bin/perl my @hosts = (); while (<>) { my $host = $_; ...
Como posso fazer uma correspondência global de expressão regular no Per
Estou tentando criar uma expressão regular no Perl que corresponda a vários padrões e retorne todos eles comopreg_match_all no PHP faz. Aqui está o que eu tenho: $str = 'testdatastring'; if($str =~ /(test|data|string)/) { print "its ...
Maneira simples de formatar a data
Eu escrevi um script perl para obter data e hora. Funciona, mas me pergunto se existe alguma maneira mais fácil de formatar a data como saíd #!/usr/bin/perl use DateTime; my $dt = DateTime->now( time_zone => 'local' ); $myTimeStamp = ...
Extrair informações de $?
Pode fornecer uma boa explicação sobre o seguinte snippet de código perl. Eu tenho uma idéia do google, mas ainda há muita confusão básica. grande ajuda se você puder fornecer pequenas notas sobre ele $exit_value = $? >> 8; $signal_num = $? & ...
Como posso bifurcar um programa CGI Perl para desenvolver tarefas de longa duração?
Estou escrevendo um agendador de correio em massa controlado a partir de um aplicativo Perl / CGI e gostaria de aprender sobre "boas" maneiras de bifurcar um programa CGI para executar uma tarefa separada? Deveria fazê-lo? Ou é melhor sofrer a ...
ontando o número de ocorrências de uma string dentro de outra (Per
Qual é a maneira mais rápida de contar o número de vezes que uma determinada string aparece em uma maior? Meu melhor palpite seria substituir todas as instâncias dessa string por nada, calcular a diferença de comprimentos e dividir pelo ...
Web Crawler com suporte a JavaScript no Perl?
Eu quero codificar um perl aplicativo que fariarasteja alguns sites e coletar images e links de tais páginas da web. Como a maioria das páginas usa JavaScript que geram um HTML, preciso codificar quase um navegador cliente com suporte ...
Como atravessar todos os arquivos em um diretório; se tiver subdiretórios, também quero atravessar arquivos em subdiretórios
opendir(DIR,"$pwd") or die "Cannot open $pwd\n"; my @files = readdir(DIR); closedir(DIR); foreach my $file (@files) { next if ($file !~ /\.txt$/i); my $mtime = (stat($file))[9]; print $mtime; print "\n"; } Basicamente, quero anotar o registro de ...