小编Jas*_*son的帖子

我使用Tie :: Handle :: CSV编写了一个perl脚本来处理csv文件中的一堆数据,并将我需要的内容打印到新的csv文件中.现在,我打印出带有所有字段名称的标题行,只需硬编码就像这样:

print '"TERM", "STUDENT ID", "NAME", ..."'."\n";

我怀疑这是一种愚蠢的方式,但我不知道如何从Tie :: Handle :: CSV对象中访问标题.它的实例化如此,

my $fh = Tie::Handle::CSV->new($file,header=> 1);

并且像这样访问数据,

$line -> {'CATALOG_NBR'}

我知道这是一个哈希引用,但还不足以知道如何使用它来打印头而不是硬编码.显然,"他们"通常会在每个术语重新运行脚本之后更改精确的列名称和排序.

非常感谢您的帮助!JA