perl用變數做控制代碼介紹

複製代碼 代碼如下:#!/usr/bin/perl -w
use strict;
use warnings;
use FileHandle;
my %fh;
my @array = (1..10);
for(1..5){
open $fh{$_},">$_.txt" or die;
}
for(1..5){
#print $fh{$_} "$_\n"; 此處錯誤
$fh{$_}->print( "$_\n" );
　　 #為FileHandle裡的函數 或 用（my $h = $fh{$_}; print $h "$_\n"；）亦可
}

注意：上述錯誤是由於：<>裡面不是簡單標量就會被當glob，Perl 支援 <FILEHANDLE> 或者是 <$scalar> .