ファイルを移動してリネームする。CLIからの第一引数が移動先でのファイル名、第二引数が移動対象の拡張子

move_rename.pl

#!/usr/bin/perl

binmode STDOUT,":utf8";

use strict;
use warnings;
use utf8;
use File::Copy;

my $class_name = $ARGV[0];

unless($class_name){
    print "移動先でのファイル名を指定してください\n";
    exit;
}

my $extension = $ARGV[1];
unless($extension){
    print "移動対象の拡張子を指定してください\n";
    exit;
}

while(<./*$extension>){
        my $file = $_;
        $_ =~ s/\.\///g;
        $_ =~s/\.$extension//g;
        mkdir $_;
        move "./$file", "./$_/$class_name" or die $!;
}