view f.pl @ 2:85a60c32503c default tip

theme fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 24 Sep 2011 04:00:11 +0900
parents b0c6281822f5
children
line wrap: on
line source

while(<>) {
    if (/REPLACED-BY-FILE/) { 
	open(I,"<ui.uu") ;
	@line = <I>;
	print @line[1 .. $#line-2];
    } else { print;}
}