Question

怎样用perl从数据库中提取数据并保存成一个二维数组显示出来？

比如说我现在有个表 金额历史表（账号，开始日期，金额类型代码，金额，结束日期），其中 账号，开始日期是主键，金额类型代码是外键，关联 金额类型代码表（金额类型代码，金额类型代码描述）。

怎样用perl 从数据库中的金额类型代码表中取出数据并存成二维数组，以便于将系统源数据插入到金额历史表中？

Answer 1

是不是要做该表中的第三四列的相互关联工作？
用hash，后面的代码文字说明如果唯一的话，用该列作key，前面的数字代码做value，一个文字说明，对应一个数字代码，有这样的对应关系，就可以用起来了。
或者直接split后，检测文字说明那一列是否有你需要的关键词，然后也能对应上前面那一列。

Answer 2

你这个数据看起来是文本，可以用记事本打开确认，如果是文本数据，perl读取是很容易的，open打开文件，以行为单位读入，使用split分为数组，然后取你需要的就可以了，大概的代码如下：
my
($str,@arr);open(fd,'xxx.txt');while($str=){
@arr=sp...