• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

sent

split de uma url

9 posts in this topic

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

0

Share this post


Link to post
Share on other sites

não dá para fazer split com "or", tipo para dividir logo a url nos "?", "=" , "&" assim só tinha que fazer split uma vez

0

Share this post


Link to post
Share on other sites

Oi,

Sim, só tens de fazer a "Regular expression" adequada...

0

Share this post


Link to post
Share on other sites

Apos uma pesquisa sobre essas "regular expressions", descobri que é tão simples quanto:

@array = split "=|&|\\\?",$url2;

baste por operador ou -> "|"

obrigado ;)

0

Share this post


Link to post
Share on other sites

Também podes utilizar:

my $url = ...
my @fields = split /[=&?]/, $url;

0

Share this post


Link to post
Share on other sites

O Perl tem várias coisas a um nível que outras linguagens não têm. Uma é a comunidade; outra é que de certeza que aquilo que tu queres fazer, já alguém fez e partilhou com a comunidade no CPAN; outra ainda é que a filosofia da linguagem assenta no princípio de que há mais que uma forma de fazer a mesma coisa (e os programadores acrescentam que: a tua está errada :(.

Há muitas formas de fazer isso... A formas complicadas são as que te foram sugeridas pelos outros utilizadores (sem demérito pela sua excelente intenção de ajudar).

Mas claro sendo isto Perl, tens diversas formas de fazer isto....

Por exemplo se tiveres a utilizar frameworks como o Catalyst, Mojolicious, ou Dancer, não precisas de te preocupar isso, porque elas tratam disso por ti.

Mas convém lembrar que o Perl já foi conhecido como o "Internet duck tape". E durante alguns anos, parecia que a WWW que tinha conteúdos dinâmicos era toda gerada por scritps em Perl que utilizavam o CGI.pm.

O CGI.pm continua a existir... E melhor que isso, faz parte da biblioteca standard do Perl. Ou seja, desde que tenhas Perl, tens o CGI.pm. Assim sendo a solução mais recomendável para o teu problema é algo como isto:

use strict;
use warnings;

use CGI;

my $url = CGI->new("http://www.portugal-a-programar.org/forum/index.php?action=post;topic=61567.0;last_msg=44648");
my @values = map {$uri->param($_)} $uri->param;

Se souberes exactamente quais os nomes dos parametros que queres também podes obter os seus valores facilmente:

$url->param("nome_do_parametro");

0

Share this post


Link to post
Share on other sites

Deve haver muitas mais opções... A vantagem de utilizar o CGI é que já vem com o Perl.

O URI::Query é um bom módulo e até tem poucas dependências (apenas o MIME::Base64, que vem com o Perl).

0

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now