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.
42
perguntas
-1
votos
2
respostas
110
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
179
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
115
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 ...
0
votos
2
respostas
32
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
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
81
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, ...
-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
97
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[$...
3
votos
2
respostas
80
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
129
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
44
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 ...
3
votos
1
resposta
69
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
170
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
17
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
266
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
87
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 ...
2
votos
2
respostas
122
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 ...
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 ...
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
547
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 ...
1
voto
1
resposta
112
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
143
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 ...
5
votos
1
resposta
151
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
125
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 ...
16
votos
1
resposta
282
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:...
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
91
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
214
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 ...
1
voto
1
resposta
328
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/...
2
votos
2
respostas
81
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 "...
10
votos
3
respostas
14mil
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 ...
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
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 ...
8
votos
2
respostas
684
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?...
0
votos
0
respostas
146
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
82
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 ...
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 ...
3
votos
3
respostas
364
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 ...
2
votos
1
resposta
137
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 ...