Mercurial > mercurial > hgweb_kaigo.hg.cgi
view qtuti/mkgo.pl @ 2:65b8529196d5 draft
Porori: add comment.
author | pyon <pyon@macmini> |
---|---|
date | Sat, 29 May 2021 10:07:57 +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;