- PVSM.RU - https://www.pvsm.ru -

API к zadarma.com на perl и python

API к zadarma.com на perl и python - 1
У zadarma.com есть API [1] к их сервисам на языке php, но на моих серверах этот язык отсутствует. Ставить php ради обращений к задармам желания не было. Поискал в интернете не нашел ничего для perl и python.
Написал для себя, что получилось под катом.

Perl

Получение баланса через API

#!/usr/bin/env perl 
use strict;
use warnings;
use utf8;
use feature 'say';
use Digest::SHA qw(hmac_sha1_hex);
use MIME::Base64 qw( encode_base64 );
use Digest::MD5 qw(md5_hex);
use LWP::UserAgent;
use Tie::Hash::Sorted;
use Data::URIEncode qw(complex_to_query);

#-------------------------------------------------------------------------------
#  Конфиг API,  путь для обращения и данные для передачи
#-------------------------------------------------------------------------------

my $api_key    = 'В личном кабинете zadarma.com -> API поле Key';
my $secret_key = 'В личном кабинете zadarma.com -> API   Secret';
my $path       = '/v1/info/balance/';
my %data       = ( 'format' => 'json', );

#-------------------------------------------------------------------------------
#  Обработка и формирование авторизационной строки
#-------------------------------------------------------------------------------

tie my %sorted_data, 'Tie::Hash::Sorted', 'Hash' => %data;
my $query_string = complex_to_query( %sorted_data );
my $data         = $path . $query_string . md5_hex($query_string);
my $digest       = hmac_sha1_hex( $data, $secret_key );
my $auth         = $api_key . ':' . encode_base64($digest);

#-------------------------------------------------------------------------------
#  Отправка запроса и получение ответа через LWP
#-------------------------------------------------------------------------------

my $browser    = LWP::UserAgent->new;
my @ns_headers = (
    'User-Agent'    => '-',
    'Authorization' => $auth,
);

my $url = 'https://api.zadarma.com' . $path . '?' . $query_string;
my $response = $browser->get( $url, @ns_headers );
if ( $response->is_success ) {
    say $response->decoded_content;
}
else {
    die $response->status_line;
}

Результат:

Ответ в формате json

{"status":"success","balance":53.4024,"currency":"USD"}

Для примера, есть метод "/v1/statistics/ — получение общей статистики", надо передать период от и до, чтобы получить статистику за период. Изменим несколько строк:

my $path       = '/v1/statistics/';
my %data       = (
    'format' => 'json', 
    'start'  => '2016-01-02',
    'end'    => '2016-03-04'
);

Остальное остается без изменений.
По аналогии и с остальными методами.

Python

Получение баланса через API

#!/usr/bin/python
# -*- coding: utf8 -*-
from hashlib import sha1, md5
from collections import OrderedDict
from urllib import urlencode
import hmac
import requests

#-------------------------------------------------------------------------------
#  Личные данные API и путь для обращения
#-------------------------------------------------------------------------------
api_key      = 'В личном кабинете zadarma.com -> API поле Key'
secret_key   = 'В личном кабинете zadarma.com -> API   Secret'
path         = '/v1/info/balance/'
data         = { 'format': 'json'}


#-------------------------------------------------------------------------------
#  Обработка и формирование авторизационной строки
#-------------------------------------------------------------------------------

od = OrderedDict(sorted(data.items()))
query_string = urlencode(od)
h = md5(query_string)
data = path + query_string + h.hexdigest() 
hashed = hmac.new(secret_key, data, sha1)
auth   = api_key + ':' + hashed.hexdigest().encode("base64")

#-------------------------------------------------------------------------------
#  Отправка запроса и получение ответа
#-------------------------------------------------------------------------------
headers = {'User-Agent': '-', 'Authorization': auth}
url = 'https://api.zadarma.com' + path + '?' + query_string;
r = requests.get(url, headers=headers)
print(r.text)

Результат:

Ответ в формате json

{"status":"success","balance":53.4024,"currency":"USD"}

В API есть методы, которые ждут дополнительных параметров при приеме.
Для примера, есть метод "/v1/statistics/ — получение общей статистики", надо передать период от и до, чтобы получить статистику за период. Изменим несколько строк:

path = '/v1/statistics/'
data = { 'format': 'json', 'start': '2016-03-03', 'end': '2016-05-05'}

Остальное остается без изменений.
По аналогии и с остальными методами.

Github

Автор: pcdesign

Источник [4]


Сайт-источник PVSM.RU: https://www.pvsm.ru

Путь до страницы источника: https://www.pvsm.ru/python/121347

Ссылки в тексте:

[1] API: https://habrahabr.ru/company/zadarma/blog/264279/

[2] Ссылка на github: https://github.com/Alexmod/perl-zadarma-api

[3] Ссылка на github: https://github.com/Alexmod/python-zadarma-api

[4] Источник: https://habrahabr.ru/post/301356/?utm_source=habrahabr&utm_medium=rss&utm_campaign=best