perl统一修改文件前缀并排序

perl统一修改文件前缀并排序

如题,perl统一修改文件前缀并排序。

举例说明,修改*.txt文件,并排序。

当前目录下,有如下文件

perl 复制代码
a.txt
b.txt
fsjkd.txt
ffsjk_tst.txt

运行rename_prefix脚本后,输入的第一个参数为txt,第二个参数为test,结果如下:

perl 复制代码
test1.txt
test2.txt
test3.txt
test4.txt

rename_prefix脚本的内容如下:

perl 复制代码
#!/bin/perl
use 5.010;

print "Pleast input file suffix which U want to rename!\n";
chomp (my $suffix = <>); # 去除输入参数中的回车符
print "Pleast output file prefix which U want to rename!\n";
chomp (my $prefix = <>); # 去除输入参数中的回车符

my $i;
foreach my $file(glob "*.$suffix") {
  $i += 1;
  my $new_file = $file =~ s/\w*\./$prefix$i./r; # 使用r修饰符,实际上是在替换前先拷贝一份待替换数据,然后在副本上进行替换,所以原始数据不会发生改变
  if (-e $new_file) {
    warn "Cannot rename $file to $new_file: $new_file exists\n";
  } elsif (rename $file => $new_file) {
  } else {
    warn "rename $file to $new_file failed:$!\n";
  }
}
相关推荐
子午16 小时前
Python的uv包管理工具使用
开发语言·python·uv
HMBBLOVEPDX16 小时前
C++(静态函数)
开发语言·c++
dpxiaolong17 小时前
RK3588 Android12默认移除导航栏
开发语言·python
Pocker_Spades_A17 小时前
Python快速入门专业版(二十九):函数返回值:多返回值、None与函数嵌套调用
服务器·开发语言·python
良木林17 小时前
浅谈原型。
开发语言·javascript·原型模式
烈风17 小时前
004 Rust控制台打印输出
开发语言·后端·rust
一枝小雨18 小时前
【C++】list 容器操作
开发语言·c++·笔记·list·学习笔记
HMBBLOVEPDX18 小时前
C++(继承和多态)
开发语言·c++·继承和多态
yvya_18 小时前
JVM介绍
java·开发语言·jvm
rockmelodies19 小时前
【PHP7内核剖析】-1.1 PHP概述
开发语言·php