"無効な文字列" Net :: Stripeを使用

Question

Net::Stripeを使用してクレジットカードの請求を処理するPerlスクリプトを設定しようとしています。

私が正常にトークンを要求するが、私は電荷を投稿するそのトークンを使用する場合、私はこのエラーを取得することができています：ここで

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 $@ 
} 

は私があるべきですカードの値として$card_token以外のものを使用していますか？

Answer 1

（post_tokenによってラップされている）ストライプAPI呼び出しCreate a card tokenの説明は次のフィールドが

exp_month 
exp_year 
number 
currency 
cvc 

を必要であることを述べている。しかし、あなたはkorbenするのみ

Answer 2

感謝の4を供給しています返されたトークンIDだけを使用してコードを正常に修正しました。ID：

$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'}, 
     name  => $FORM{'Name on Card'}, 
    } 
); 
print Dumper($card_token); 

$token_id = $card_token->{id}; 

try { 
    my $charge = $stripe->post_charge(
     amount  => $amount_of_charge_in_cents, 
     currency => 'usd', 
     card => $token_id, 
     description => 'ABC Charge' 
    ); 
} catch { 
    warn "caught error: $_"; # not $@ 
} 

また、既存の顧客のIDである「顧客」の値を削除し、カードのトークンコードに「名前」を追加しました。