基本Perl脚本的哈希数组_Perl

基本Perl脚本的哈希数组

perl

基本Perl脚本的哈希数组,perl,Perl,我正在编写我的第一个Perl脚本，并逐行读取一个小文本文件。字段由“：”分隔，因此我希望使用第一个字段（名称）作为每个字段的键，将每个字段拆分为一个哈希数组。另外，（我想）我需要一个大的散列来保存所有信息，或者可能只是一个数组来保存每个字段，这样我就可以根据一个模式在一行上打印所有信息。我还没有到%info在散列赋值中创建奇数元素的地步。我应该让它成为一个规则数组吗？我这样做对吗？基本上，行的顺序是这样的 #/usr/bin/perl-w 严格使用；打印$#ARGV；如果（$#ARGV==-

我正在编写我的第一个Perl脚本，并逐行读取一个小文本文件。字段由“：”分隔，因此我希望使用第一个字段（名称）作为每个字段的键，将每个字段拆分为一个哈希数组。另外，（我想）我需要一个大的散列来保存所有信息，或者可能只是一个数组来保存每个字段，这样我就可以根据一个模式在一行上打印所有信息。我还没有到

%info

在散列赋值中创建奇数元素的地步。我应该让它成为一个规则数组吗？我这样做对吗？基本上，行的顺序是这样的

#/usr/bin/perl-w
严格使用；
打印$#ARGV；
如果（$#ARGV==-1）
{
打印“脚本需要1个参数。\n”；
出口1；
}
my$infle=$ARGV[0]；
#打开传递的文件
打开（在“$infle”中）| | die“无法打开：$！”#打开databook.txt
我的%info=（我的%姓名，我的%电话，我的%地址，我的%日期，我的%工资）；
while（）
{
%信息=（拆分/：/）[1]；
}
关闭（$infle）；

首先，您应该根据解析信息的使用方式定义数据结构。如果使用名称作为索引来搜索信息，我建议使用嵌套哈希，按名称索引：

{name => {phone => ..., address => ..., date => ..., salary => ...}, ...}

如果不打算使用名称作为索引，只需将信息存储在数组中：

[ {name => ..., address => ..., date => ..., salary => ...}, 
  {name => ..., address => ..., date => ..., salary => ...}, ...]

在大多数情况下，我会使用第一个

其次，Perl中的数组和哈希是平面的。因此：

my %info = (my %name, my %phone, my %address, my %date, my %salary);

没有道理。使用ref来存储数据

最后但并非最不重要的一点是，Perl为输入文件提供了语法糖。使用

从参数中读取文件，而不是显式打开文件。这使得这个程序更“完美”

使用严格；
使用警告；
使用数据：：转储程序；
我的$info={}；
而（）{
咀嚼；
我的@items=split/：/，$；
$info->{$items[0]}={phone=>$items[1]，
地址=>$items[2]，
日期=>$items[3]，
工资=>$items[4]}；
}
打印转储程序$info；