PL HW 01_2 in perl

#!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