かわいいコードの書き方

カスタム検索

(かわいいコードの書き方)

Modified: 1 July 2006

後半の全角スペースを削除する方法

一旦全角スペース（SJISでは、"\x81\x40"）を、半角スペースに変換し、その後、後半の半角スペースを削除します。

$_ = $string;
s/\x81\x40/ /g;
s/\s+$//;
$string = $_;

DBIでデータベース（MySQL）を処理する方法

事前に、DBI.pm のインストールが必要です。

まず、データベースに接続します。
my $dbh = DBI->connect("dbi:mysql:dbname=databasename:hostname",'userid','password');
後は、SQL文で処理できます。

SELECT文で、複数のデータを取り出す場合は、以下のようにします。
my $sql = "SELECT * FROM tablename WHERE id = '".$item."'";
my $sth = $dbh->selectall_arrayref($sql);
for(my $c=0; $c<n; $c++) {
	$data[$c] = $sth->[0][$c];
}
１回で終わるSQL分の場合は、以下のようにします。
my $sql = "CREATE TABLE tablename (nm text, id text, pw text);";
my $sth = $dbh->prepare($sql);
$sth->execute;
最後に、データベースを閉じます。
$dbh->disconnect;

カスタム検索