zoukankan      html  css  js  c++  java
  • perl连接mysql

    perl连接mysql
    
    
    #!/usr/bin/perl -w
    
    # yum install perl perl-devel 
    #             perl-Test-Simple.x86_64 
    #             perl-Time-HiRes perl-ExtUtils-CBuilder 
    #             perl-ExtUtils-MakeMaker 
    #             perl-Digest perl-Digest-MD5 
    #             perl-DBD-MySQL perl-DBI 
    #             libaio libaio-devel libev 
    
    
    use strict;
    use DBI;
    
    my $host = "10.0.0.11";         # 主机地址
    my $port = "3306";              # 端口
    my $driver = "mysql";           # 接口类型 默认为 localhost
    my $database = "app01";         # 数据库
    
    # 驱动程序对象的句柄
    my $dsn = "DBI:$driver:database=$database:$host:$port";
    my $userid = "root";            # 数据库用户名
    my $password = "123";           # 数据库密码
    
    # 连接数据库
    my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
    my $sth = $dbh->prepare("SELECT * FROM t1;");   # 预处理 SQL 语句
    $sth->execute();    # 执行 SQL 操作
    
    # 注释这部分使用的是绑定值操作
    # $alexa = 20;
    # my $sth = $dbh->prepare("SELECT name, url
    #                        FROM Websites
    #                        WHERE alexa > ?");
    # $sth->execute( $alexa ) or die $DBI::errstr;
    
    # 循环输出所有数据
    while ( my @row = $sth->fetchrow_array() )
    {
           print join(' ', @row)."
    ";
    }
    
    $sth->finish();
    $dbh->disconnect();
  • 相关阅读:
    LeetCode 264. Ugly Number II
    LeetCode 231. Power of Two
    LeetCode 263. Ugly Number
    LeetCode 136. Single Number
    LeetCode 69. Sqrt(x)
    LeetCode 66. Plus One
    LeetCode 70. Climbing Stairs
    LeetCode 628. Maximum Product of Three Numbers
    Leetcode 13. Roman to Integer
    大二暑假周进度报告03
  • 原文地址:https://www.cnblogs.com/zhouwanchun/p/13858018.html
Copyright © 2011-2022 走看看