#!/usr/bin/perl
#
# filerename.pl
# 파일 이름에 빈공백을 "_"으로 이름 바꾸기
# 작성자 : san2(at)linuxchannel.net
#
# 사용 방법 :
# chmod u+x filerename.pl
# ./filerename.pl
#
# 아래는 고쳐야할 부분

 @arr_files = glob("mp3/*3");
#@arr_files = glob("mp3/*.mp3");

# 이하 고칠 필요 없음
foreach $orgn_files (@arr_files) {
  if (-f $orgn_files) {

    # 공백(\s)을 "_"으로 바꾸기
    $refilename = $orgn_files;
    $refilename =~ s/\s/_/ig;

    rename "$orgn_files", "$refilename";
    print "$refilename\n";
  }
}