Comentar - SAPO developers blog

« post anterior | home | post seguinte »

Terça-feira, 28 de Julho de 2009

Existem já bindings para o PunyURL em Perl e em PHP.

Em Perl, a distribuição WWW::Shorten::PunyURL permite criar links comprimidos de uma forma simples e rápida:

    use WWW::Shorten::PunyURL;

    my $punyurl = WWW::Shorten::PunyURL->new( url => $long_url );
    my $short_url = $punyurl->shorten;

É também possível, a partir de um url comprimido, aceder à sua versão original:

    my $punyurl = WWW::Shorten::PunyURL->new( url => $short_url );
    my $long_url = $punyurl->long;

my $long_url = $punyurl->long;

Em PHP, a classe PunyURL oferece-nos o comportamento homónimo:

    <?php

    require_once("punyurl.class.php");

    $shorten=PunyURL::short("http://sapo.pt");
    $original=PunyURL::long("http://b.qz.sl.pt");

    echo 'Puny URL: '.$shorten['puny']."<br>";
    echo 'ASCii URL: '.$shorten['ascii']."<br>";
    echo 'Preview URL: '.$shorten['preview']."<br><br>";
    echo 'Original URL: '.$original['url'];

    ?>