利用perl批量重命名文件

Posted 2021-11-22 liulele

使用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( $DIR_PATH . $_, $DIR_PATH . $1);
12         }
13   }
14 }

 

关于perl的文件系统的操作实例，之前的例子还有：

合并并转化一代测序seq纯文本为fasta格式文件

气相PLFA原始数据整合处理脚本

脚本参阅

关于Perl文件操作——批量修改文件名