如果文件句柄不存在，请打开它，如果存在，请使用它

问：

我正在扫描文件以查找某些值。对于其中每个值，我想创建一个输出文件并将匹配的行转储到该特定的输出文件中。这些值事先是未知的，因此当我遇到它们时，我需要使用它们。

为了避免一遍又一遍地打开和关闭文件，我正在尝试测试文件句柄是否存在，如果存在，请写入它。如果没有，请打开它，写入它，然后在再次出现相同的值时再次使用它。

我的脚本失败，出现以下错误：

Scalar found where operator expected at get-authHost2.sh line 31, near ""$_ \n" $filehandle"
        (Missing operator before  $filehandle?)
Scalar found where operator expected at get-authHost2.sh line 35, near ""$_ \n" $filehandle"
        (Missing operator before  $filehandle?)
syntax error at get-authHost2.sh line 31, near ""$_ \n" $filehandle"
syntax error at get-authHost2.sh line 35, near ""$_ \n" $filehandle"

这是我到目前为止所拥有的......

use strict; use warnings;

my $outfile; my $filehandle; my $authHost;

my $filename = $1; open(my $fh, '<', $filename)   or die "Could not open file '$filename' $!";


while (my $line = <$fh>) {   chomp $line;
        if (my ($authHost) = $line = /authHost="(.*?)"/ )
        {
                print "$authHost" ;

                $outfile = print "$authHost-auth-events.out" ;

                $filehandle = $authHost;

                # if filehandle already exists, don't open the file again
                if (-f $filehandle) {
                        print "$line \n" $filehandle;
                  }
                  else {

                        open(my $filehandle, '>>', $outfile) or die "Could not open file '$filename' $!";
                        print "$line \n" $filehandle;
                  }
        } } close $fh;

我似乎找不到答案。我发现的所有问题都是关于测试文件是否存在......而不是文件句柄本身是否存在。

任何帮助将不胜感激。我不是程序员，所以要温柔一点！:-)