February 22, 2008
perl: ln-s url redirector
Tonight was a sleepless night and i was reading perl scripts.
this one redirect url with one shorter, it was ln-s.net, my fav <3
script was almost usefull, just a weak: it use *always* a page :-/
not to bad, i have edited it using ARGV parameter:
die "Usage: ln-s.pl $url" if $#ARGV > 0 && $#ARGV < -1;
$url = $ARGV[0];
this lines instead of
$url = 'http://web.morons.org/article.jsp?sectionid=1&id=1';
this is a nopaste of my script.
this is how it work:
$ perl ln-s.pl http://www.deelab.org/
status: 200
message: http://ln-s.net/1_w$
greetings 