PL HW 01_2 in perl
Sorce Bank 2010. 3. 14. 09:01
#!usr/bin/perl
unless ($#ARGV == 1) {
print "Usage : perl \n";
exit(1);
}
open(IN_FILE,$ARGV[0]);
open(OUT_FILE,">${ARGV[1]}");
@lines=;
foreach(@lines) {
$_=~s/\d{1,4}년 ?[12]?[0-9]월 ?[1-3]?[0-9]일/$&<\/DATE>/g;
$_=~s/[1]?[0-9]시 [1-6]?[0-9]분/ 'Sorce Bank' 카테고리의 다른 글
| Java Binary Tree (0) | 2010.03.14 |
|---|---|
| Python Client (0) | 2010.03.14 |
| Python Server (0) | 2010.03.14 |
| PL_HW01-3 in Perl (0) | 2010.03.14 |
| Binary Tree in Ruby (0) | 2010.03.14 |


