# ここで使用する構文は、ActiveState ビルド 522 と互換性があります。 use Win32::OLE; # 最上位の Rational ClearCase オブジェクトに接続します。 my $cc = Win32::OLE->new('ClearCase.Application') or die "Could not create Application object¥n"; # バージョンから発生しているブランチをループし、そのパス (ICCBranch # のデフォルト プロパティを使用) およびその他の情報を表示します。 my $ver = $cc->Version("b:¥¥caroltest¥¥testelem.c@@¥¥main¥¥0") or die("Could not get version: ", Win32::OLE->LastError(), "¥n"); my $path = $ver->Path; my $subbranches = $ver->SubBranches; my $enum = Win32::OLE::Enum->new($subbranches); while (defined(my $branch = $enum->Next)) { print($branch->Path, " branch sprouting from ", $path, " has ", $branch->Versions->Count, " version(s); latest version is ", $branch->LatestVersion->VersionNumber, "¥n"); }