使用::条的“无效字符串”

Question

我正在尝试设置一个Perl脚本，该脚本将使用Net:：Stripe通过Stripe处理信用卡费用。

我能够成功请求令牌，但当我使用该令牌过帐费用时，出现以下错误：

错误：无效的\u请求\u错误-无效字符串：{“exp\u month”=

这是我的密码

$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

多亏了korben，我成功地修改了我的代码，只使用返回的令牌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，并将“名称”添加到卡令牌代码中。

Answer 2

Stripe API调用Create a card token（由post_token包装）的文档说明需要以下字段

exp_month
exp_year
number
currency
cvc

但你们只提供了其中的四个