Search the Community

Boa noite, sou novo no PERL, estava a precisar de ajuda na construção da seguinte REGEX PERL, dada a expressão $res = "100\$*10%" efectuar o calculo atraves de expressoes regulares (resultado = 10), tentei isso mas dá erro... $res="100\$*10%"; $res =~ s/(\d)\$(\d)\$/$1\+$2*10%/; printf("\n\nRes com printf: %.2f\n",eval($res));

Olá a todos! Estou iniciando meus estudos na linguagem Perl porem estou com problemas para achar uma IDE para isso! Procurei usar o Padre(http://padre.perlide.org/) mas não entendi como funciona, ja tentei tambem usar um plugin de Perl para o Eclipse porem tambem não consegui instala-lo. Não sou iniciante em programação, ja tenho nivel intermediario em C e em Python. Se alguem poder me recomendar uma IDE para Perl que seja facil de usar... Ou, se alguem poder me ensinar como usar o Padre, tambem sera valido! Desde já agradeço!

Boa tarde, sou iniciante em PERL, e gostaria de saber se me poderiam ajudar na seguinte questão: Dado um ficheiro .txt que contém a seguinte informação Ana Maria;F;34:Porto Joao Almeida;M;29;Vila Nova de Gaia Rita Silva;F;17;Maia Pedro Tavares;M;42;Matosinhos Joana Sousa;F;19;Gondomar Calcular a média de idades das pessoas do sexo feminino maiores de 18 anos (>=). Utilizando expressões regulares para determinar o sexo e a idade das pessoas. Aqui está o código que fiz: #!usr/bin/perl #Abrir Ficheiro open (FICH,"input.txt") || die "Erro ao abrir o ficheiro"; $idades = 0; $c = 0; #Percorrer o ficheiro linha a linha while($linha = <FICH>) { #Retirar todos os \n chomp($linha); #Partir o meu ficheiro por ; ($numero,$nome,$sexo,$idade,$tlm) = split (";",$linha); #Verificar se a pessoa é do sexo feminino if($sexo eq 'F') { $idades += $idade; $c++; } } #Calcula MédiaA $media_idades = $idades/$c; print "A media de idades das pessoas do sexo feminino = $media_idades\n"; close(FICH); A minha questão está como faço para determinar o sexo e a idade usando expressões regulares!!! Agradeço desde já pela ajuda!!!

Boas pessoal. Preciso de uma pequena ajuda para resolver um problemazinho. Quero em perl receber uma string com o nome e data de nascimento exemplo: "Ricardo Lopes;1992-01-01" Em que o objectivo é garantir que os dados estão bem inseridos(nome, seguido de data de nascimento) e que idade tera no ano de 2015. Com a string exemplo é valida o output esperado é: Nome e data valida e em 2015 tem 23 anos. Para resolver isto tem de ser com expressoes regulares, agradeço desde ja ajuda 😉 Cumps.

olá. alguem que me explique como que eu posso obter os valores de uma hash perl usando referencia pk até agora eu consigo obter as chaves mas os valores das chaves vêm sempre por referencia e eu quero obter os seus valores open(FICH,"ficheiroTesteModelo.txt") || die "erro abrir o ficheiro"; my %hash; while($linha=<FICH>){ chomp($linha); my @array = split(";",$linha); $hash{$array[0]}; push(@{$hash{$array[0]}},\@array ); } @lista = keys(%hash); foreach $chave (@lista){ print "valor= ".$chave."=>".$hash{$chave}."\n\n\n"; } close(FICH);

tenho a data neste formato -> 2014-06-28T13:27:01.043Z e usei estes carateres {'\s+','_'),'.','-'} especial para validar a referida data mas não está a me dar o resultado esperado alguem que me ajude por favor obs: isso está no formato datetime

Boas alguem sabe atravez de uma expressao regular validar a hora ? tipo 23:44:56 ? Abraço

Boas! Se eu declarar uma varivel com my ela torna-se varivavel local? Para que serve o my? use strict; my $string;#variavel global? sub ex1{ my $str;#variavel local? }

Boas! s/(<pattern>*( <expr>) <pattern>*)+/(<subs>*$seq<subs>*)+/ $str="O Mr. quando se ri, mais parece uma Miss"; $str =~ s/(.*)Mr\.(.*)Miss/$1Sr\.$2Menina/; Resultado: O Sr. quando se ri, mais parece uma Menina Alguem pode explicar o porque deste resultado?

