[perl学习笔记]perl数据库操作（很简单的，没有任何）

  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;