はじめまして。 Perlのネットワークプログラムについての質問なのですが、 あるサーバからあるサーバへデータをそのまま送るだけなのですが、 while (<$sock_recv>){ print $sock_send $_; } このときに受信側がユーザー操作によって受信をキャンセルされると、 >Can't use an undefined value as a symbol reference at ./test.pl line 46, <CLIENT> chunk 8322. と、エラーが出てプログラムが強制終了してしまいます。 強制終了せずに、受信側の受信キャンセルを検出する方法がありましたら 是非おしえてください。よろしくお願いします。 |