perl – 批量重命名目录中的文件名

发布时间：2020-12-16 06:08:08 所属栏目：大数据来源：网络整理

导读：我有一些文件名如下： 01_dpm_gsi_182.sl502_dpm_devel_gsi_182.sl503_DPM_DSI_181.sl504_globus_httpd_122.sl505_globus_httpd_client_cgi_132.sl5 如何重命名这些文件,以便我得到一些类似的东西： 01_dpmgsi_s2011e01.sl502_dpmdevelgsi_s2011e02.sl5.....

我有一些文件名如下：

01_dpm_gsi_182.sl5
02_dpm_devel_gsi_182.sl5
03_DPM_DSI_181.sl5
04_globus_httpd_122.sl5
05_globus_httpd_client_cgi_132.sl5

如何重命名这些文件,以便我得到一些类似的东西：

01_dpmgsi_s2011e01.sl5
02_dpmdevelgsi_s2011e02.sl5
....
....

最接近我的建议是这样的：

#!/usr/bin/perl -n

if (/^([^_]+)_(.+)_([^.]+)([.].+)$/) {
    my $s = $&;
    my $x = $1;
    my $y = $2;
    my $z = 2011;
    my $e = $4;

    $y =~ s/_//g;

    print "mv $s ${x}_${y}_s${z}e$x$en"
}

然后像这样使用它：

# ls | perl -n reName.pl > output
# bash ./output

有没有更好的方法或单行做这个,可能使用sed / awk？干杯！！

解决方法

没有必要使用bash脚本来mv文件,perl可以做到这一点.下面的脚本使用 File::Copy来实现此目的.我已经注释掉了执行移动的行,因此可以首先使用输入测试脚本.

码：

use strict;
use warnings;
use v5.10;

#use File::Copy;
my $year = 2011;
for (@ARGV) {
    my ($pre,@p) = split /_/;
    my $ext = pop @p;
    $ext =~ s/.*./s${year}e$pre./;
    my $new = join '_',$pre,(join '',@p),$ext;
    say "old: $_";
    say "new: $new";
    say "------";
    #move $_,$new or die $!;
}

用法：

perl script.pl *.sl5

如果您没有版本5.10,请用print打印并添加换行符.

输出：

old: 01_dpm_gsi_182.sl5
new: 01_dpmgsi_s2011e01.sl5
------
old: 02_dpm_devel_gsi_182.sl5
new: 02_dpmdevelgsi_s2011e02.sl5
------
old: 03_DPM_DSI_181.sl5
new: 03_DPMDSI_s2011e03.sl5
------
old: 04_globus_httpd_122.sl5
new: 04_globushttpd_s2011e04.sl5
------
old: 05_globus_httpd_client_cgi_132.sl5
new: 05_globushttpdclientcgi_s2011e05.sl5

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!