# sort.pl
# 内容 :　ソートプログラム（1バイト目から単純にソートする）
# Copyright (c) 2002 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl sort.pl
#
open(IN1,"input.txt");			#ソート前のファイル
open(OUT1,">output.txt");		#ソート後のファイル
print	OUT1	sort	<IN1>;
close(IN1);
close(OUT1);
		
