perlでMySQLデータベースへのデータ挿入、データ取得するためのコードをメモ

$ sudo apt-get install tasksel

$ sudo tasksel

$ tasksel aptitude failed (100)

$ mysql -u root -p

Enter password: 
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 61
Server version: 5.5.34-0ubuntu0.13.10.1 (Ubuntu)

Copyright (c) 2000, 2013, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Type 'help;' or '\h' for help. Type '\c' to clear the current input statement.
mysql>

mysql> create database TestDatabase;
mysql> exit

$ cpanm DBI

use strict;
use warnings;
use DBI; # DBIモジュール

my $user = 'root'; # MySQLのユーザ名
my $pass = 'root'; # MySQLのパスワード
my $database = 'TestDatabase'; # 使用するデータベース名
my $hostname = 'localhost'; # データベースサーバのアドレス
my $port = '3006'; # データベースサーバに接続する時のポート番号
my $table =  'testtable'; # 操作するテーブル名

# 挿入するデータ
my @id = (1,2,3);
my @url = ('http://test1.com/', 'http://test2.com/', 'http://test3.com/');
my @desc = ('testsite1', 'testsite2', 'testsite3');

# データベースからのデータ格納用配列
my @data = ();

# データベースへ接続
my $db = DBI->connect(
  "DBI:mysql:$database:$hostname:$port",
  $user,
  $pass
) or die "cannot connect to MySWL: $DBI::errstr";

# $tableで指定したテーブルが無ければ作成
my $create_table = "create table if not exists ".$table."(id int, url text, description text)";
$db->do($create_table) || die $db->errstr;

# $tableからデータを削除
my $sql_delete  = "truncate ".$table;
$db->do($sql_delete) || die $db->errstr;


for (my $num = 0; $num < @id; $num++){

          # $tableにid, url, descをそれぞれ挿入
          my $sql_insert  = "insert into ".$table."(id, url, description) values(".$id[$num].",\'".$url[$num]."\',\'".$desc[$num]."\')";
          $db->do($sql_insert) || die $db->errstr;

          print "ID is ".$id[$num]."\n";
          print "url is ".$url[$num]."\n";
          print "description is ".$desc[$num]."\n";
}

my $sql  = "select * from ".$table;

# $sqlの実行準備
my $sth = $db->prepare($sql);

# SQL実行
$sth->execute;

# fetchrow_arrayを使って行データを項目の配列として取り出す
while (my @tmp = $sth->fetchrow_array) {
        push @data, [@tmp];
    }

# SQL文を開放
$sth->finish;

# データベースから切断   
$db->disconnect;

if ($@) {
    print "Error : $@\n";
}

    print "\nData from ".$table." \n";

foreach my $tmp (@data) {
    print join(",", @{$tmp}), "\n";
}

exit;

mysql> create table テーブル名(データ列名１ データ型, データ列名２ データ型, データ列名３ データ型, ...);

$db->do($create_table) || die $db->errstr;

mysql> truncate テーブル名;

mysql> delete from テーブル名　where データ列名 between 値の範囲１ and 値の範囲２;

mysql> insert into テーブル名(データ列名１, データ列名２, description) values(データ列１の値,　　データ列２の値, データ列３の値);

mysql> select * from テーブル名

mysql> select * from テーブル名 where データ列名 between 値の範囲１ and 値の範囲２;

ID is 1
url is http://test1.com/
description is testsite1
ID is 2
url is http://test2.com/
description is testsite2
ID is 3
url is http://test3.com/
description is testsite3

Data from testtable 
1,http://test1.com/,testsite1
2,http://test2.com/,testsite2
3,http://test3.com/,testsite3