컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post C언어] unsigned 형의 의미, 부호 없는 정수, unsigned int, signe...C언어/자바,Java] char를 int로 변환; char to float, long, 자...그래픽 파일의 종류/그림,사진 파일의 확장자 종류: Graphics File Format ...도스/도스창(cmd.exe)용 실행파일/명령어 만드는, 언어/프로그램은? Creating ...펄.Perl] 배열 출력, 배열을 문자열로 변환, Print Array, Array to ...펄/Perl] 여러 개의 빈줄 삭제, 하나의 빈줄로 합치기, Collapse Multipl...펄/Perl] 숫자 배열 정렬(소팅), sort 함수 사용법: Sort Number Arr...펄/Perl] 문자열 배열 정렬(소팅), sort 함수 사용법: Sort String Ar...구글어스 좌표 구하기: 위도(Latitude), 경도(Longitude) - Google ...자바,Java] 텍스트 파일 읽기, 한줄씩 읽어 화면에 출력; 자바 기초

펄,Perl] 여러 개의 파일 한꺼번에 일괄 처리, 와일드카드; opendir, readdir

Saturday, October 21, 2006

파일이 수백 개 있고, 각 파일들에 하나씩 펄 스크립트를 실행해 주려면 아주 힘들 것입니다. 이때는 다음과 같은 방법으로 한꺼번에 처리해 줄 수 있습니다.

현재 디렉토리에 있는 모든 파일들의 목록을 구하여, 각 파일명을 화면에 출력하는 예제입니다.

dir 명령처럼, 현재 디렉토리의 모든 파일명 출력 예제


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

  opendir(DIR, "." ) or die "$!\n";
  my @items = readdir(DIR);  # @items 라는 배열에, 파일 목록 넣기
  closedir DIR;


  foreach (@items) {         # 각 파일을 대상으로 작업
    next if $_ =~ /^\.\.?$/; # . 과 .. 생략
    next unless (-f $_);     # 디렉토리면 생략. 디렉토리까지 작업 대상으로 하려면 이 줄을 주석화해야 함.

    print $_, "\n"; # 각 파일명 출력, 이 부분을 수정하면 다른 일괄 작업에 응용할 수 있음
  }


opendir 과 readdir 함수로, 파일 목록을 구합니다. "*" 또는 "*.*" 라는 와일드카드가 적용된 것과 마찬가지입니다.

다만, 서브 디렉토리까지 작업할 수는 없습니다.

마침표(.) 1개는 현재 디렉토리를 의미하기에, opendir(DIR, "." ) 이렇게 하면 현재 디렉토리를 오픈하게 됩니다.

현재 디렉토리를 의미하는 "." 와, 상위 디렉토리를 의미하는 ".." 도 목록에 들어 있지만, 아무 필요가 없기에 생략시켰습니다.


☞ Perl(펄)

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top