Perguntas com a tag [perl]

Perl é uma linguagem de programação estável e multiplataforma, usada em aplicações de missão crítica em todos os setores, sendo destacado o seu uso no desenvolvimento web de todos os tipos.

Filtrar por
Ordenado por
Com tags
1 voto
0 respostas
47 visitas

Como desabilitar numberLong no mongo 3? [fechada]

Como desabilitar numberLong no MongoDB 3? Já tentei mongo.native_long=0 e não resolveu. Estou usando perl com mongoexport
11 votos
1 resposta
1mil visitas

Perl hoje em dia é utilizado?

Bom, eu vejo pouca coisa sobre Perl e não conheço muito a linguagem, ela ainda é utilizada hoje em dia e pode substituir alguma outra linguagem como PHP ou Ruby? Não sei exatamente o que Perl faz mas ...
-1 votos
2 respostas
118 visitas

Como fazer left join com multiplas condições usando a classe DBIx

Tenho a seguinte consulta: SELECT * FROM endereco e LEFT JOIN favorite f ON f.end_id = e.end_id AND f.user_id = '123' ORDER BY CASE WHEN f.end_id IS NOT NULL THEN 0 ELSE 1 END, -- ordena por ...
1 voto
1 resposta
230 visitas

Formatar segundos para minutos e segundos (MM:SS) no PERL

Eu tenho um valor inteiro de segundos e estou tentando converter apenas minutos e segundos, ou seja, somando os minutos caso passe de 60. Resumindo: Se eu tenho o valor 125 em segundos, deve retornar ...
1 voto
1 resposta
129 visitas

Horário de Verão em Perl e PHP no CentOS

Estou com um problema de horário de verão no CentOS 7.8. O pacote tzdata já foi atulizado para não mudar o horário (pacote padrão do sistema), mas as funções em Perl e PHP continuam reportando 1h a ...
10 votos
3 respostas
15mil visitas

perl: warning: Setting locale failed [fechada]

Parece existir um erro com as definições locais do Perl e/ou do sistema, mas os detalhes obtidos não clarificam bem o que se está a passar: perl: warning: Setting locale failed. perl: warning: Please ...
0 votos
2 respostas
33 visitas

Como identificar a ausencia de um termo num arquivo usando PERL

Ola, preciso de uma ajuda aqui. Estou escrevendo um programa perl que ira identificar certos padroes num arquivo de texto usando regex. Porem, quando o termo buscado nao estiver presente no texto, ...
2 votos
2 respostas
143 visitas

Como fazer para tirar a Virgula da ultima ocorrencia [PERL]

Bem tenho um script em perl que formata um json deixando ele nesse formato: {"nome1":"123","nome2":"123","nome3":"123",} porem quero que apenas na ultima ocorrencia fique apenas a chave sem a ...
1 voto
1 resposta
603 visitas

Horas em timestamp

Fala ai galera, tudo beleza? É possível eu saber quanto é duas horas na conversão timestamp? Nessa linha eu converto o horário atual em timestamp. $hours_2 = str2time(localtime()); Mas preciso saber ...
2 votos
1 resposta
69 visitas

Como fazer uma condição com os operadores "+", "-", "*","/"

