view fwgo/mkgo.pl @ 4:ff7a3c254956 draft

new: superFC
author pyon <pyon@macmini>
date Tue, 15 Jun 2021 06:19:45 +0900
parents aaaa401818a1
children
line wrap: on
line source

use utf8;

open my $f, '<', $ARGV[1];
my $cpp = do{local $/; <$f>};
close $f;

open $f, '<', $ARGV[0];
while (<$f>) {
	s/##### C_SOURCE #####/$cpp/;
	print;
}
close $f;