Mercurial > mercurial > hgweb_kaigo.hg.cgi
view fwgo/mkgo.pl @ 7:3b16a1b57e00 draft default tip
add qtuti/95y.
author | pyon |
---|---|
date | Sat, 27 Nov 2021 14:50:30 +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;