尝试解析日志文件并将输出重定向到单独的文件

时间:2013-04-17 12:41:40

标签: perl

您好我正在尝试解析日志文件并将输出重定向到一些文件但最后一些垃圾命名文件正在创建..     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";

哪里做错了?

1 个答案:

答案 0 :(得分:1)

当我运行您的代码时,我会收到g1logFIle.txt这样的文件。如果您在文件名中使用GLOB(0x152c4e4).txt变量,则会创建$g1logFIle个文件。您应该为文件句柄(open的第一个参数)和文件名(第三个参数)使用不同的变量。

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