[Perl] 파일, 폴더 List 삭제 방법

들어가며

• Perl 스크립트를 이용하여 초기화 스크립트를 만들거나 자동화 스크립트를 만드는 등등 이때 특정 파일이나 폴더를 지워야 하는 경우가 많다. 
• 이때 Prel 여러 Folder, File을 List형태로 만들어 삭제를 수행하는 방법에 대해서 알아보자.

---

 

구현방법

• Path에는 삭제할 대상 폴더들이 List 형태로 저장된다.
• 리스트를 순회하면서 폴더를 삭제하는데 이때 remove_tree이기 때문에 폴더를 포함한 하위 항목들이 전부 삭제된다.
• 삭제 수행후에는 빈 폴더를 다시 생성해준다. 

use Data::Dumper qw(Dumper);
use LWP::UserAgent;
use File::Path qw(remove_tree);
use Color::Output;
    Color::Output::Init;
    
sub DeleteLocalFiles();

#========================================================#
#                 Delete loca files
#========================================================#
sub DeleteLocalFiles()
{
    my @Path = (
                    'D:\MY_DIR\Bin\log_debug',
                    'D:\MY_DIR\Data\',
                    'D:\MY_DIR\Interface',
                    'D:\MY_DIR\Log',
                    'D:\MY_DIR\Status'
                 );
    
    #cprint "\x0311";    
    cprint "\n\n\x0311* Clear Folder\n\x030";
    sleep(1);

    foreach my $folder (@Path)
    {
            print "Clear : ", $folder, "\n";
            remove_tree($folder);
            system("mkdir $folder");
    }
    #cprint "\x030";
}

---

관련글

[Perl] CentOS Perl 설치시 "Can't locate ExtUtils/MakeMaker.pm" 해결방법

---

끝으로

이 글이 도움이 되었다면, 하단의 Google 광고 👎👎👎 한번씩 클릭 부탁 드립니다. 🙏🙏🙏

광고 클릭은 많은 힘이 됩니다!