如何使用循环插入此数据

时间:2014-04-13 11:22:41

标签: perl

我从mysql获得了一些数据:

Company,Employees
'1',    '33'
'2',    '36'
'3',    '30'
'4',    '21'
'5',    '36'
'6',    '24'
 .
 .

这是我从mysql获取数据的方式:

my %result; 
    while ( my $rec = $slots->fetchrow_hashref ) {
        push @{ $result{ $rec->{"Employees"} } }, $rec->{"CompanyID"};
    }
    @order = map { $result{$_} } sort { $a<=>$b } keys %result;

我想要完成的是什么;

我有一张名为“Something”的表格:

我想在“Something”数据库中为每位员工插入一行。

所以我应该有像

这样的东西
Company   ,  Employees
1              1
1              2
1              3
              up till 33 times for company 1.

我怎么能实现这个目标?

0 个答案:

没有答案