使用perl收集固定和系统对象统计信息（可非容器数据库，如CDB容器数据库：pdb和cdb将同时执行）

# 使用Perl收集Oracle数据库的固定对象统计信息
 
use strict;
use warnings;
use DBI;
 
# 数据库连接信息
my $user = 'your_username';
my $password = 'your_password';
my $connect_string = 'dbi:Oracle:your_tns_connect_string';
 
# 创建数据库连接
my $dbh = DBI->connect($connect_string, $user, $password, {
    AutoCommit => 0,
    RaiseError => 1
}) or die "无法连接到数据库: " . DBI->errstr;
 
# 获取所有用户（排除系统用户）
my $sth_users = $dbh->prepare(q{
    SELECT username
    FROM all_users
    WHERE username NOT LIKE 'SYS%'
});
$sth_users->execute();
 
# 遍历用户并收集统计信息
while (my @row = $sth_users->fetchrow_array()) {
    my $schema = $row[0];
    print "正在收集用户 $schema 的统计信息...\n";
 
    # 收集固定对象统计信息
    $dbh->do("BEGIN") or die "无法开始事务: " . $dbh->errstr;
    $dbh->do("EXEC DBMS_STATS.GATHER_SCHEMA_STATS('$schema', CASCADE => TRUE, DEGREE => 4)") or die "统计信息收集失败: " . $dbh->errstr;
    $dbh->do("COMMIT") or die "无法提交事务: " . $dbh->errstr;
}
 
# 关闭数据库连接
$dbh->disconnect();
 
print "所有用户的统计信息收集完毕。\n";

这段代码使用了DBI模块连接到Oracle数据库，并遍历所有非系统用户来收集其统计信息。这是一个简化的例子，实际使用时可能需要根据具体环境调整连接字符串和其他参数。