Perl怎么连接数据库mysql

　　介绍

本篇内容主要讲解“Perl怎么连接数据库mysql”,感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷,实用性强。下面就让小编来带大家学习“Perl怎么连接数据库mysql”吧!

<强>一,命令行参数

<强> 1.1代码 

 # !/usr/bin/env  Perl
　　
　　use  Getopt::长;
　　use  Data:: Dumper;
　　use  Pod::使用;
　　
　　my  Debug 美元;=,1;
　　
　　sub  dprint  (@)
　　{
　　,,,,,,,return  unless  $调试;
　　,,,,,,,chomp (my  @m =, @ _);
　　,,,,,,,print  STDERR  & # 39;调试:& # 39;,,加入(,,,,,@m),“\ n";
　　}
　　
　　主要:
　　{
　　,,,,,,,my  db_user美元;
　　,,,,,,,my  $ db_pass;
　　
　　,,,,,,,GetOptions (
　　,,,,,,,,,,,,,,,\ my  %选择,
　　,,,,,,,,,,,,,,,& # 39;调试| d + & # 39;,,,,,,=祝辞,\ $调试,
　　,,,,,,,,,,,,,,,& # 39;帮助| | h ? & # 39;,,,,,,=祝辞,子{,pod2usage (- verbose=祝辞;1),},
　　,,,,,,,,,,,,,,,& # 39;db_user | u=& # 39;,,,=祝辞,\ db_user美元,
　　,,,,,,,,,,,,,,,& # 39;db_pass | x=& # 39;,,,=祝辞,\ $ db_pass,
　　,,,,,,,,,,,,,,,),或是pod2usage ();
　　,,,,,,,pod2usage(“消息=;must  requires  db_user,, db_pass !“)
　　,,,,,,,,,,,,,,,unless  db_user 美元;,,,$ db_pass;
　　
　　,,,,,,,dprint “db_user ,,,,,,,,:, db_user"美元;;
　　,,,,,,,dprint “db_pass ,,,,,,,,:, db_pass"美元;;
　　}

<强> 1.2使用

,,,命令:“——”或“-”

,,,,,/测试。pl - db_user testuser——db_pass testpass
,,,,,/测试。pl - u testuser - x testpass

Perl怎么连接数据库mysql

<强>二,连接数据库mysql

<强> 2.1代码 

 # !/usr/bin/env  Perl
　　
　　use  DBI;
　　
　　主要:
　　{
　　,,,,,,,my  dbh 美元;=,DBI→连接(“DBI: mysql: clouxns: 202.85.222.121:3306",,“root",,“zxc1758 !, % *“);
　　
　　,,,,,,,query_sql 美元;=,“SELECT  zone_id,, zone_name 得到xns_zone";
　　,,,,,,,query_sth 美元;=,$ dbh→准备($ query_sql);
　　
　　,,,,,,,美元query_sth→执行(),或是die “停下来# 39;t  run  query  sql: $ dbh→errstr";
　　,,,,,,,,(my  @data =,美元query_sth→fetchrow_array ())
　　,,,,,,,{
　　,,,,,,,,,,,,,,,my  zone_id 美元;,,,,,=,$ data [0];
　　,,,,,,,,,,,,,,,my  zone_name 美元;,,,=,$ data [1];
　　,,,,,,,,,,,,,,,print “zone_id \ t zone_name \ n"美元;;
　　,,,,,,,}
　　
　　,,,,,,,$ dbh→断开();
　　}

<强>三、DNS查询

,,,dns查询一记录,NS, SOA。

 # !/usr/bin/env  perl
　　
　　use  Net:: DNS:解析器;
　　use  Net:: DNS:包;
　　
　　主要:
　　{
　　,,,,,,,my  resolver 美元;=,Net:: DNS:解析器→新;
　　
　　# Find  a 主机# 39;s 地址
　　,,,,,,,my  query 美元;=,解析器→美元搜索(“www.guowenyan.cn");
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
　　null
Perl怎么连接数据库mysql