JeffHung.Blog

#include 
#include 
#include 
#include 


template 
class BerkeleyDB3
{
public:

 typedef K key_type;
 typedef D data_type;
 typedef ::std::pair value_type;

 // 一般使用，type 請傳入 DB_BTREE 或是 DB_HASH，指底層資料儲存方式。然
 // 後 flags 常會傳入 DB_CREATE 和/或 DB_RDONLY，前者指定若 fname 檔案
 // 不在要不要建立新檔，後者指定是否唯讀。
 BerkeleyDB3(const char* fname, DBTYPE type, u_int32_t flags)
 {
   int ret;
   if ((ret = db_create(&db_, NULL, 0)) != 0) {
     ::std::cerr << "db_create: "
                 << db_strerror(ret)
                 << ::std::endl;
     ::std::exit(1);
   }
   if ((ret = db_->open(db_, fname, NULL, type, flags, 0664)) != 0) {
     ::std::cerr << "DB->open(\""
                 << fname << \"") failed: "
                 << db_strerror(ret)
                 << ::std::endl;
     ::std::exit(1);
   }
 }

 ~BerkeleyDB3()
 {
   int ret;
   if ((ret = db_->close(db_, 0)) != 0) {
     ::std::cerr << "db: db->close() failed: "
                 << db_strerror(ret)
                 << ::std::endl;
     ::std::exit(1);
   }
 }

 bool put(K key, D data)
 {
   DBTType dbt_key(key);
   DBTType dbt_data(data);
   int ret;

   if ((ret = db_->put(db_, NULL, dbt_key.dbt(), dbt_data.dbt(), 0)) != 0) {
     ::std::cerr << "DB->put("
                 << key
                 << ", "
                 << data
                 << ") failed: "
                 << db_strerror(ret)
                 << ::std::endl;
     exit(1);
   }

   return true;
 }

 bool get(K key, D& data)
 {
   DBTType dbt_key(key);
   DBTType dbt_data;
   int ret;

   if ((ret = db_->get(db_, NULL, dbt_key.dbt(), dbt_data.dbt(), 0)) != 0) {
     switch (ret) {
     case DB_NOTFOUND:
       return false;
       break;
     default:
       ::std::cerr << "DB->get("
                   << key
                   << ") failed: "
                   << db_strerror(ret)
                   << ::std::endl;
       exit(1);
     }
   }
   data = dbt_data.get();

   return true;
 }


private:

 // 這裡應該利用 template specialization 技術，針對幾種常見的 type 作偏
 // 特化。好比說若 T 是 char*，很顯然地我們要存進資料庫的不是那個指標。
 template 
 class DBTType
 {
 friend BerkeleyDB3;
 public:

   DBTType()
   {
     memset(&dbt_, 0, sizeof(DBT));
   }

   DBTType(const T& data)
     : data_(data)
   {
     memset(&dbt_, 0, sizeof(DBT));
     dbt_.data = &data_;
     dbt_.size = sizeof(data_);
   }

   void set(const T& data)
   {
     data_ = data;
     dbt_.data = &data_;
     dbt_.size = sizeof(data_);
   }

   const T get()
   {
     return *((T*)(dbt_.data));
   }

 private:

   DBT* dbt()
   {
     return &dbt_;
   }

   DBT dbt_;
   T   data_; // 用以作為資料的記憶體空間，好處是不必管理底層記憶體，壞
              // 處是要負擔新建物件的成本，且 T 必須是 copyable。

 }

 DB* db_;

};

print (($s =~ m/會議/) ? 'match' : 'no match');

my $__FULLBIG5CHARS = q{
# Table adopted from http://freebsd.sinica.edu.tw/zh-tut/big5.html
# (http://netlab.cse.yzu.edu.tw/~statue/freebsd/zh-tut/big5.html)
#
#    第一位元組      第二位元組          字區                                                  制訂
# ----------------------------------------------------------------------------------------------------
 ([\xA1-\xA2][\x40-\x7E\xA1-\xFE])| # 各種符號區                                            Big5_1984
 (     [\xA3][\x40-\x7E\xA1-\xBF])| # 各種符號區 (?]括標點符號、ASCII 全形符號、注音符號等) Big5_1984
 (     [\xA3]              [\xE1])| # 歐元符號                                              CP950
 ([\xA4-\xC5][\x40-\x7E\xA1-\xFE])| # 常用字區                                              Big5_1984
 (     [\xC6]         [\x40-\x7E])| # 常用字區                                              Big5_1984
 (     [\xC6]         [\xA1-\xFE])| # 罕用符號區                                            Big5_ETen
 (     [\xC7][\x40-\x7E\xA1-\xFE])| # 罕用符號區 (?]括日文、俄文等)                         Big5_ETen
 (     [\xC8][\x40-\x7E\xA1-\xD3])| # 罕用符號區 (?]括俄文、輸入法特殊符號等)               Big5_ETen
 ([\xC9-\xF8][\x40-\x7E\xA1-\xFE])| # 次常用字區                                            Big5_1984
 (     [\xF9][\x40-\x7E\xA1-\xD5])| # 次常用字區                                            Big5_1984
 (     [\xF9]         [\xD6-\xDC])| # 七個擴充字 (碁, 銹, 裏, 墻, 恒, 粧, 嫺)               Big5_ETen
 (     [\xF9]         [\xDD-\xFE])| # 表格符號區                                            Big5_ETen
};

sub mmi_escape_big5_re
{
 my ($mbcs) = @_;

 die if (!defined($mbcs));

 # One character per list element.
 my @chars = ();
 while ($mbcs =~ /\G($__BIG5CHARS)/gox) {
    push @chars, $&;
 }

 my $str = '';
 for my $char (@chars) {
    if (length($char) > 1) {
       if ($char =~ m/[\[|\^\$]/o) {
          my $c0 = sprintf('[\x%X]', ord(substr($char, 0, 1)));
          my $c1 = sprintf('[\x%X]', ord(substr($char, 1, 1)));
          $char = "$c0$c1";
       }
       else {
       }
    }
    $str .= $char;
 }

 return $str;
}

$content = 'blah~ blah~ blah~';
while ($input = <>) {
 chomp($input);
 $re = mmi_escape_big5_re($input);
 if ($content =~ m/$re/) {
    print "There are '$input' in \$content.\n";
 }
}