Perl 正在尝试分析日志文件并将输出重定向到saperate文件

您好，我正在尝试解析日志文件并将输出重定向到一些文件，但最后创建了一些垃圾文件。。 GLOB（0x152c4e4）.txt，GLOB（0x1545c1c）.txt类似的 在代码中，我定义了全局变量中的每个变量

my $g1logFIle = " " ;
my $V1gFIle = " " ;
my $D1logFIle = " " ;
my $D1logFIle = " " ;

我再次打开一个文件以重定向其输出-

open( $g1logFIle, ">>" , g1logFIle.".txt" ) or die $!;
open( $V1logFIle, ">>" , V1logFIle.".txt" ) or die $!;
open( $D1logFIle, ">>" , D1logFIle.".txt" ) or die $!;

在解析时，我只是在文件中打印解析后的输出-

print $D1logFIle "+D1Launch Request ", ($D1hMetrics{NoOfTimes} + 1), "\n\n"
print $V1logFIle  "+VOD Launch Request ", ($V1Metrics{NoOfTimes} + 1), "\n\n";

---

我哪里做错了？？？

当我运行你的代码时，我会得到像

g1logFIle.txt

这样的文件。如果在文件名中使用

$g1logFIle

变量，则会创建

GLOB（0x152c4e4）.txt

文件。您应该为文件句柄（open的第一个参数）和文件名（第三个参数）使用不同的变量

---

你昨天问了这个问题，得到了几个答案。。。

open my $G_HANDLE, '>>', "$g1logFIle.txt" or die $!;