Reveal shortened URLs Perl script

[henrick]

Piggybacking on irlam's earlier post about a web site that can take a shortened URL like bit.ly/2OjnNe8 and expand it, I wrote a little Perl script that does this on the command line, without having to do all of the clicking and dealing with the google ads/cookies running in the background for each request.

Interaction with the script produces the following concise output:

Enter short URL ('q' to quit): bit.ly/2OjnNe8

Actual expanded URL: http://www.google.com/
Spam detected by: 0/44 services
Request processing delay (as reported by check-user-api.herokuapp.com): 46 ms

If there is interest in this via Likes, I was thinking of adding additional features to it like automation such as for example reading a list of short URLs from a file and outputting multiple expansions automatically, etc... If there is a boat-load of interested, I could even write a GUI version with a button that does all of this using C#/WPF, but that would take me longer of course.

Without further ado, here is Version 1.0 of this Perl script (should work on Windows/Linux/Mac):

To view the content, you need to Sign In or Register.

 

[Ian]

This is really nice man, this would be great if put into a Chrome extension or something similar which automatically ran short-urls through the script.
Know what I mean? So we didn't have too put energy into it and get rid of the effort and spam.

Great share nonetheless!