Foro - Perl en Español

Publicado: **2015-01-22 08:44 @405**

Estoy integrando mi sitio con stripe, el código es sencillo y he encontrado el módulo Perl (Business::Stripe).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $stripe = Business::Stripe->new(
   -api_key => 'c6EiNIusHip8x5hkdIjtur7KNUA3TTpE'
);
 
$stripe->charges_create(
    amount => 400,
    card => 'tok_5EuIyKyCTc0f2V',
    description => 'Ice cream'
) and return $stripe->success;
 
print $stripe->error->{message}, "\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Les explico: quiero modificar esto, de modo que pueda manejarlo de este modo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

IF (SUCCESS){

HAGO ALGO 

}

ELSE {

DEVUELVO ERROR

}Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Pueden ayudarme, por favor?

Publicado: **2015-01-22 09:08 @422**

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $stripe = Business::Stripe->new(
   -api_key => 'c6EiNIusHip8x5hkdIjtur7KNUA3TTpE'
);
 
if ($stripe->charges_create(
    amount => 400,
    card => 'tok_5EuIyKyCTc0f2V',
    description => 'Ice cream'
)) {
    ...;    # HACER ALGO
}
else {
    print $stripe->error->{message}, "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2015-01-22 09:35 @441**

¡Gracias, explorer!

Foro - Perl en Español

Pequeño problema con return

Pequeño problema con return

Re: Pequeño problema con return

Re: Pequeño problema con return