Mercurial > mercurial > hgweb_golang.cgi
view src/kaigo/qtuti/mkgo.pl @ 65:0369656be06c default tip
many changes.
author | pyon@macmini |
---|---|
date | Fri, 20 May 2022 06:30:34 +0900 |
parents | 49656dc40069 |
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;