説明のないとってもシンプルなサンプルプログラム集

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

Perl > MySQLへ接続する

mysql.pl

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 use DBI;
$conn = DBI->connect('DBI:mysql:sample:localhost','root','12345678');
$conn->do("CREATE TABLE mytbl (id INT,name VARCHAR(10))");
$conn->do("INSERT INTO mytbl (id,name) VALUES (1,'apple')");
$conn->do("INSERT INTO mytbl (id,name) VALUES (2,'banana')");
$conn->do("INSERT INTO mytbl (id,name) VALUES (3,'candy')");
my $st=$conn->prepare("SELECT id,name FROM mytbl");
$st->execute;
while(my @row=$st->fetchrow_array){
	print "@row\n";
}
$st->finish;
$conn->do("DROP TABLE mytbl");
$conn->disconnect;

$ sudo cpan install DBI

*snip*

MySQL起動

$ sudo /etc/init.d/mysql start
$ mysql -uroot -p 元々のパスワードがない場合は-p不要

*snip*

パスワード変更

mysql> set password for root@localhost=password('12345678');

sample DATABASE作成

mysql> create database sample
mysql> exit

$ perl mysql.pl
1 apple
2 banana
3 candy
$

* 確認環境 Debian Linux(Wheezy)