拡張子変更プログラム一応完成

　このエントリから毎日少しずつ作り続けていたプログラムがようやっと、一応の完成を見ました。機能としては、コマンドラインから叩くと、そのディレクトリに含まれている.JPGの拡張子を、.jpgに変えてやるというシンプルというか貧弱なもの。これで満足するのもどうかとは思うのですが、私のような初心者があまり志しを高く持つのも困りもの。とりあえず完成としておきます。

　全体のコードはこちら。

use strict;
use warnings;

opendir(my $dh,"./");
my @files = readdir($dh);
closedir($dh);

my @filesJPG;

foreach(@files){
  if($_ =~ /(.*)\.JPG/){
    push(@filesJPG,$1);
  }
}

foreach(@filesJPG){
  rename($_.".JPG",$_.".jpg");
}

　これだけのものを完成させるだけで6日……。もっと精進します。