[ic] {Spam?} Simple Bitcoin exchange rate calculator.

Rick Bragg lists at gmnet.net
Wed Sep 14 18:45:11 UTC 2011


Hi,

Here is a simple Bitcoin exchange calculator that gets data from
bitcoinexchangerate.net  It only grabs the USD rate.  It takes "usd" as
an input and calculates the exchange.  If for some reason the
bitcoinexchangerate.net site is down, or has changed, it will return
nothing at all.  Other wise it should return the exchange.  It requires
WWW::Mechanize and Math::Round

sample usage: [bitcoinexchange usd="100.00"]

Cheers!!
Rick

---------------------------------------------------------

UserTag bitcoinexchange Order usd
UserTag bitcoinexchange addAttr
UserTag bitcoinexchange Routine <<EOR

use WWW::Mechanize;
use Math::Round;

sub {
        
my ($usd) = @_;
 my $url = 'http://bitcoinexchangerate.net';
 my $browser = WWW::Mechanize->new();

 $browser->get($url);
 if ($browser->success()){
    my $text = $browser->content( format => 'text' );
    my @values = split('USD', $text);
    my $val = @values[0];
    $val =~ s/1 Bitcoin =//;
    $val =~ s/[A-Za-z]//g;
    $val =~ s/ //g;
    if ($val =~ /^-?(?:\d+(?:\.\d*)?|\.\d+)$/ ) {
        #Its a number!";
        return nearest (.0001, ($usd / $val));
    } else {
        return;
    }
  }else{ # End of Page success  
    return;
 }  
}
EOR









More information about the interchange-users mailing list