Posts Tagged ‘Perl’

Rapidshare Perl Upload API

Thursday, June 26th, 2008

Not many people know about it, but the file hosting service rapidshare.com provides a perl script to upload files to their servers. They distribute it here: http://images.rapidshare.com/software/rsapi.pl.

If you have ever used it, or are trying it out right now, you’ll notice it is but-ugly. The script isn’t meant to be actually used (AFAIK) but is more of a prove of concept where other programmers can base themselves up to write their own applications to upload to rapidshare. I adjusted the script a little to use myself. Nothing changed in the internals, but I added a progress meter and upload speed.

A small example of the output now is:

[  1%]    896000 of  71061919 bytes sent at [Current/Global:  73.80 /  63.05 (KB/s)]
[  1%]   1024000 of  71061919 bytes sent at [Current/Global:  58.13 /  62.30 (KB/s)]
[  1%]   1152000 of  71061919 bytes sent at [Current/Global:  63.66 /  62.46 (KB/s)]
[  1%]   1280000 of  71061919 bytes sent at [Current/Global:  58.37 /  61.98 (KB/s)]

Upload Speed statistics may be a bit of. it’s more of an indication anyway…

The source of my ‘hardly’-improved version can be found here:
Rapidshare Perl API (Improved) (Zip File).