当然有可行的办法啦！在R里你完全可以实现类似Linux下Python调用系统命令的逻辑，循环处理这100个不同的数据库。下面给你两种实用的方案，按需选择：

方案一：使用Base R的system()函数（和Python os.system逻辑类似） #

这是最直接的方式，和你熟悉的Python写法思路一致，通过构建MySQL执行命令并调用系统运行。

步骤1：准备数据库名列表 #

先把所有需要处理的数据库名整理成一个列表，不管是从文件读取还是按规则生成都可以：

# 示例1：从文本文件读取（每行一个数据库名）
db_names <- readLines("database_list.txt")

# 示例2：如果数据库名有规律，比如生成模拟的cAAAAAyBBBB格式（这里用随机字母示例）
# db_names <- paste0("c", replicate(100, paste0(sample(letters, 5, replace=TRUE), collapse="")), 
#                    "y", replicate(100, paste0(sample(letters, 4, replace=TRUE), collapse="")))

步骤2：循环执行SQL脚本 #

这里分两种场景处理：

场景A：SQL脚本需要先切换到目标数据库

如果你的.sql文件没有指定具体数据库，我们可以在执行时先通过USE命令切换，再加载脚本：

# 配置MySQL连接信息
sql_path <- "/path/to/your/script.sql"
mysql_user <- "your_username"
mysql_host <- "your_mysql_host" # 比如localhost或远程IP

# 注意：安全起见，不建议明文写密码！后面会说更安全的方式
mysql_password <- "your_password"

for (db_name in db_names) {
  # 构建MySQL执行命令
  cmd <- sprintf(
    'mysql -u %s -p%s -h %s -e "USE %s; SOURCE %s;"',
    mysql_user, mysql_password, mysql_host, db_name, sql_path
  )
  
  # 执行命令并获取返回状态
  return_status <- system(cmd, intern = FALSE)
  
  # 输出进度日志，方便跟踪
  cat(sprintf("处理数据库 %s 完成，返回状态：%d\n", db_name, return_status))
}

场景B：SQL脚本里有数据库名占位符

如果你的.sql文件里用了占位符（比如{{DB_NAME}}）来标记需要替换的数据库名，可以先替换占位符再执行：

# 先读取原始SQL脚本内容
sql_content <- readLines(sql_path)

for (db_name in db_names) {
  # 替换脚本中的占位符
  modified_sql <- gsub("{{DB_NAME}}", db_name, sql_content)
  
  # 生成临时SQL文件
  temp_sql <- tempfile(fileext = ".sql")
  writeLines(modified_sql, temp_sql)
  
  # 构建执行命令
  cmd <- sprintf(
    'mysql -u %s -p%s -h %s < %s',
    mysql_user, mysql_password, mysql_host, temp_sql
  )
  
  return_status <- system(cmd, intern = FALSE)
  
  cat(sprintf("处理数据库 %s 完成，返回状态：%d\n", db_name, return_status))
  
  # 清理临时文件
  file.remove(temp_sql)
}

方案二：使用processx包（更健壮的进程管理） #

如果你需要更灵活地捕获命令输出、处理错误，processx包会比基础的system()更强大，它能更好地处理进程的输入输出流：

步骤1：安装并加载包 #

install.packages("processx")
library(processx)

步骤2：循环执行脚本 #

for (db_name in db_names) {
  # 用参数列表的方式构建命令，避免字符串拼接的安全问题
  args <- c(
    "-u", mysql_user,
    "-p", mysql_password,
    "-h", mysql_host,
    "-e", sprintf("USE %s; SOURCE %s;", db_name, sql_path)
  )
  
  # 运行MySQL命令，error_on_status=FALSE表示不自动抛出错误，方便自定义处理
  result <- processx::run("mysql", args = args, error_on_status = FALSE)
  
  # 输出详细结果
  cat(sprintf("=== 处理数据库 %s ===\n", db_name))
  if (result$stdout != "") {
    cat("标准输出：\n", result$stdout, "\n")
  }
  if (result$stderr != "") {
    cat("错误输出：\n", result$stderr, "\n")
  }
  cat("返回状态码：", result$status, "\n\n")
}

重要安全提示：避免明文密码 #

脚本里明文写MySQL密码非常不安全，建议通过MySQL配置文件~/.my.cnf来管理登录信息：
在用户主目录下创建.my.cnf文件（Linux/macOS），内容如下：

[client]
user=your_username
password=your_password
host=your_mysql_host

然后给文件设置权限，确保只有自己能读取：

chmod 600 ~/.my.cnf

这样你的R脚本里就可以去掉-u、-p、-h参数，命令会简化成：

cmd <- sprintf('mysql -e "USE %s; SOURCE %s;"', db_name, sql_path)

内容的提问来源于stack exchange，提问作者Jiaoyan Huang