batch-renaming file name in a directory

Question

I have some files with names like this:

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

How can I rename those files, so that I get some thing like:

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

The closest I was suggested as like this:

#!/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$e\n"
}

and then use it like this:

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

Is there any better way or one-liner to do this, possibly using sed/awk? Cheers!!

Answer 1

There is no need to use a bash script to mv the files, perl can do that. This script below uses File::Copy for that purpose. I have commented out the lines that perform the move, so that the script can be tested with the input first.

Code:

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 $!;
}

Usage:

perl script.pl *.sl5

If you do not have version 5.10, exchange say with print and add a newline.

Output:

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

Answer 2

This GNU sed solution might work for you:

 sed 'h;s/[^_.]*\././;s/_//2g;s/^\(\([^_]*\)_[^.]*\)\./\1_s2011e\2e./;x;G;s/\(.*\)\n/mv -v \1 /' file

Explanation:

Store the original file name in the hold space (HS). Remove the numbers preceeding the file extention. Delete all but the first _. Make the new file name using grouping, back references and added text. Swap to the HS. Append the new file name. Add the mv -v command and delete the embedded \n.

As has been already said file names can trip you up - beware!

Answer 3

omg, NEVER parse the output of ls or build queries that be re-evaluated by a shell. Parsing a filelist (as output by ls) is impossible to get right in the face of whitespace (or whatever is in your $IFS variable) and thus is an awkward solution at ANY TIME. Similarly, building correctly escaped shell commandlines is next to impossible.

To stay with shell (which is an excellent tool for this task nevertheless), use file globbing, which splits the arguments correctly:

for i in ./*
do
    firstpart=${i%%_*}
    num=${firstpart#./}
    middlepart=${i#*_}
    middlepart=${middlepart%_*}
    middlepart=`printf %s "$middlepart" | tr -d _`
    lastpart=s2011e"$num".sl5
    echo mv "$i" "${firstpart}_${middlepart}_${lastpart}"
done

To actually execute, remove the echo in the last line.

Answer 4

You don't need a separate bash script to do the renames. Perl has a built-in rename function. See http://perldoc.perl.org/functions/rename.html for documentation.

I'm not going to comment on the regex. It might be possible to improve it, but as long as it works correctly, I don't see any need to change it.

Answer 5

This sort of thing has been covered before and the answer is to use an existing renaming utiliy and not to write your own.

Answer 6

ok, you ask for a one-liner:

ls |xargs -n1|awk -F'[_.]' '{idx=$1;nf=$1"_";for(i=2;i<NF-1;i++)nf=nf$i; nf=nf"_s2011e"idx"."$NF;print "mv "$0" "nf;}'

this will print all mv command for you.

you could check the output, if the target names are all correct. if yes, you just add "|sh" at the end of the line, it will do the rename.

test (without |sh, to see output)

kent$  ls |xargs -n1|awk -F'[_.]' '{idx=$1;nf=$1"_";for(i=2;i<NF-1;i++)nf=nf$i; nf=nf"_s2011e"idx"."$NF;print "mv "$0" "nf;}'
mv 01_dpm_gsi_182.sl5 01_dpmgsi_s2011e01.sl5
mv 02_dpm_devel_gsi_182.sl5 02_dpmdevelgsi_s2011e02.sl5
mv 03_DPM_DSI_181.sl5 03_DPMDSI_s2011e03.sl5
mv 04_globus_httpd_122.sl5 04_globushttpd_s2011e04.sl5
mv 05_globus_httpd_client_cgi_132.sl5 05_globushttpdclientcgi_s2011e05.sl5