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

sent

split de uma url

Recommended Posts

sent

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

Share this post


Link to post
Share on other sites
sent

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

Share this post


Link to post
Share on other sites
sent

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

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

baste por operador ou -> "|"

obrigado ;)

Share this post


Link to post
Share on other sites
falco

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");

Share this post


Link to post
Share on other sites
fvox

Hi.

Só a nível de conhecimento, deixando outra alternativa do módulo CGI... O URI::QueryParam[1]:

$ perl -MURI::URL -MURI::QueryParam -E'my $url = url("http://host.com/?name=fvox");say $url->query_param("name");'
fvox

[1] https://metacpan.org/module/URI::QueryParam

[]'s


"Strength of the world, the one true beholder...Ice in my veins, for those who've died."

Share this post


Link to post
Share on other sites
falco

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).

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

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.