| [ CnUnix ] in KIDS 글 쓴 이(By): honeydew ( ) 날 짜 (Date): 2004년 10월 21일 목요일 오전 12시 48분 49초 제 목(Title): Re: text file 변환 어떻게? #! /usr/bin/perl if($#ARGV < 1){ print "Usage: $0 [filename] [pattern..]\n\n"; exit; } $filename = shift( @ARGV ); @item = split( /[ \n\t]/,`cat $filename`); for($i=1;$i<=$#item/2;$i++){ $store{@item[$i]} = @item[$i+($#item+1)/2]; } foreach(@ARGV){ print "$_\t"; } print "\n"; foreach(@ARGV){ print "$store{$_}\t"; } --- 더 간단한 방법은 다른 분들이 -.-;; #command [filename] hfj sdk adj num 로 해주면 됩니다.. |