Boa noite pessoal, Gostaria que me ajudassem com o seguinte problema? "Dado um valor escalar $str=”120*20%” faça um programa que efectue o respectivo calculo e mostre o resultado no ecrã. Considere a utilização de expressões regulares para qualquer transformação que seja necessária." Minha solução passaria por: 1-Retirar o valor da percentagem (%) da string; 2-Passar o 1º numero para uma variável; 3-Mesmo procedimento para o 2º número; 4-Verificar o operador e realizar o respectivo calculo. Contudo não sei se esta é a abordagem correcta para resolver o problema, e se existe uma forma mais acessível de resolver o mesmo. Digam da vossa justiça. Cumprimentos.

Boas! Eu tenho este codigo. #!/usr/bin/perl open(FICH,"dados") || die "erro abrir o ficheiro"; while ($linha=<FICH>){ chomp($linha); @list= split(";",$linha); my @valor=($list[1],$list[2],$list[3],$list[4],$list[5]); $ref=\@valor; if($hash{$list[0]} ne undef){ my @newValor=($hash{$list[0]},$ref); $hash{$list[0]}=\$newValor; } else{ $hash{$list[0]} =$ref; } } #print $hash{435353}."\n"; O que queria era imprimir o conteudo da hash, mas nao estou a conseguir. A minha %hash é contituida por uma chave e por um valor, sendo este valor uma referencia para um array. Pode tambem acontecer o valor ser uma referencia para um array, e esse mesmo array ter uma outra referencia para outro array. Ja andei com foreach mas nao consegui. Agora esta a tentar imprimir o conteudo de so uma coisa.

Boas noites caros colegas Recebi ontem uma ordem de trabalho que me está a deixar realmente confuso. Seria possivel alguem me explicar exactamente o que é para fazer nisto? Tema: Web-servers Objetivo Pretende-se o desenvolvimento, instalação e configuração de uma solução de serviços para umas das máquinas apresentadas no cenário em anexo; deverá ser otimizado todas as tarefas automáticas através da utilização de scripts em perl. Execução Pretende-se que cada pessoa escolha um de entre os servidores apresentados no cenário em anexo, elabore a lista de pressupostos, serviços e configurações que acharem relevantes e, seguidamente, levar a cabo a implementação da solução encontrada, tendo como prossupostos base obrigatórios e transversais a todas as máquinas: · Disponibilizar um painel de administração via Web; · Acesso a uma Shell segura para administração; · Sincronização automática da data/hora; · Gestão de backups centralizados; · Permitir monitorização via rede; · Enviar log’s para servidor central. Aguardo o vosso feedback, Alexandre

Olá estou a escrever um script para executar uma determinada função caso detecte que existe um host em baixo registado na BD. Para já ele só vê na BD e apresenta os hosts em baixo: #!/usr/bin/perl use strict; use DBI; use warnings; my $username='user'; my $pass='pass'; my $db='alarms'; my $table= ("test"); my $dbh = DBI->connect( "dbi:mysql:$db", $username, $pass, { 'PrintError' => 1, 'RaiseError' => 1 } ); my $rs = $dbh->selectall_arrayref("SELECT host,alert FROM $table where alert='down'"); $dbh->disconnect(); foreach my $myRow (@$rs) { print "@$myRow\n"; } Como faço para ele executar um comando se o host for igual a x ou y?

Ola Eu vou iniciar um codigo para ler um ficheiro_1 que tem esta estrutura: atatacacacatacat taccagatacagatc acagatacagtatag gcccagatagacac e de seguida ele vai procurar no ficheiro_2 (ficheiro com varias sequencias) se a linha 1 do ficheiro_1 existe no ficheiro_2, depois procura se linha 2 se encontra no ficheiro_2 e assim ate ao fim do ficheiro_1.... Se ele encontrar a sequencia ele guarda em COM.txt se nao ele guarda em NOV.txt Eu estruturei algo do genero o que vos parece? o que acham que devo modificar no codigo? Obrigado #!/usr/bin/perl use strict; use warnings; use autodie; # Script para ler dois ficheiros e verificar se sequencia do ficheiro 1 existe no ficheiros 2....Se sim guardar em livraria_comment se nao existir guardar na livraria_nova my $f1 = shift || "/Users/ssofia/Desktop/test1.txt"; my $f2 = shift || "/Users/ssofia/Desktop/test2.txt"; my $outfile_1 = "/Users/ssofia/Desktop/RESULTS_1.txt"; my $outfile_2 = "/Users/ssofia/Desktop/RESULTS_2.txt"; my %results; open my $file1, '<', $f1; while (my $line = <$file1>) { $results{$line} = 1 } open my $file2, '<', $f2; while (my $line = <$file2>) { $results{$line}++ } open (OUTFILE, ">$outfile_1") or die "Cannot open $outfile for writing \n"; open (OUTFILE, ">$outfile_2") or die "Cannot open $outfile for writing \n"; if ($line_file1 eq $file2) { OUTFILE $line_file1 ">$outfile_1" ; } else { print OUTFILE $line_file1 ">$outfile_2"; }

