Perlでファイルハンドルを変数として扱いたい場合

型グロブを使う。


@A=(*F1,*F2);
@B=('1','2");
foreach $b(@B){
  open($A[$b],">$b.txt") or die $!;
  print {$A[$b]} "$b\n";
  close($A[$b]);
}

最終更新:2012年04月11日 15:14
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。