前回の続き。ブクマコメで、id:kits さんより、 STDINは local *STDIN = *DATA; もできそう。 とのご指摘。確かに出来そうなので試してみました。 #!/usr/bin/perl use strict; use warnings; use Test::More "no_plan"; sub add { my $result = 0; while( <STDIN> </stdin>…