comparison src/kaigo/qtuti/mkgo.pl @ 61:49656dc40069

add qtuti.
author pyon@macmini
date Fri, 11 Sep 2020 20:06:27 +0900
parents
children
comparison
equal deleted inserted replaced
60:058fb0a2cda8 61:49656dc40069
1 use utf8;
2
3 open my $f, '<', $ARGV[1];
4 my $cpp = do{local $/; <$f>};
5 close $f;
6
7 open $f, '<', $ARGV[0];
8 while (<$f>) {
9 s/##### C_SOURCE #####/$cpp/;
10 print;
11 }
12 close $f;
13