[perl学习笔记]perl数据库操作(很简单的,没有任何)
来源:互联网 发布:淘宝卖茶叶三证 编辑:程序博客网 时间:2024/06/01 23:54
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;
- [perl学习笔记]perl数据库操作(很简单的,没有任何)
- perl简单学习笔记(一)
- perl简单学习笔记(二)
- perl学习笔记(一)——perl的安装
- Perl文件操作学习笔记
- Perl的学习笔记 转摘
- perl的一些学习笔记
- [perl学习笔记]文件操作之文件的读写
- 【PERL笔记1】perl Tk 简单部件的应用
- Perl学习笔记(1)
- Perl学习笔记(2)
- perl学习笔记(一)
- perl学习笔记(二)
- perl学习笔记(一)
- perl学习笔记(二)
- Perl学习笔记(一)
- perl学习笔记 (转载)
- Perl 学习笔记(2)
- MFC定义全局变量
- Java二进制指令代码解析
- 数据库
- 课堂笔记
- 数据库
- [perl学习笔记]perl数据库操作(很简单的,没有任何)
- mysq基本命令
- Stored Procedure
- 数据库
- NYoj 20 深搜
- C++的时间
- 我的未来
- java并发编程博客
- 课堂笔记