Új hozzászólás Aktív témák

• #63 Mijo tag jeszi #62

  Új Válasz 2014-06-03 17:49:18 #63

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mijo

  tag

  válasz jeszi #62 üzenetére

  Szia!
  A suttyó megoldást alább láthatod:

  my ($acknowledge, $error_number, $error_text);
  my %net_ucp_config = (
  SMSC_HOST => '111.111.111.111',
  SMSC_PORT => 2222,
  SENDER_TEXT => '+36111111111',
  WARN => 1,
  FAKE => 0
  );
  
  $emi = Net::UCP->new( %net_ucp_config )
  || Net::UCP->new( %net_ucp_config )
  || Net::UCP->new( %net_ucp_config )
  || die( "Failed to create SMSC object ".$! );
  
  $emi->open_link() || die($!);

  Ha általánosan kell ez az ismétlés, lehet valami ilyennel próbálkozni:

  sub retry_net_ucp {
  my $obj = shift;
  my $method = shift;
  $obj->$method( @_ )
  || $obj->$method( @_ )
  || $obj->$method( @_ )
  || die "Error during $method on $object :".$!;
  }

  Üdv: Mijo

Új hozzászólás Aktív témák