Drupal で、サイトを削除する方法

Drupal でサイトを根こそぎ削除するには、データベース中の該当するテーブル群を削除すればよい。基本的にデータベース中に Drupal サイトが1つしか入っていない場合は、データベースごと削除してしまえばいいのだが、サブドメインごとに複数のサイトを 1つの Drupal 用データベースに入れている場合(そういうことが Drupal ではできる)、コアが使うテーブルに関してどのテーブルを削除すればいいのか判断に迷うときがある。よって、外部(サードパーティ)のモジュールをインストールしているケースが多いと思われるため、コアのテーブルはどれだったのかきちんと把握しておく必要がある。 そこで以下にコアのテーブルを削除する SQL 文を挙げてみた。
Drupal でサイトを根こそぎ削除するには、データベース中の該当するテーブル群を削除すればよい。基本的にデータベース中に Drupal サイトが1つしか入っていない場合は、データベースごと削除してしまえばいいのだが、サブドメインごとに複数のサイトを 1つの Drupal 用データベースに入れている場合(そういうことが Drupal ではできる)、コアが使うテーブルに関してどのテーブルを削除すればいいのか判断に迷うときがある。よって、外部(サードパーティ)のモジュールをインストールしているケースが多いと思われるため、コアのテーブルはどれだったのかきちんと把握しておく必要がある。 そこで以下にコアのテーブルを削除する SQL 文を挙げてみた。

Linux を、USB メモリだけで起動して動かす方法 (Ubuntu)

最近の Ubuntu がなかなか良くできてきている。昨年(2006年)はこのブログでも Knoppix を紹介したが、これからは Ubuntu だと確信する。2007年4月バージョン(Ubuntu のバージョン命名規則では 07.04)の Ubuntu は、USB メモリにインストールすると設定が保存されないという致命的なバグがあった。しかし 2007年10月バージョン(07.10)では、この不具合は改善されている。きちんとデスクトップその他設定は保存される(ただしまだ完璧ではないが)。Google OS なるものがリリースされるとしたら間違いなく Ubuntu ベースであり、Ubuntu = Google OS 入りのUSB メモリが店頭に並ぶ日も近いかも知れない。
最近の Ubuntu がなかなか良くできてきている。昨年(2006年)はこのブログでも Knoppix を紹介したが、これからは Ubuntu だと確信する。2007年4月バージョン(Ubuntu のバージョン命名規則では 07.04)の Ubuntu は、USB メモリにインストールすると設定が保存されないという致命的なバグがあった。しかし 2007年10月バージョン(07.10)では、この不具合は改善されている。きちんとデスクトップその他設定は保存される(ただしまだ完璧ではないが)。Google OS なるものがリリースされるとしたら間違いなく Ubuntu ベースであり、Ubuntu = Google OS 入りのUSB メモリが店頭に並ぶ日も近いかも知れない。

Drupal で、ファイルシステムで設定したパスを取得する (file_directory_path)

Drupal では、画像やファイルをアップロードする先のディレクトリは、ファイルシステムへのパスとして admin/settings/file-system で設定できるようになっている。このファイルシステムへのパスを自身のモジュールから参照するには、
file_directory_path()
という API 関数を呼び出せばよい。
Drupal では、画像やファイルをアップロードする先のディレクトリは、ファイルシステムへのパスとして admin/settings/file-system で設定できるようになっている。このファイルシステムへのパスを自身のモジュールから参照するには、
file_directory_path()
という API 関数を呼び出せばよい。

Perl で、数字(数値)を3桁ごとにカンマ(,)で区切る方法

まぁ、こんな感じ?他にもっといい方法はありそう。
#!/usr/bin/perl

my $num = 123456789;
print comman($num);

sub comma {
  local($_) = @_;
  1 while s/(.*\d)(\d\d\d)/$1,$2/;
  $_;
}

1;
まぁ、こんな感じ?他にもっといい方法はありそう。
#!/usr/bin/perl

my $num = 123456789;
print comman($num);

sub comma {
  local($_) = @_;
  1 while s/(.*\d)(\d\d\d)/$1,$2/;
  $_;
}

1;
Posted on 2007-10-23 by yas |