Perlのorのソケット接続での利用法について

質問

一般的なソケットの接続は次のような書き方になっていると思いますが、connectでundefが帰って来た時にdieではなく、別の接続先に接続するような書き方を探っています。
connect(ファイルハンドル, 接続先) || die;

上記のコードを次のように書き換えてみましたが、接続先1で失敗した場合、接続先2に接続されるかと思いきや、そのままdieしてしまいます。
connect(ファイルハンドル, 接続先1) || connect(ファイルハンドル, 接続先2) || die;

この書き方はどこがまずかったのでしょうか。
また、想定通りに動作させるにはどのように書いたら良いのでしょうか。

Perl初心者で大変恐縮ですが、何卒宜しくお願い致します。

回答No.1

_--_1l1_1_ · ベストアンサー

connect() || connect() || die という書き方が良いかはともかく、
少なくとも2つ目の接続が成功すればdieはしないと思います。

use strict;
use warnings;
use Socket;

my $host1 = 'localhost';
my $port1 = '1234';
my $iaddr1 = inet_aton($host1);
my $sock_addr1 = pack_sockaddr_in( $port1, $iaddr1 );

my $host2 = 'localhost';
my $port2 = '80';
my $iaddr2 = inet_aton($host2);
my $sock_addr2 = pack_sockaddr_in( $port2, $iaddr2 );

socket( my $sock, PF_INET, SOCK_STREAM, 0 ) || die "$!";
connect( $sock, $sock_addr1 ) || connect( $sock, $sock_addr2 ) || die "$!";
close($sock);

お礼

ご回答いただき、ありがとうございます。

その後、何度か試してみましたが、5.12.4 built for darwin-thread-multi-2levelのPerlではいくら試しても同じ結果となり、5.8.8のLinuxで動いているPerlでは想定通りの動きになりました。

何でしょうね、この動きの違い… バグ…?

回答No.2

_--_1l1_1_

一つ目のconnectでソケットが汚れた状態になる?
ソケットを2つ用意(以下の例だとsock1とsock2)して、それぞれconnectに渡すといい(かもしれない)
connect( $sock1, $sock_addr1 ) || connect( $sock2, $sock_addr2 ) || die "$!";