本篇內(nèi)容主要講解“Perl怎么連接數(shù)據(jù)庫mysql”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實用性強。下面就讓小編來帶大家學(xué)習(xí)“Perl怎么連接數(shù)據(jù)庫mysql”吧!

創(chuàng)新互聯(lián)建站是專業(yè)的新興網(wǎng)站建設(shè)公司，新興接單;提供成都做網(wǎng)站、成都網(wǎng)站設(shè)計,網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行新興網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!

一、命令行參數(shù)

1.1 代碼

#!/usr/bin/env perl

use Getopt::Long;
use Data::Dumper;
use Pod::Usage;

my $Debug = 1;

sub dprint (@)
{
        return unless $Debug;
        chomp(my @m = @_);
        print STDERR 'DEBUG: ', join(" ", @m),"\n";
}

MAIN:
{
        my $db_user;
        my $db_pass;

        GetOptions(
                \my %opt,
                'debug|d+'      => \$Debug,
                'help|h|?'      => sub{ pod2usage(-verbose=>1) },
                'db_user|u=s'   => \$db_user,
                'db_pass|x=s'   => \$db_pass,
                ) or pod2usage();
        pod2usage(-message=>"must requires db_user, db_pass!")
                unless $db_user && $db_pass;

        dprint "db_user         : $db_user";
        dprint "db_pass         : $db_pass";
}

1.2 使用

      命令：“--” 或 “-”

      ./test.pl --db_user testuser --db_pass testpass
      ./test.pl --u testuser --x testpass

二、連接數(shù)據(jù)庫mysql

2.1 代碼

#!/usr/bin/env perl

use DBI;

MAIN:
{
        my $dbh = DBI->connect("DBI:mysql:clouxns:202.85.222.121:3306", "root", "zxc1758!&%*");

        $query_sql = "SELECT zone_id, zone_name FROM xns_zone";
        $query_sth = $dbh->prepare($query_sql);

        $query_sth->execute() or die "can't run query sql:$dbh->errstr";
        while(my @data = $query_sth->fetchrow_array())
        {
                my $zone_id      = $data[0];
                my $zone_name    = $data[1];
                print "$zone_id\t$zone_name\n";
        }

        $dbh->disconnect();
}

三、DNS查詢

      dns查詢A記錄、NS、SOA。

#!/usr/bin/env perl

use Net::DNS::Resolver;
use Net::DNS::Packet;

MAIN:
{
        my $resolver = Net::DNS::Resolver->new;

#Find a host's address
        my $query = $resolver->search("www.guowenyan.cn");
        if($query)
        {
                foreach my $rr ( grep { $_->type eq "A" } $query->answer )
                {
                        print $rr->address,"\n";
                }
        }
        else
        {
                warn "query failed:",$resolver->errorstring,"\n";
        }

#Find the nameservers for a domain.
        my $query = $resolver->search("baidu.com", "NS");
        if($query)
        {
                foreach my $rr ( grep { $_->type eq "NS" } $query->answer )
                {
                        print $rr->nsdname,"\n";
                }
        }
        else
        {
                warn "query failed:",$resolver->errorstring,"\n";
        }

#Find a domain's SOA record in zone file format.
        my $query = $resolver->search("baidu.com", "SOA");
        if($query)
        {
                ($query->answer)[0]->print;
        }
        else
        {
                warn "query failed:",$resolver->errorstring,"\n";
        }
}

四、發(fā)送郵件

4.1 代碼

#!/usr/bin/env perl

use Net::SMTP;

sub send_mail()
{
        my @mail_to = ('480160531@qq.com', '2135361204@qq.com');

        my $mail_from = 'kan_haha001@163.com';
        my $mail_pass = "123zxc";
        my $mail_message = "aanbb";

        my $smtp = Net::SMTP->new("smtp.163.com");

        $smtp->auth($mail_from, $mail_pass) || die "Auth Error! $!";
        foreach my $mail_to (@mail_to)
        {
                $smtp->mail($mail_from);
                $smtp->to($mail_to);

                #Start the mail
                $smtp->data();

                #Send the header
                $smtp->datasend("From: $mail_from\n");
                $smtp->datasend("To: $mail_to\n");
                $smtp->datasend("Subject: the mail is sended by perl.\n");
                $smtp->datasend("\n");

                #send the message
                $smtp->datasend("$mail_message\n");

                #send the termination string
                $smtp->dataend();
        }

        $smtp->quit();
}

4.2 注意事項

      1. 需要安裝Authen::SASL：perl -MCPAN -e shell       cpan>install Authen::SASL。

       2. 發(fā)件人、收件人必須是單引號('kan_haha001.163.com')。

      3. 郵件頭中的發(fā)件人、收件人、主題、正文的前后都必須有\(zhòng)n。（否則會系統(tǒng)退信）

到此，相信大家對“Perl怎么連接數(shù)據(jù)庫mysql”有了更深的了解，不妨來實際操作一番吧！這里是創(chuàng)新互聯(lián)建站，更多相關(guān)內(nèi)容可以進入相關(guān)頻道進行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！

本文題目：Perl怎么連接數(shù)據(jù)庫mysql-創(chuàng)新互聯(lián)
標(biāo)題路徑：http://aaarwkj.com/article34/cdppse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、網(wǎng)站改版、小程序開發(fā)、靜態(tài)網(wǎng)站、響應(yīng)式網(wǎng)站、服務(wù)器托管

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)