danielmantovani

Pessoal, no site dos São Paulo Perl Mongers existe uma quantidade significativa de artigos com alto teor técnico. http://são-paulo.pm.org/artigos

Olá, se isso for um XML, use o XML::Simple que ele cuidará de transformar isso numa estrutura Perl. http://search.cpan.org/~grantm/XML-Simple-...b/XML/Simple.pm #!/usr/bin/perl use strict; use warnings; use XML::Simple; use Data::Dumper; my $xs = XML::Simple->new; my $ref = $xs->XMLin('meuxml.xml'); print Dumper $ref; Depois de transformado numa estrutura Perl, você verá que como mágica o seu problema será resolvido.

Sim, é só você usar placeholder. http://www.perlmonks.org/?node_id=7548 Boa leitura.

Eu dei uma leitura rápida no manual do IO::Socket::INET e lá diz o seguinte: http://perldoc.perl.org/IO/Socket/INET.html Também achei mais 3 referências no Google, http://www.linuxquestions.org/questions/pr...in-perl-354499/ http://www.justskins.com/forums/non-blocki...-for-10990.html http://coding.derkeiler.com/Archive/Perl/c...04-11/1915.html Boa leitura.

É claro que tem! E é super fácil! Você pode usar o LWP::Simple para pegar a imagem. #!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $imagem = get("http://url/imagem.jpg"); ... E depois usar o Image::Magick, http://www.imagemagick.org/script/perl-magick.php http://search.cpan.org/~jcristy/PerlMagick-6.67/Magick.pm.in

Bom vamos lá, primeiro para comparar strings não usamos o operador "==". Depois, após a pessoa digitar "sair", terá um "\n" nova linha na string. Então $c eq "sair" nunca será verdadeiro. Para isso você precisará usar a função chomp() que retira o "\n" do final da string. Aqui segue um programa que eu escrevi rápido sem testar, #!/usr/bin/perl use strict; use warnings; sub abrir { my $x = shift; open my $fh, '>', $x or die $!; while ( my $line = <$fh> ) { print $line; } return 1; } { while (1) { chomp(my $a = <STDIN>); if ( $a eq 'sair' ) { print "Você está saindo do programa"; last; } else { if ( -e $a ) { print "Você está abrindo o arquivo: $a"; abrir($a); } else { print "O arquivo: $a não existe\n"; } } } }