linux - 如何一次编辑多个文件名？

Question

我的目录中充满了 .txt 文件(2000 个文件)。他们的名字很长。我想编辑他们的名字，只保留他们名字中的某些字母作为文件名。像这样:

UNCID_279113.TCGA-A6-2683-01A-01R-0821-07.100902_UNC7-RDR3001641_00025_FC_62EPOAAXX.1.trimmed.annotated.gene.quantification.txt

我想消除这些长名称，只保留名称从 TCGA 开始并在三个 - 之后结束；例如，我的新文件名是:TCGA-A6-2683-01A有人知道如何对一个目录中的整个文件执行此操作吗？

Answer 1

假设文件在当前目录中:

library(gsubfn)

pat <- "TCGA-[^-]*-[^-]*-[^-]*"
file.names <- dir(pattern = pat)
new.names <- strapplyc(file.names, pat, simplify = TRUE)
file.rename(file.names, new.names)

创建 shell/批处理脚本 这是一个变体。它生成 UNIX shell 文件或 Windows 批处理文件。然后您可以查看文件并运行它:

# UNIX
writeLines(paste("mv", file.names, new.names), con = "tcga_rename.sh")
shell("tcga_rename.sh")

或在 Windows 上:

# Windows
writeLines(paste("rename", file.names, new.names), con = "tcga_rename.bat")
shell("tcga_rename.bat")

修订:分解出 pat，简化和添加变体。