yohei-a https://blog.hatena.ne.jp/yohei-a/ ablog https://yohei-a.hatenablog.jp/ Perl こんな感じでできたのでメモ。 ソースコード filehandle.pl #!/usr/bin/env perl use strict; use warnings; my @array = (1,2,3,4,5,6,7,8,9,10); foreach my $item (@array) { no strict "refs"; my $fh = "OUT${item}"; open (${$fh}, ">", "${item}.txt"); print({${$fh}} "$item\n"); close(${$fh}); } __END__ 実行結果 $./filehandle.pl $ ls… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fyohei-a.hatenablog.jp%2Fentry%2F20120131%2F1327981417" title="Perl で変数を使ってファイルハンドル名を動的に生成する - ablog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2012-01-31 12:43:37 rich https://yohei-a.hatenablog.jp/entry/20120131/1327981417 1.0 100%