码迷,mamicode.com
首页 > 其他好文 > 详细

利用perl批量重命名文件

时间:2019-03-28 19:25:41      阅读:270      评论:0      收藏:0      [点我收藏+]

标签:文件   修改文件   post   fas   替换   new   code   需要   direct   

使用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批量重命名文件

标签:文件   修改文件   post   fas   替换   new   code   需要   direct   

原文地址:https://www.cnblogs.com/liulele/p/10617058.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!