我想设置一个Perl脚本,将通过条纹处理信用卡收费使用Net::Stripe
。“无效字符串”使用网::条纹
我能够成功申请令牌,但是当我使用该令牌后的收费,我得到这个错误:
Error: invalid_request_error - Invalid string: {"exp_month"=>"12", "exp_year"=>"2021", "object"=>"card"} at Stripe.pm line 637
这里是我的代码
$API_KEY = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
my $stripe = Net::Stripe->new(
api_key => $API_KEY,
debug => '1',
debug_network => '1'
);
my $card_token = $stripe->post_token(
card => {
number => $FORM{'Credit Card #'},
exp_month => $FORM{'Expiration Month'},
exp_year => $FORM{'Expiration Year'},
cvc => $FORM{'Credit Card Security Code'}
}
);
print Dumper($card_token);
try {
my $charge = $stripe->post_charge(
amount => $amount_of_charge_in_cents,
currency => 'usd',
card => $card_token,
description => 'ABC Charge',
customer => $FORM{'Name'}
);
}
catch {
warn "caught error: $_"; # not [email protected]
}
我应该是使用$card_token
以外的值作为卡片值?
令牌是一个对象还是它包含一个ID?最终,为了收费,你只关心id(例如'tok_xxx')。 – korben