スクリプト use strict; use warnings; use File::Basename; use File::Path; use File::Temp qw/ tempfile /; use Fcntl; my $in = "a.txt"; my $out = "b.txt"; print "-- infile --\n"; open my $fh, ">a.txt"; while (my $line = <DATA>) { print $fh $line; p</data>…