파일명을 추출하여 윈도우 SORT 명령, 숫자 크기순 정렬(소팅) 문제 해결, Perl(펄)로 하기

윈도우 SORT 명령, 숫자 크기순 정렬(소팅) 문제 해결, Perl(펄)을 통해 탐색기처럼 숫자 정렬을 합니다.

0. Perl 설치 ( https://www.perl.org/get.html ) 

 부득히 Perl을 설치해야 합니다. (2015. 10.20 다운받아 설치)

 설치한 버전을 확인합니다.

 

1. DOS에서 파일명 추출

 D:TEMP>dir /b  >> list.txt

2.perl 스크립트 생성 ( 출처: http://mwultong.blogspot.com/2006/12/sort-perl.html )

sortNum.pl로 파일 생성합니다.

# ////////////////////////////////////////////////////////////////////////

#!/usr/bin/perl

#fileName: sortNum.pl

use strict; use warnings;

  while (<>) {                    # 파일 열어, 한 줄씩 읽기

    chomp;                        # 개행 문자 제거

    s/^\s+//;                     # 좌측에 공백 있으면 제거

    s/\s+$//;                     # 우측에 공백 있으면 제거

    push @_, $_ unless $_ eq "";  # (빈 문자열이 아닌 이상) 배열에 추가

  }

  @_ = sort {$a <=> $b} @_;       # 숫자 크기순으로 소트

  print "$_\n" foreach (@_);      # 화면에 결과 출력

# ////////////////////////////////////////////////////////////////////////

3. DOS실행

D:TEMP>sortNum.pl list.txt >> out.txt

4. 확인(out.txt)

감사합니다.