view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/test_perm.c
t/test_perm.pl
t/test_perm2.pl
t/test_pi.pl
t/test_pivot.pl
t/test_resolve_bigfloat.pl
t/test_speed_pushsort.pl
Tools.pm

META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

META.json  view on Meta::CPAN

            "Compress::Zlib" : "0.01",
            "MIME::Base64" : "0.01",
            "Test::More" : "0.01",
            "Time::HiRes" : "0.01",
            "perl" : "5.006002"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.27",
   "x_serialization_backend" : "JSON::PP version 2.27300"
}

Tools.pm  view on Meta::CPAN

  print $F "#   File generated by Acme::Tools version $VERSION\n";
  print $F "#   Updated every 6th hour on http://calthis.com/currency-rates\n";
  print $F "NOK 1.000000000\n";
  my $amount=1000;
  my $data=qx($exe{curl} -s "https://www.x-rates.com/table/?from=NOK&amount=$amount");
  $data=~s,to=([A-Z]{3})(.)>,$2>$1</td><td>,g;
  my @data=ht2t($data,"Alphabetical order"); shift @data;
  @data=map "$$_[1] ".($$_[4]>1e-2?$$_[4]:$$_[2]?sprintf("%.8f",$amount/$$_[2]):0)."\n",@data;
  my %data=map split,@data;
  my $json=qx( $exe{curl} -s https://api.coinmarketcap.com/v1/ticker/ );
  eval "require JSON;"; croak if $@;
  my $arr=JSON::decode_json($json);
  for my $c (qw(BTC LTC XBT ETH XRP BCH ETC)) {
      my @a=grep$$_{symbol} eq $c,@$arr;
      next if @a != 1 or !$a[0]{price_usd};
      push @data, "$c ".($a[0]{price_usd}*$data{USD})."\n";
  }
  #die srlz(\@data,'data');
  print $F sort(@data);
  close($F);
  qx($exe{ci} -l -m. -d $fn) if -w"$fn,v";
}