파일이름 일관 변경 (Perl)
파일이름을 바꾸어야 하겠는데 파일이 너무 많을 때 사용하려고
간단히 perl 스크립트 하나 만들어보았습니다.

사용방법은 간단합니다.
 conv_fname.pl [파일 앞에 붙일 이름] [바꿀 파일들..]

#!/usr/bin/perl

if (@ARGV < 2) {
    print "Usage : ${0} [prefix] [filenames]\n";
    exit 1;
}

chomp(my $prefix = $ARGV[0]);

for (my $i = 1 ; $i < @ARGV ; $i++) {
    my $org_fname = $ARGV[$i];
    my $ext = "";
    if ($org_fname =~ m/\.(.*)/) {
        $ext = $1;
    }
    my $new_fname = $prefix . "_" . $i . "." . $ext;
    print "Rename ${org_fname} to ${new_fname} : ";
    `cp ${org_fname} ${new_fname}`;
    if ($? == 0) {
        print "done.\n";
    }
    else {
        print "fail.\n";
    }
}


반응형