画像ファイルの整理(1)

Linux でファイルのリストを見るには ls コマンドを使いますが、Perl では glob というファンクションがあります。

@files = glob ("*.gif");

for $file (@files){
	print $file, "\n";
	}

異なったパターンをファイルを一括して得たい場合は

@files1 = glob ("*.gif");
@files2 = glob ("*.jpg");
@files3 = glob ("*.png");
@files = (@files1, @files2, @files3);

これから作ろうとしているのは、JPG ファイルに連番をつけて整理するプログラムです。デジタルカメラで撮った JPG ファイルを「人物」「物体」「風景」などのカテゴリーに分け、それぞれに連番をつけて整理しようというものです。glob で得られるファイル名はファイル名順でソートされていますので、連番はファイル名順で付けられることになります。

新しいファイル名は A234.jpg B045.jpg などと、「ファイル名」＋「三桁の数字」＋「拡張子」 とすることにしました。ですから、新しいファイル名を得るには、fukei.jpg などとなっているファイル名から .jpg 以前の部分得る必要があります。これには

@body = split /\./, $oldname;

# 新しいファイル名を @newname に格納
$sum = 0;
for $oldname (@files){
    @body = split /\./, $oldname;
    if($number < 10){
        $p_number = "00$number";
        }
    elsif($number < 100){
        $p_number = "0$number";
        }
    else{
        $p_number = $number;
        }
    $newfiles[$sum] = "$newname$p_number.$body[1]";
    $sum++;
    $number++;
    }

これで system ("mv $oldname $newfiles[$count]"); としてやれば、ファイル名を変換してくれるのですが、$oldname と $newfiles[$count] が同じ名前の場合、エラーが出ますので、あらかじめ、$oldname と $newfiles[$count] を比較しておいて、もし、同じファイル名があったら、終了して別のファイル名なり、開始番号なりを入力してやりなおさせるようにしておきました。これが、次の部分です。

# オリジナルのファイル名と新しいファイル名の比較
# 同じものがあれば作業をしない
for $oldname (@files){
    for $newname (@newfiles){
        if($oldname eq $newname){
            print "Found the same file name!\n";
            exit(0);
            }
        }
    }

以上を一つにまとめたのが次のスクリプトです。

#!/usr/bin/perl
# renames.pl
#
# 画像ファイルに連番をつけて名前を変更する

# 開始番号の取得
if($ARGV[1] eq ""){
    $number = 1;
    }
else{
    $number = $ARGV[1];
    }
    
# 画像ファイル名の取得
$newname = $ARGV[0];
if ($newname eq ""){
    print "Input new file name [and start number].\n";
    print "You can rename back by running <backnames>.\n";
    exit (0);
    }

# ファイル一覧の取得
# オリジナルのファイル名を @files に格納
@files = glob ("*.jpg");

# 新しいファイル名を @newname に格納
$sum = 0;
for $oldname (@files){
    @body = split /\./, $oldname;
    if($number < 10){
        $p_number = "00$number";
        }
    elsif($number < 100){
        $p_number = "0$number";
        }
    else{
        $p_number = $number;
        }
    $newfiles[$sum] = "$newname$p_number.$body[1]";
    $sum++;
    $number++;
    }

# オリジナルのファイル名と新しいファイル名の比較
# 同じものがあれば作業をしない
for $oldname (@files){
    for $newname (@newfiles){
        if($oldname eq $newname){
            print "Found the same file name!\n";
            exit(0);
            }
        }
    }

# バックアップを backnames に保存する
open OUT, ">backnames";
print OUT "#!/bin/bash\n";

# ファイル名の変換
$count=0;
for $oldname (@files){
    system ("mv $oldname $newfiles[$count]");
    print OUT "mv $newfiles[$count] $oldname\n";
    $count++;
    }
close (OUT);

# バックアップファイルに実行属性をつけて逆変換を可能にする
system ("chmod +x backnames");

上記で、工夫したのは、

# バックアップを backnames に保存する
open OUT, ">backnames"; ....(1)
print OUT "#!/bin/bash\n"; ....(2)

# ファイル名の変換
$count=0;
for $oldname (@files){
    system ("mv $oldname $newfiles[$count]");
    print OUT "mv $newfiles[$count] $oldname\n"; ....(3)
    $count++;
    }
close (OUT);

# バックアップファイルに実行属性をつけて逆変換を可能にする
system ("chmod +x backnames"); ....(4)

[前のぺ−ジ]　[目次]　[次のぺ−ジ]