현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

펄 파일이동에 관하여 질문이요!

majestic의 이미지
글쓴이: majestic / 작성시간: 금, 2018/10/19 - 3:12오후

*폴더 = 이름이 *인 폴더

         A폴더                                           B폴더

    abc_def43.jpg                                jpg폴더(abc_def43.jpg)    
    abcde_11.txt                   ->            txt폴더(abcde_11.txt) 
    abcde_ccc.exe               B폴더로이동        exe폴더(abcde_ccc.exe)

예를 들어 확장자가 다른 파일 세개가 있습니다.

B 폴더안에 파일 확장자별 디렉토리를 만들고 그 디렉토리이름에 맞게 파일을 이동하는 코드를 짜고 있는데

my ($fileNameOnly, $dir, $ext) = fileparse($file, '.[^.]*');를 써서

if로 조건걸어서 mkdir로 어떤 파일의 확장명폴더 만드는것까진 설정했습니다.

폴더이름이 확장자명인 폴더에 임의의 파일을 확장명대로 이동시키는걸 어떤식으로 접근해야하나요??

Forums: 
프로그래밍 QnA
raymundo의 이미지

글쓴이: raymundo / 작성시간: 금, 2018/10/19 - 3:52오후

정확히 어느 부분에서 막힌다는 건지 애매합니다만, 딱히 if가 필요할 일은 안 보이는데요.

(이미 디렉토리가 만들어졌는데 mkdir 하면 false를 반환하긴 하지만 에러가 나진 않으니까)

파일을 이동하는 건 기본 함수인 rename 을 쓰셔도 되고, 좀 더 유연하게는 File::Copy 모듈의 move 함수를 쓰셔도 됩니다.

use File::Copy qw(move);
use File::Basename qw(fileparse);
use File::Path qw(make_path);
 
my $file = './A/abc_def43.jpg';
my ($fileNameOnly, $dir, $ext) = fileparse($file, '.[^.]*');
 
# $ext = '.jpg';
$ext =~ s/^\.//;   # 앞의 . 제거
 
make_path("./B/$ext");    # 디렉토리 만들고
move($file, "./B/$ext/"); # 이동

좋은 하루 되세요!

majestic의 이미지

글쓴이: majestic / 작성시간: 금, 2018/10/19 - 4:14오후

감사합니다! qw연산자를 한번도 안써봤는데 이런법도있군요

제가 if쓴건 ext를 이용해 확장명이 a일때 a이름폴더 만들고 b이면 b이름폴더만들고 이런식으로 썼습니다.. 저렇게 간단한 법도 있군요

둘러보기