Search the Community
Showing results for tags 'perl'.
-
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.
-
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
-
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);
-
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
-
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
-
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?
-
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 tamb
-
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);
-
Se querem aprender Perl, poderiam ter começado por ter ido ao Portuguese Perl Workshop 2011 (http://workshop.perl.pt/ptpw2011/). Onde houve um curso de iniciação ao Perl, dado pelo Nuno "Smash" Carvalho (que é um dos membros mais destacados da nossa comunidade). Mas se não puderam ir ao curso, podem ainda assim aprender Perl. A pensar nisso, outro destacado membro da comunidade de Perl (e conhecido autor de livros técnicos de Perl), fez um blog post com algumas dicas sobre como aprender Perl: http://www.modernperlbooks.com/mt/2011/09/how-to-learn-perl.html O post refere alguns dos tu
-
http://showmetheco.de/articles/2012/7/perltuts-interactive-perl-tutorials.html http://perltuts.com/tutorials/
-
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
-
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
-
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;
-
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 =~
-
Boa tarde estou a precisar de uma ajudinha a fazer um split, tenho esta url: "do.asp?name=mouse&year=1990" preciso de tirar o "mouse" e o "1990", com certeza existe uma maneira muito simples de fazer isto em perl xd, Cumprimentos
-
http://blogs.perl.org/users/shawnhcorey/2012/09/a-look-at-braces.html
-
Para quem se interessa por parsing: http://blogs.perl.org/users/jeffrey_kegler/2012/07/prefixing-the-ruby-slippers-and-the-bigfoot-maneuver.html
-
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!
