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


while (<>) {                    # 파일 열어, 한 줄씩 읽기
    chomp;                        # 개행 문자 제거
    s/^\s+//;                     # 좌측에 공백 있으면 제거
    s/\s+$//;                     # 우측에 공백 있으면 제거
    push @_, $_ unless $_ eq "";  # (빈 문자열이 아닌 이상) 배열에 추가
}

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

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

+ Recent posts