Lorem Ipsum
04/18/2010 00:25:24
Lorem Ipsum
04/18/2010 00:25:24
Lorem Ipsum
04/18/2010 00:25:24
Lorem Ipsum
04/18/2010 00:25:24
code section
my @fields = qw(id login);
my $field = join ',',@fields;
$sql = qq{select $field from users};
&Prepare(\$global->{DB},$sql);
&Execute(\$global->{DB});
my @data = &Fetch(\$global->{DB},"!_!");
my $refData = &ArrayToHash(\@data,\@fields,"!_!");
pre section a b c d 1 2 3 4