| [ CnUnix ] in KIDS 글 쓴 이(By): terzeron (microkid) 날 짜 (Date): 2002년 12월 6일 금요일 오전 10시 53분 02초 제 목(Title): Re: [q] 간단한 스트립트 질문 - 파일이름 스크립트가 아닌 프로그램 차원의 접근에서... 첫번째:ren.pl * #!/usr/bin/perl for (@ARGV) { $old = $_; s/ps(\d+)_\d+x\d+\.jpg/$1.jpg/g; rename($old, $_); } 두번째:copy.pl 12345678.jpg #!/usr/bin/perl for ($i = 0; $i < 10; $i++) { $new = $ARGV[0] . "_" . $i . ".jpg"; `cp $ARGV[0] $new`; } 첫번째와 두번째를 한꺼번에 하시려면 rename 다음 줄에 for loop을 적어주시고 $ARGV[0]을 $_로 바꾸시면 됩니다. --- 어떤 성취가, 어떤 조롱이, 또는 어떤 고뇌가 나를 기다리고 있을지 나는 모른다. 나는 아무 것도 모른다. 그러나 나는 아직 과거의 경이로운 기적의 시대가 영원히 과거의 것이 되어 버리지는 않았다는 사실을 굳게 믿고 있다. - Stanislaw Lem - |