利用perl批量重命名文件

最新推荐文章于 2025-04-10 09:02:47 发布

转载

最新推荐文章于 2025-04-10 09:02:47 发布 · 635 阅读

6 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/liulele/p/10617058.html

本文介绍了如何使用Perl的rename函数来批量重命名文件。通过示例，展示了去除文件名前缀和调整文件名中下划线位置的操作。此外，还提及了Perl在文件系统操作中的其他应用，如合并seq文本为fasta格式，处理气相PLFA数据，以及根据文件夹名称重命名文件。同时，讨论了在使用cwd()和glob操作符时的注意事项，以及File::Copy模块作为rename的替代选择。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用perl自带函数rename可以重命名文件名称，具体用法，rename $old_name, $new_name。

例如，要把文件名中“7--1_F03_2018-12-28.fsa”中的前缀“7--”去除。

 1 use strict;
 2 
 3 my $DIR_PATH = "./"; # current directory
 4 opendir TEMP, ${DIR_PATH} || die "Can not open this directory";
 5 my @filelist = readdir TEMP; #读取目录下的所有文件名
 6 
 7 foreach (@filelist) {
 8     my $tmp = $_;
 9     if ( $tmp ne "." && $tmp ne ".." ) { #去掉当前目录和上级目录，非必须
10         if ( $tmp  =~ /^7--(.+\.fsa)/ ) { #运用正则筛选需要替换的部分
11            rename(