|
Net::POP3 の検索でみましたら login ( [ USER [, PASS ]] ) USER、PASSコマンドの両方を送信します。... メールボックスのなかのメッセージ数を返します。 しかしサーバーにメッセージが何もなければ文字列"0E0"を返します。 これはブール値コンテキストでは trueになりますが、 数値コンテキストでは0です。 指定したユーザがサーバーで認証できなければ、undefが返されます。 ----------------------------------- とあったのですがバグということでしょうか。 Mailが無いことを確認できる方法は有りますでしょうか。 その場合はundefのエラーを回避するというスクリプトを 書けばよいようにも思っています。 |
|
>>4811 mac pop3-client-Net::POP3.pl の if ( $auth_check == undef ){ は誤った書き方で、正しくは if ( ! defined $auth_check ){ です (以前は undef かどうかのチェック方法を誤解していたため)。 これだとどうなりますか。 |
|
>>4813 68user > if ( ! defined $auth_check ){ バッチリです。それにしてもすばやいレス、本当に有難う御座います。 |
|
たいへん心苦しいのですが別のことをお聞きしてよろしいでしょうか。 HTTPクライアントのスクリプトで、Basic認証が通ったかどうか 戻り値などで判断する方法は有りますでしょうか。 いま確認中のスクリプトは以下の通りです。 #!/usr/local/bin/perl use strict; use HTTP::Request::Common; use LWP::UserAgent; my $req = POST( 'http://*****.jp/login.html'); $req->authorization_basic('ID', 'Pass'); my $ua = LWP::UserAgent->new; my $res = $ua->request($req); |