0

我正在尝试构建一个脚本来读取文件中的行，通过制表符分隔符将它们拆分并（最终添加两列等）但是在 SPLIT 命令之后 for (.. 似乎没有将值读入array @netcolumns. 输出文件有一行（在 SPLIT 之前），然后是一行 TAB .. 但为空。 

#!/usr/bin/perl
# 
use strict;
use warnings;
use diagnostics;

# input and output files

my $file = "testfile4.txt";                     # tab seperated data
my $binout = $file . ".binned.txt";

# open filehandles

open IN, "<$file" or die "cannot open $file: $!\n";
open BOUT, ">$binout" or die "cannot open $binout: $!\n";

# some other variables
my @netcolumns=();                             # declare this

# the first line
my $firstLine = <IN>;
print ("$firstLine \n");
print BOUT ("$firstLine \n");

my $netcolumns = split /\t/, $firstLine;    # tab seperated data
    for (my $j = 0; $j < 7; $j ++) {        # print the 7 column headers from the first line of $input
        print BOUT "$netcolumns[$j]\t";
    }
print BOUT "\n";
print ("$netcolumns[0] \n");

close IN;
close BOUT;

屏幕输出显示文件的第一行，因此 $firstLine 从文件中获取了该行。我得到的警告是熟悉的“在@netcolumns 中使用未初始化的值串联 (.) 或 bin_data_4.pl 第 26 行第 1 行 (#1) 处的字符串（W 未初始化）”

数据文件如下所示：

frame.time_epoch frame.number frame.len ip.src sctp.srcport ip.dst sctp.dstport 1376065574.000054 1 1514 172.17.78.26 38733 172.16.189.180 3868
1376065574.000054 2 178 172.17.78.26 38733 172.16.189.180 3868
1376065574.000095 3 62 172.16.189.180 3868 172.17.78.26 38733
1376065574.000499 4 410 172.17.78.26 38733 172.16.189.180 3868
1376065574.000536 5 62 172.16.189.180 3868 172.17.78.26 38733
1376065574.000754 6 410 172.17.78.26 38733 172.16.189.180 3868
1376065574.001108 7 410 172.17.78.26 38733 172.16.189.180 3868
1376065574.001149 8 62 172.16.189.180 3868 172.17.78.26 38733
1376065574.001251 9 1514 172.17.78.26 38733 172.16.189.180 3868
1376065574.001251 10 178 172.17.78.26 38733 172.16.189.180 388

我似乎在第 30 行找不到错误，但我想这是一个明显的错误。谢谢你尽你所能的帮助。

4

0 回答 0