标签:文件 修改文件 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的文件系统的操作实例,之前的例子还有:
脚本参阅
标签:文件 修改文件 post fas 替换 new code 需要 direct
原文地址:https://www.cnblogs.com/liulele/p/10617058.html