Mercurial > mercurial > hgweb_kaigo.hg.cgi
view fwgo/mkgo.pl @ 1:743a122cae47 draft
Porori: ver.up
| author | pyon <pyon@macmini> |
|---|---|
| date | Thu, 27 May 2021 22:01:27 +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;
