tieについて調べていたら、Tie::Fileってのが面白そうだったんで使ってみた。 #!/usr/bin/perl use strict; use warnings; use Tie::File; tie my @array, 'Tie::File', './file_name.txt' or die $!; foreach (@array) { tr/a-z/A-Z/; } print sort @array;…