カスタム検索
このエントリーをはてなブックマークに追加
tomo.gif (1144 ツバツイツト)line.gif (927 ツバツイツト)line.gif (927 ツバツイツト)line.gif (927 ツバツイツト)To previous pageTo home pageMailing to me

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

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];
}

1回で終わるSQL分の場合は、以下のようにします。

my $sql = "CREATE TABLE tablename (nm text, id text, pw text);";
my $sth = $dbh->prepare($sql);
$sth->execute;

最後に、データベースを閉じます。

$dbh->disconnect;

To previous pageTo home pageMailing to meJump to Top of pageline.gif (927 ツバツイツト)line.gif (927 ツバツイツト)tomo.gif (1144 ツバツイツト)
カスタム検索



このエントリーをはてなブックマークに追加