# エラーチェック
if ($response->is_error)
{
my $code = $response->code();
&DispError2($GB, "ＥＲＲＯＲ！", "ＥＲＲＯＲ：Beユーザー情報の取得に失敗しました。($code)");
}
ってことで be 鯖がエラーの場合は書き込みエラーになりますね．むしろ
# エラーチェック
if ($response->is_error)
{
# 持ち株数がとれない時は0株とみなす
return 0;
# my $code = $response->code();
# &DispError2($GB, "ＥＲＲＯＲ！", "ＥＲＲＯＲ：持ち株情報の取得に失敗しました。($code)");
}
ということで，株鯖がエラーの場合にそうなるんじゃないかと．
で，書き込みエラーにする処理はコメントアウトされているので，
そうなるのは意図的ってことなのかなぁ......
