What would it take to get a thread for perl?

[jjshoe]

The following is code that can be run to take a long url in as input on the command line and it will spit out a short url. usefull when you need to give someone a long link over the telephone or when long urls look ugly

#!/bin/perl

use WWW::Mechanize;
use URI::Escape;

my $mech = WWW::Mechanize->new();
my $encoded = uri_escape(@ARGV);

$mech->get("http://www.tinyurl.com");
$mech->field("url", $encoded);
$mech->submit();
my $page = $mech->content();

my ($result) = $page =~ /<small>\[<a href="(.*?)"/;

print "$result\n";

[jjshoe]

I'm betting that code can get smallar too. i'm sure there is a module for tinyurl but i never bothered to look.

[nder]

Reading that now. Might have to continue tomorrow thought, getting tired. Been doing alot of reading.

So does your script retrieve entire threads, the last post, or the posts that have been made since your last check?

I'm assuing its CLI, so what utilities have you written? Eg. does your tool have subscription capabilities? Hey, I'm thinking of integrating this with Growl! That way I'll get notifications when replies are posted to threads I'm monitoring.

[leoandru]

Yeah, thanks i was just about to ask that, cuz i see a lot of intersting scripts on the site, but coulnt identify which one u were using. There are some really intersting perl scripts there. im getting the ones used to send sms. Thanks again i'll let u know what think about them.

[Arch_Angel]

Guys, if you want to talk perl, start a new thread in the General Programming forum. Thanks.

[jjshoe]

indeed, smaller we get

#!/bin/perl

use WWW::Shorten::TinyURL;

my $short_url = makeashorterlink(@ARGV);

print "$short_url\n";

the previous example is still good for seeing how www::mechanize works though

[jjshoe]

arch_angel perhaps you could move this thread there? or perhaps you could create a perl thread and move it there too?

[nder]

I like mechnize and will be playing with it. I dont think this will get you your perl thread, but you have attracted at least two followers of Perl

[owen]

Note that the size of a program isn't entirely the amount of lines it takes you to write a program but the sum of the lines in the libraries that the program encompasses (even if you cannot see the libraries).

[pogi_2nr]

so its all about the perl hype now eh... perl is my favorite scripting language.
I have never tried python out before though.