Perl 펄] 파일명 변경, 디렉토리명 바꾸기; 리네임 함수; File Dir Rename

#!/usr/bin/perl
use strict; use warnings;

  my $filename_old = "test000.txt";
  my $filename_new = "test111.txt";


  if (!safeRename($filename_old, $filename_new)) {
    print "이름 변경 에러\n";
  }
  else {
    print "성공적으로 변경\n";
  }



sub safeRename {
  my $old = shift;
  my $new = shift;

  # 원래 파일명과 새 파일명이 같으면 성공 반환
  return 1 if ( ($old eq $new) && -e $old);

  # 원래 이름의 파일/디렉토리가 없거나
  # 새 이름의 파일/디렉토리가 이미 존재하면 거짓(에러;0) 반환
  return 0 if (!-e $old || -e $new);

  # 모든 것이 정상일 경우에만 이름 변경
  rename($old, $new) or return 0;

  return 1; # 논리적 참(1; true) 반환
}