On 7/1/2004 9:59 PM, David Arnold wrote:
All,
For this:
#! /usr/bin/perl -w
# file: stein_test_DBI_table.pl
use strict;
use Tie::DBI ();
my $DB_NAME = 'test_www';
my $DB_HOST = 'localhost';
my %test_users = (
'root' => [qw(user,authors,admin 5 superman)],
^ ^
possible use of commas to seperate words
'george' => [qw(users 3 jetson)],
'winnie' => [qw(user,authors,devel 3 thepooh)],
^ ^
possible use of commas to seperate words
'andrew' => [qw(users 2 llama23)],
'fred' => [qw(users,devel 2 bisquet)],
^
possible use of commas to seperate words
'morgana' => [qw(users 1 lafey)]
);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
