如何同时打开多个文件句柄？

wrongdna

我需要同时写入多个文件（几十个或上百个），但是得根据不同的条件来判断应该将内容写入到哪个句柄，现在碰到的问题是如何将数据写入到指定的句柄中，即如何用变量与原来打开的句柄进行对应，谢谢
for(1..10){
  open $_ ">$_" or die;
}

for(1..10000){

  if(test1){写到句柄1，但问题是如何来指定刚才打开的句柄1，直接print $i "kkkk\n";是不行的(此时$i的值为1），请指点，谢谢
}

flw

用 hash。

1. for(1..10){
   
2.     open $handles{$_}, ">$_" or die;
   
3. }
   
4. 
   
5. for(1..10000){
   
6.     if(test1){
   
7.         print $handles{$i} "blablabla";
   
8.     }
   
9. }

复制代码

wrongdna

谢谢回复，我做了如下的测试，总是报错，是不是用这种句柄打印的时候与常规的有所不同啊？
#!/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";
}

＃perl -c a.pl
String found where operator expected at a.pl line 15, near "} "$_\n""
        (Missing operator before  "$_\n"?)
syntax error at a.pl line 15, near "} "$_\n""
a.pl had compilation errors.

flw

那就用 $fh{$_}->print( "$_\n" );

wrongdna

这回可以了，谢谢

minewhy

flw 能解释一下  $fh{$_}->print( "$_\n" ) 吗？ 谢谢

wrongdna

用到了FileHandle里的函数了

xki

1. 
   
2. my %fh;
   
3. for(1..5){
   
4.         open $fh{$_},">$_.txt" or die;
   
5. }
   
6. for(1..5){
   
7.         my $h = $fh{$_};
   
8.         print $h "aaaa\n";
   
9. }
   

复制代码

也可以