Resultados da pesquisa a pedido "perl"
Por que meus testes Perl falham com `use encoding 'utf8' '?
Estou intrigado com este script de teste: #!perl use strict; use warnings; use encoding 'utf8'; use Test::More 'no_plan'; ok('áá' =~ m/á/, 'ok direct match'); my $re = qr{á}; ok('áá' =~ m/$re/, 'ok qr-based match'); like('áá', $re, 'like ...
Como posso obter uma lista de pilha de chamadas no Perl?
Existe uma maneira de acessar (para impressão) uma lista de sub + módulo a profundidade arbitrária de sub-chamadas anteriores a uma posição atual em um script Perl? Eu preciso fazer alterações em alguns módulos Perl (.pm). O fluxo de trabalho ...
Como posso me proteger contra ataques de injeção de SQL usando o DBI do Perl?
Existe uma função que eu possa usar no Perl para limpar a entrada antes de colocá-la em um banco de dados MySQL? Eu não sei regex muito bem, então antes de fazer minha própria função, eu queria saber se já havia uma feita.
Como posso capturar capturas de tela de páginas da Web com Perl?
É possível escrever um script em Perl que abra URLs diferentes e salve uma captura de tela de cada um deles?
Como lidar com chaves de hash que contêm caracteres identificadores ilegais no Template Toolkit?
No Template Toolkit, se eu tiver a seguinte variável que contém um hashref: [% artist = { 'life-span' => '1975 to 1987', } %]Qual é a melhor maneira de enviar os dados no 'tempo de vida'? Eu tentei... [% artist.life-span %]^ Isso falha devido ...
Como posso usar o valor de uma variável como um nome de variável no Perl?
Se eu tiver uma variável,$bar, que é igual a string"foo" e$foo é igual a0xdead, Como posso obter$foodo valor enquanto eu tenho apenas a string para o nome da variável? Essencialmente, quero fazer um tipo de indireto de ponteiro no espaço para ...
Por que um loop grande dentro de um loop pequeno é mais rápido que um loop pequeno dentro de um grande?
Este é o meu código Perl $big=10_000_000; #A:big loop outside my $begin_time = time; foreach my $i (1..$big) { foreach my $p (1..10){ } } my $end_time = time; my $t1=$end_time-$begin_time; #B:small loop outside my $begin_time = time; foreach my ...
O MooseX :: Declare e o MooseX :: Method :: Produção de assinaturas está pronta?
Deversão atual (0.98) [http://search.cpan.org/~drolsky/Moose-0.98/lib/Moose/Manual/MooseX.pod]doMoose :: Manual :: MooseX [http://search.cpan.org/perldoc/Moose::Manual::MooseX]são as linhas: Temos grandes esperanças para o futuro ...
É possível usar ou exigir um script Perl sem executar suas instruções?
Preciso adicionar testes de unidade a alguns scripts antigos, todos os scripts estão basicamente no seguinte formato: #!/usr/bin/perl # Main code foo(); bar(); # subs sub foo { } sub bar { }Se eu tentar 'exigir' esse código em um teste de ...
'use warnings' vs. '#! / usr / bin / perl -w' Existe alguma diferença?
Eu li em um fórum ( http://forums.devshed.com/perl-programming-6/email-send-attach-950337.html [http://forums.devshed.com/perl-programming-6/email-send-attach-950337.html]*) que era melhor 'usar avisos'; em vez de dizer '-w'. Isso é verdade? Eu ...