1 #!/usr/bin/perl -w
2 use DBI;
3 my $data_source="DBI:mysql:radius:localhost";#DBI:数据库类型:数据库名:主机名:端口号<--->DBI:dbtype:db:host:port
4 my $user=YOUR-USERNAMME;
5 my $password=YOUR-PASSWORD;
6 $dbh=DBI->connect($data_source,$user,$password);
7 $sth=$dbh->prepare("select username,groupname,priority from radusergroup");
8 $sth->execute();
9 @array_row=$sth->fetchrow_array;
10 print $array_row[0]."\n";
11 print $array_row[1]."\n";
12 print $array_row[2]."\n";
13 $sth->finish;
2 use DBI;
3 my $data_source="DBI:mysql:radius:localhost";#DBI:数据库类型:数据库名:主机名:端口号<--->DBI:dbtype:db:host:port
4 my $user=YOUR-USERNAMME;
5 my $password=YOUR-PASSWORD;
6 $dbh=DBI->connect($data_source,$user,$password);
7 $sth=$dbh->prepare("select username,groupname,priority from radusergroup");
8 $sth->execute();
9 @array_row=$sth->fetchrow_array;
10 print $array_row[0]."\n";
11 print $array_row[1]."\n";
12 print $array_row[2]."\n";
13 $sth->finish;