Eu tenho o seguinte código: print ("Primeiro Valor: "); $valor1 = <STDIN>; print ("Segundo Valor: "); $valor2 = <STDIN>; print ("Operador: "); $op = <STDIN>; if ($op == "+") { $...
-1 votos
1 resposta
35 visitas

Ignorar linhas PERL

Fiz um script que lê as linhas de um arquivo, porém agora preciso ignorar as 3 primeiras linhas e a última, retornando apenas o que está no meio. Segue abaixo um modelo do arquivo de texto e do ...
2 votos
1 resposta
84 visitas

Perl script - como calcular frequências com base no tamanho das sequências?

Eu tenho este código em perl para calcular a contagem de di-peptídeos nas minhas sequências (sao 400 combinacoes, por examplo AA, AC, AD, AE...). Porém quero calcular a frequência destas contagens, ...
3 votos
2 respostas
82 visitas

Como converter um txt para csv em perl?

Olá, Rapazeada. Eu sou novo na linguagem perl. Estou precisando converter um arquivo txt para csv. Segue o codigo que consegui fazer até agora. #!/usr/bin/perl my $filename = "interfaces.txt"; ...
-1 votos
2 respostas
136 visitas

Converter arrays para hash

Estou dando algumas manutenções em um sistema em Perl (linguagem que sou noob) e precisei criar um novo módulo de relatório onde preciso resolver a seguinte situação: Tenho 2 arrays com os seguintes ...
1 voto
0 respostas
46 visitas

Como imprimir corretamente caracteres acentuados em arquivo?

Estou fazendo um programa que precisa obter as palavras em um arquivo que tem uma determinada formatação. Está tudo funcionando corretamente exceto que, no arquivo de saída, os caracteres acentuados ...
-2 votos
2 respostas
70 visitas

Dúvida código em Perl [fechada]

O seguinte código retornou erro na execução. Alguém saberia me dizer onde está o erro e como corrigi-lo? Desde já, obrigada. #!/usr/bin/perl for ($i=1; $i<15; $i = $i + 1;){ for ($j=1; $j<...
0 votos
1 resposta
109 visitas

Imprimir uma linha de um array bidimensional em Perl

Tenho um array @data, bidimensional, e quero gravar linha após linha num arquivo. Estou fazendo assim, para cada linha $i: print (ECR $data[$i][0]); for $j (1 .. $lastcol) { print (ECR "," . $data[$...
16 votos
1 resposta
285 visitas

Erro na porta serial do arduino com comunicação entre C e Perl

Tenho que fazer uma linguagem se comunicar com o arduino e vice-versa. Possuo o programa em C e tenho que modificá-lo para esse projeto, a linguagem que terei de usar é Perl. Segue o código que tenho:...
3 votos
1 resposta
82 visitas

Inserir timer perl

Estou precisando colocar um timer nesse perl abaixo: Ele funciona disparando email seguidos ate o final da lista de emails. Exemplo se a lista tiver 1 mil emails ele dispara email por email ate ...
1 voto
0 respostas
171 visitas

Erro referência indefinida - C++

Olá! Estou tentando compilar meu programa em C++ (ele chama uma função escrita na linguagem Perl) e ele está retornando uma longa lista de erros "referência indefinida": testeperl2principal.o: na ...
0 votos
1 resposta
18 visitas

Can't call method "getFirstName" on an undefined value at ConsManagement.pl

Boa tarde. Comecei recentemente a aprender Perl. Estava a praticar com um programa simples orientado a objetos. Esta é a minha classe package Consultant; sub new { my $class = shift; my $...
0 votos
1 resposta
274 visitas

Perl - Passar dados JSON para variável e comparar com IF

Bom dia, Tenho um request que faço em uma API usando GET (LWP::UserAgent), os dados são retornados em um JSON, no JSON são retornados até dois resultados no máximo da seguinte forma : {"status":1,"...
1 voto
1 resposta
90 visitas

Pegando dados de um Json e salvando em outro [Perl]

Boa noite, gostaria de saber se existe a forma de pegar dados de um json e salvar em outro de uma forma automática sem precisar tratar o json como "texto" (regex) no caso, já usei o módulo JSON do ...
5 votos
1 resposta
149 visitas

Perl: Encontrar uma linha em um txt combinando palavras digitadas?

Boa tarde, Tenho um bloco de notas com várias linhas digitadas como por exemplo: ★ Bayonet ★ Bayonet | Autotronic (Battle-Scarred) ★ Bayonet | Blue Steel (Minimal Wear) ★ Bayonet | Case Hardened (...
1 voto
1 resposta
114 visitas

Por que alguns métodos tem ' :: '

Por que alguns métodos como por exemplo do Perl ou Ruby: Net::FTP, tem esses dois pontos; como é a construção dos métodos dessa classe e por que é criada desta forma (com essa sintaxe) e não da forma ...
0 votos
1 resposta
148 visitas

Converter script perl em php

tenho um script em perl funcionando certinho e um script em php tbm funcionando certinho. a unica diferença entre os 2 é que o meu arquivo perl tem um comando que faz um return para o outro script ...
2 votos
2 respostas
82 visitas

Ao desconstruir um one-liner baseado em perl ocorre o erro "Can't modify single ref constructor in scalar assignment"

export dev2='/dev/sdb'; perl -'MDigest::MD5 md5' -ne 'BEGIN{\$/=\1024};print md5(\$_)' $dev2 Retorna o seguinte erro: Can't modify single ref constructor in scalar assignment at -e line 1, near "...
5 votos
1 resposta
167 visitas

Concatenar nova linha

Como adicionar uma nova linha separando os inputs em um script em Perl? Exemplo: Estou usando o seguinte script: #!/usr/bin/perl print 'oi' . '\n' . 'oi,de novo' E chamo pelo bash da seguinte ...
4 votos
1 resposta
128 visitas

Erro openWebmail ao enviar e-mail a uma pessoa

Tenho instalado o Open WebMail, tenho varias contas mais em algumas contas assim que é enviado um e-mail para elas, retorna o erro abaixo, mais eles recebem a mensagem, alguém já viu e ou imagina o ...
1 voto
0 respostas
63 visitas

Dúvia match perl

Preciso de uma ajuda em perl para um match em expressão regular... Porém é o inverso do que geralmente acontece.... Eu preciso fazer um match no seguinte. Tenho o número "(0003[6-9])|(00041)|:.:30/...
1 voto
0 respostas
95 visitas

End of script output before headers - Perl

Por que assim: print "Content-type: text/html\n\n"; print "<H1>Hello World</H1>\n"; Funciona! E assim: my $tpl = HTML::Template->new(filename => 'index.html'); print "Content-...
6 votos
2 respostas
227 visitas

Copiar tudo antes da primeira linha em branco

Eu tenho um arquivo com vários blocos de texto, separados por linha em branco. Ex.: bloco1 bloco1 bloco2 bloco3 bloco3 Preciso de uma solução com sed, awk ou perl que localize a primeira linha em ...
8 votos
2 respostas
697 visitas

Perl para desenvolvimento web

É possível utilizar o Perl para desenvolvimento web? Nesse contexto, a linguagem oferece algum benefício, ou seja, existem problemas que ela resolve de forma mais eficaz do que em outras plataformas?...
1 voto
1 resposta
359 visitas

Como anexar arquivo em e-mail?

Tenho esse código em Perl que envia emails de uma lista com assunto e corpo, preciso de um que faça isso mas que seja possível anexar algum arquivo da minha escolha. Alguém pode me ajudar? #!/usr/...
7 votos
3 respostas
311 visitas

Recuperar grupos de uma expressao regular em Perl

Estou executando esta expressão regular para separar os dígitos de uma versão: ([\d]+)+ Como podem ver neste exemplo, ela funciona suficientemente bem para cobrir minha necessidades. Porém, tenho ...
3 votos
0 respostas
1mil visitas

Script Linux - Procurar, Copiar, Colar e Alterar valos de arquivos te texto [fechada]

Eu Tenho esses 3 arquivos: Access.txt: Arquivo de texto grande, com registros por linha e colunas separadas por " ; ". NewAcess.txt: Lista de novos acessos para adicionar. NewUsers.txt: Lista de ...
3 votos
3 respostas
372 visitas

Como separar em variáveis diferentes um arquivo com múltiplos FASTA

Eu queria saber como posso colocar cada FASTA em uma variável diferente, sendo que todos estão no mesmo arquivo. Ou mesmo colocar em um array e recuperar cada um deles por números. Cada Fasta se ...
0 votos
0 respostas
147 visitas

ERROR Failed to find flength file

To fazendo um script de upload funcionando tudo certo, mas o upload não funciona. Dá este erro: Failed to find flength file O cgi-bin/upload.cgi está abaixo: #!/usr/bin/perl -w my $TEMP_DIR = '/...
0 votos
0 respostas
83 visitas

Função em Java equivalente a pack("v",int) em Perl/PHP

Gostaria de saber se existe alguma função no Java equivalente a função pack("v",numero) do Perl e PHP. No perl/php: pack("v",numero) = unsigned short (always 16 bit, little endian byte order) No ...
1 voto
2 respostas
1mil visitas

Analisando consumo de recurso por script

Tenho um servidor com o S.O Ubuntu Server 12.04 LTS, nessa maquina eu possuo o apache2 com o PHP5 e o PERL instalado, porém ela consume muito recurso de CPU, gostaria de saber se é algum script com ...
2 votos
1 resposta
159 visitas

Como faço para retornar a quantidade de linhas que aparecem com um determinado começo?

Eu queria abrir um documento e fazer com que ele retornasse para mim o último número de uma linha que contem '>' como referência. Isso de todas as linhas que tenham esse '>'. ou que ele lesse a ...
1 voto
1 resposta
87 visitas

erro na comparaçao de binários em C

Tenho um programa em Perl que conecta num socket, recebe binários neste socket, lê os binarios recebidos, compara com outros binários em um buffer para eu saber se existem esses binários no buffer ...