Eu tenho o script Perl e preciso determinar o caminho completo e o nome do arquivo do script durante a execução. Descobri que, dependendo de como você chama o script, $0varia e às vezes contém fullpath+filenamee, às vezes, apenas filename. Como o diretório de trabalho também pode variar, não...
Continuo imprimindo meu hash como # de baldes / # alocados. Como imprimo o conteúdo do meu hash? Sem o uso de um whileloop seria o mais preferível (por exemplo, um one-liner seria o
Eu tenho alguns arquivos que gostaria de excluir a última nova linha, se for o último caractere de um arquivo. od -cmostra que o comando que eu executo grava o arquivo com uma nova linha à direita: 0013600 n t > \n Eu tentei alguns truques com o sed, mas o melhor que pude pensar não está...
Eu tenho uma matriz em Perl: my @my_array = ("one","two","three","two","three"); Como faço para remover as duplicatas da
Versão longa... Um colega de trabalho afirmou hoje depois de ver meu uso while (1)em um script Perl que for (;;)é mais rápido. Argumentei que eles deveriam ser os mesmos, esperando que o intérprete otimize quaisquer diferenças. Configurei um script que executaria 1.000.000.000 de iterações de loop...
Bloqueado . Esta pergunta e suas respostas estão bloqueadas porque a questão está fora do tópico, mas tem um significado histórico. No momento, não está aceitando novas respostas ou interações. Quais são alguns recursos de linguagem realmente úteis, mas esotéricos,...
Alguém pode explicar a diferença entre \be \wmetacaracteres de expressão regular? Entendo que esses dois metacaracteres são usados para limites de palavras. Além disso, qual meta caractere é eficiente para conteúdo
Entendo que alguém use a palavra-chave "bless" no Perl dentro do método "novo" de uma classe: sub new { my $self = bless { }; return $self; } Mas o que exatamente "abençoar" está fazendo com essa referência de hash?
Eu gostaria de adicionar prefixo em todas as pastas e diretórios. Exemplo: eu tenho Hi.jpg 1.txt folder/ this.file_is.here.png another_folder.ok/ Eu gostaria de adicionar o prefixo
Estou trabalhando em um script Perl. Como posso passar parâmetros de linha de comando para ele? Exemplo: script.pl "string1"
Como atualizo todos os meus módulos CPAN para as versões mais
Adoro fazer esse tipo de coisa no Perl: $foo = $bar || $bazatribuir $baza $fooif $baré vazio ou indefinido. Você também tem $foo ||= $bletchque só irá atribuir $bletcha $foose $foonão estiver definido ou vazio. O operador ternário nessa situação é tedioso e cansativo. Certamente, existe um método...
Quero mostrar aos meus usuários arquivos PDF. A razão pela qual eu uso o cgi para mostrar o pdf é que desejo rastrear os cliques do pdf e esconder a localização real do pdf salvo. Eu estive pesquisando na Internet e só encontrei como mostrar a caixa de diálogo Salvar para os usuários e criar um...
Estou tentando abrir um arquivo .html como uma grande string longa. Isso é o que eu tenho: open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; o que resulta em: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01...
Em outra pergunta do Stack Overflow, Leon Timmermans afirmou: Aconselho você a não usar protótipos. Eles têm seus usos, mas não na maioria dos casos e definitivamente não neste. Por que isso pode ser verdade (ou não)? Quase sempre forneço protótipos para minhas funções Perl, e nunca antes vi...
Como faço para dizer ao CPAN para instalar todas as dependências? Tentei defini-los em cpan: cpan> o conf prerequisites_policy follow cpan> o conf commit Eu ainda tive que responder "s" algumas vezes (mas menos do que parecia). Existe uma maneira de sempre prosseguir com a instalação? Eu...
Como posso verificar se uma determinada string contém uma determinada substring, usando Perl? Mais especificamente, quero ver se s1.domain.comestá presente na variável string
Eu tenho um caminho relativo $base_path = "input/myMock.TGZ"; myMock.TGZé o nome do arquivo localizado na pasta de entrada. O nome do arquivo pode mudar. Mas o caminho está sempre armazenado em $base_path. Preciso verificar se o arquivo existe em
Em Perl \Scorresponde a qualquer caractere sem espaço em branco. Como posso combinar qualquer caractere diferente de espaço em branco, exceto uma barra invertida
Estou tentando escrever um script Perl usando o pragma "utf8" e estou obtendo resultados inesperados. Estou usando o Mac OS X 10.5 (Leopard) e estou editando com o TextMate. Todas as minhas configurações para meu editor e sistema operacional são padronizadas para gravar arquivos no formato...