我是一名Perl初学者,目前正在编写一个Perl脚本来自动化我们的一些任务。我正在编写的一个脚本涉及从我们的系统中提取性能数据,将其存储在CSV文件中并生成Excel图表。经过几天的努力,我已经成功将提取的数据转换为CSV格式,但现在,我在尝试转置数据时遇到了困难!我看到了这个帖子(感谢dalton提供的脚本):stackoverflow thread,但我似乎无法将其应用于我的情况。
基本上,我的CSV文件包含每行每日的数据,列为一天中的小时数(24小时):
现在,我想将其转换,以便我将要写入新CSV文件的结果数据看起来像这样:
现在,我的脚本看起来像这样:
基本上,我的CSV文件包含每行每日的数据,列为一天中的小时数(24小时):
29-Aug-2013,3.68,3.63,3.75,3.65,3.65,3.11,3.34,2.74,2.83,2.52,3.19,4.24,3.84,3.61,3.69,2.96,2.76,2.91,3.70,3.82,3.70,3.54,2.54,3.90
30-Aug-2013,3.46,2.97,3.83,3.55,3.41,3.47,3.32,2.81,2.80,2.32,3.17,3.60,3.63,3.83,3.67,2.92,2.34,3.21,3.45,3.51,3.57,3.46,3.52,4.19
31-Aug-2013,3.19,3.50,4.01,3.91,3.71,3.33,3.20,2.95,2.90,2.37,3.07,3.48,2.86,3.29,3.22,2.52,1.83,2.83,3.54,3.49,3.62,3.59,3.54,3.31
01-Sep-2013,2.88,3.16,2.79,2.90,3.78,3.18,3.26,2.84,3.21,2.50,3.35,3.78,3.30,4.04,3.80,3.07,3.23,3.54,3.30,3.43,3.56,3.48,3.60,3.78
02-Sep-2013,3.28,2.92,3.89,3.78,3.54,3.09,3.08,2.79,2.87,2.43,2.70,3.64,3.79,3.88,3.88,3.28,2.90,3.37,3.25,3.60,3.45,3.39,2.84,4.07
03-Sep-2013,3.31,2.54,3.59,3.59,3.50,3.10,2.98,2.63,3.20,2.53,2.92,3.42,3.76,3.07,3.41,2.42,2.12,3.19,3.32,3.08,3.63,3.50,3.71,3.75
04-Sep-2013,3.64,3.48,2.86,3.57,3.68,3.53,3.34,2.89,2.79,2.64,3.30,4.04,4.17,3.70,3.81,2.96,3.41,3.48,3.66,3.05,3.23,3.41,3.15,4.31
现在,我想将其转换,以便我将要写入新CSV文件的结果数据看起来像这样:
Time,29-Aug-2013,30-Aug-2013,1-Sep-2013,2-Sep-2013,3-Sep-2013,4-Sep-2013
01:00,3.68,3.46,3.19,2.88,3.28,3.31,3.64
02:00,3.63,2.97,3.50,3.16,2.92,2.54,3.48
03:00,3.75,3.83,4.01,2.79,3.89,3.59,2.86
...
现在,我的脚本看起来像这样:
my @rows = ();
my @transposed = ();
open F1,"D:\\Temp\\perf_data.csv";
while(<F1>) {
chomp;
push @rows, split [ /,/ ];
}
#print @rows;
for my $row (@rows) {
for my $column (0 .. $#{$row}) {
push(@{$transposed[$column]}, $row->[$column]);
}
}
for my $new_row (@transposed) {
for my $new_col (@{$new_row}) {
print $new_col, ",";
}
print "\n";
}
我甚至已经无法从这里得到结果了!有人可以帮忙给我一些提示,让我知道如何做吗?提前谢谢!
split [ /,/ ]
应该改为[ split /,/ ]
。 - TLPuse strict; use warnings;
来启动您的脚本 2)只要字段中可能出现任何非平凡内容,就使用 Text::CSV 或其相关工具来读写 CSV;3)将输入文件作为参数传递给您的脚本,而不是将它们硬编码到您的文件中,这使得您的脚本更易于使用和测试。 - reinierpost