ソフトウェアエンジニアの技術ブログ：Software engineer tech blog

mysql> use test
Reading table information for completion of table and column names
You can turn off this feature to get a quicker startup with -A

Database changed
mysql> show tables;
+----------------+
| Tables_in_test |
+----------------+
| items          |
| name           |
| news           |
| user           |
+----------------+
4 rows in set (0.00 sec)

mysql> select * from items;
+---------+---------+-------+
| item_id | name    | price |
+---------+---------+-------+
|       1 | U+1F363 |  NULL |
+---------+---------+-------+
1 row in set (0.00 sec)

#!/usr/bin/perl --

use CGI;
use DBI;

print "Content-type:text/html\n\n";
print "hello";
my $user = 'root';
my $passwd = '';
my $db = DBI->connect('DBI:mysql:test:localhost', $user, $passwd);
my $sth = $db->prepare("select * from items;");
$sth->execute();
while (my $ary_ref = $sth->fetchrow_arrayref){
	my($a, $b) = @$ary_ref;
	print "$a, $b\n";
}
$sth->finish;
$dbh->disconnect;

OKなんだけど、これ、tableで表示するとき、whileが2つになるけど、どうするんだっけ？

print "<table>";
while (my $ary_ref = $sth->fetchrow_arrayref){
	my($a, $b) = @$ary_ref;
	print "<tr><td>$a</td><td>$b</td></tr>\n";
}
print "</table>";

tableはtableで良いんだが。。

Perlで入れて、文字化けしてる！？

my $user = 'root';
my $passwd = '';
my $db = DBI->connect('DBI:mysql:click:localhost', $user, $passwd);
my $sth = $db->prepare("INSERT INTO _mng(user_id, password, last_name, first_name, dept) VALUES (?, ?, ?, ?, ?)");
$sth->execute($user_id, $password, $last_name, $first_name, $dept);

+---------+----------+----------------+--------------+---------------------+----------------------+------------------------+----------------+----------------------+-----------------------+---------------------------+---------------+-------------+---------------+-------------+
| aaa     | hoge     | �田         | 太郎       | 管�部           | NULL                 | NULL                   |           NULL | NULL                 | NULL                  | NULL                      | NULL          | NULL        | NULL          | NULL        |
| eda     | hoge     | 江藤         | �          | 管�部           | NULL                 | NULL                   |           NULL | NULL                 | NULL                  | NULL                      | NULL          | NULL        | NULL          | NULL        |
| hoge    | hoge     | 山田         | 太郎       | 管�部           | NULL                 | NULL                   |           NULL | NULL                 | NULL                  | NULL                      | NULL          | NULL        | NULL          | NULL        |
| ykk     | hoge     | 高橋         | �          | 管�部           | NULL                 | NULL                   |           NULL | NULL                 | NULL                  | NULL                      | NULL          | NULL        | NULL          | NULL        |
+---------+----------+----------------+--------------+---------------------+----------------------+------------------------+----------------+----------------------+-----------------------+---------------------------+---------------+-------------+---------------+-------------+
4 rows in set (0.00 sec)

set name utf8がない模様

my $user = ‘root’;
my $passwd = ”;
my $db = DBI->connect(‘DBI:mysql:click:localhost’, $user, $passwd);
my $sth = $db->prepare(“INSERT INTO mng(user_id, password, last_name, first_name, dept) VALUES (?, ?, ?, ?, ?)”);
$db->do(“set names utf8”);
$sth->execute($user_id, $password, $last_name, $first_name, $dept);

+———+———-+—————-+————–+———————+———————-+————————+—————-+———————-+———————–+—————————+—————+————-+—————+————-+
| aaa | hoge | �田 | 太郎 | 管�部 | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL |
| eda | hoge | 江藤 | � | 管�部 | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL |
| hoge | hoge | 山田 | 太郎 | 管�部 | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL |
| sakura | sakura | さくら | たかし | 管理部 | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL |
| ykk | hoge | 高橋 | � | 管�部 | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL | NULL |
+———+———-+—————-+————–+———————+———————-+————————+—————-+———————-+———————–+—————————+—————+————-+—————+————-+
5 rows in set (0.00 sec)

日本語で入りましたねー