使用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文件操作——批量修改文件名

利用perl批量重命名文件