Precisava de ajuda num script que estou a fazer. Quero extrair de uma pagina 3 campos, que contem cerca de 200 registos por pagina. Consigo extrair os dados da maneira que quero, contudo apenas me extrai o primeiro registo, já andei as voltas e supostamente estaria tudo correcto Excerto do codigo onde guardo as coisas: open(INFILE, "<teste.txt") || die ("Não foi possivel abrir o ficheiro temporario!"); while (<INFILE>) { if (my ($nome) = m|(<span id=".*?_lblHeader".*?.*?.*?<\/span>)|g) { $nome =~ s|<span id=".*?_lblHeader".*?.*?>|<nome>|sg; $nome =~ s|</span>|<nome>|sg; print "$nome\n"; print OUTFILE "$nome\n"; print testexml "$nome\n"; } } Resultado final: <nome>Teste<nome> Eu no script faço um get a url da pagina e guardo o conteudo da pagina no teste.txt, depois como podem ver inicio o ciclo para sempre que encontrar aquelas tags guardar o valor. Sei que o problema estara no ciclo que mal guarda a variável avança. Alguem me poderia ajudar? ainda estou muito verde no perl

Contenha uma função para identificar quantos alunos estão inscritos por disciplina estou com duvida em fazer esta função alguem pode me ajudar? #!/usr/bin/perl #ler ficheiro para uma lista associado ao numero do aluno system(clear); open (FICH,"alunoII.txt")|| die "erro abrir o ficheiro"; while($linha=<FICH>){ chomp($linha); ($num,$nome,$disciplina)=split(";",$linha); print "$disciplina\n"; } close(FICH);

http://blogs.perl.org/users/shawnhcorey/2012/09/a-look-at-braces.html

A edição de 2012 da Portuguese Perl Workshop vai se realizar no Departamento de Informática da Universidade do Minho em Braga, no dia 28 de setembro. O evento de um dia deste ano vai se dividir entre: Tutorial de Moose, por Pedro Melo Sessão de apresentações: TBA Hackathon: TBA A participação na workshop é gratuita para membros da APPP e terá um custo de €20 pera os restantes participantes. Para mais informações de como se pode fazer sócio da APPP consultar esta página. Para notícias e actualizações visite este site, consulte a feed ou siga no twitter.

Existe uma ideia (errada), que o Perl já não é usado e que já não se faz nada novo em Perl. Por isso vou deixando aqui alguns exemplos que demonstram que isso não é verdade. Amazon.com LOVEFiLM (parte da Amazon) IMDB (parte d Amazon) Duck Duck Go Lacuna Expanse Craiglist cPanel Thinkgeek Request Tracker Booking.com Frozen Bubble SpamAssassin Bugzilla Hive Minder del.icio.us

Joel Berger, um dos bloggers de Perl mais conhecidos, criou um site dedicado a Perl para as áreas cientificas. O site contém ligações para vídeos de workshops e apresentações, documentação e software. Tudo obviamente relacionado com recursos para cientistas. http://perl4science.github.com/

Antes de mais, devo dizer que isto, não é um anuncio de emprego. Em Portugal, há uma enorme falta de programadores de Perl, que se acentua ainda mais para programadores com experiência. Por isso se gostam de Software Livre, se gostam de uma linguagem de programação divertida, que tem uma comunidade muito forte a nível mundial, se gostam trabalhar com sistemas *nix e em algumas das maiores empresas de Portugal (as empresas utilizadoras de Perl). Então aprendam e pratiquem Perl!

http://perl-begin.org/

http://showmetheco.de/articles/2012/7/perltuts-interactive-perl-tutorials.html http://perltuts.com/tutorials/

Porque dizem que a linguagem "Perl" é a linguagem dos 'hackers'?

A editora Wrox, resolveu publicar on-line, num site da O'Reilly, por um periodo de tempo limitado o livro Beginning perl, do Ovid Poe (um dos Perl Hackers mais conhecidos). Podem ler em: http://ofps.oreilly.com/titles/9781118013847