perl use FileHandle;打开多个文件
use FileHandle;
my %fh;
my @filehandlename=("A","B","C"); ##文件句柄的名字;
for my $filehandlename (@filehandlename){
$fh{$filehandlename}=FileHandle->new("> $filename"); ##$filename 代表输出文件的名字
$fh{$filehandlename}->pritn("输入的字符串");
$fh{$filehandlename}->close();
}
- 上一篇 »python 多窗口编辑
- 下一篇 »Perl/Python 感概