• Netscape Navigator, Internet Exproler, W3C HTML 4.0.1 Traditional, i-mode 4.0 用の HTML がチェックができます。
• チェック機能は、ASP/PHP 部分のプログラム部分を無視します。
• charset のチェック (euc, sjis, iso-2022-jp)
• 開始タグ <=> 終了タグ間のジャンプ機能
• 開始タグ <=> 終了タグ間のマークリージョン機能
• 要素の非表示／表示機能
• ASP/PHP 部分のみを表示する機能
• 要素名、属性名などの補間機能
• 要素名や実体参照の色づけ

if (preg_match("/[\041-\137][\136\137]/", $string)) {
	print "match\n";
}

if (preg_match('/[\041-\137][\136\137]/', $string)) {
	print "match\n";
}

HSubject: $>MyRule
...
SMyRule
R...

sub b_encode_string ($) {
    my $mod3 = length($_[0]) % 3;
    local($_);

    $_ = pack('u', $_[0]);
    chop;
    s/(^|\n).//mg;
    tr[`!-_][A-Za-z0-9+/];

    if    ($mod3 == 1) { s/..$/==/; }
    elsif ($mod3 == 2) { s/.$/=/; }

    $_;
}

int dsb_block_num;	/* セカンダリバッファの分割数 */
int dsb_block_siz;	/* 分割セカンダリバッファの個々のバイト数 */
int dsb_buffer_size;	/* セカンダリバッファサイズ (dsb_block_num * dsb_block_siz) */
int dsb_write_point;	/* セカンダリバッファの書き込み位置 */
LPDIRECTSOUNDBUFFER dsb; /* セカンダリバッファ */

/*
 * セカンダリバッファを dsb_block_num 等分し、個々のブロックの最後の
 * 地点に、Notification Position が設定されていると仮定します。
 */

BOOL
check_lock_safe(int r1, int w1, int r2, int w2)
{
  return (w1 < r2) ^ (w2 < r1);
}

int
HandleWaveStreamNotification(void)
{
  DWORD pc, wc;
  DWORD len1;
  char *data1;

  IDirectSoundBuffer_GetCurrentPosition(dsb, &pc, &wc);

  /* ここで、異常なイベント発生を検出 */
  if (!check_lock_safe(pc, (pc <= wc ? wc : wc + dsb_buffer_size),
		       dsb_write_point, dsb_write_point + dsb_block_siz))
    return;

  len1 = 0;
  data1 = NULL;
  IDirectSoundBuffer_Lock(dsb, dsb_write_point, dsb_block_siz,
			  (void **)&data1, &len1,
			  NULL, 0, 0);

  /* データを data1 に読み込んで */

  IDirectSoundBuffer_Unlock(dsb, data1, len1, NULL, 0);
  dsb_write_point = (dsb_write_point + dsb_block_siz) % dsb_buffer_size;
}

DWORD WINAPI
NotificationProc(LPVOID param)
{
  while (1) {
    res = MsgWaitForMultipleObjects(1, &notify_event,
				    FALSE, INFINITE, QS_ALLEVENTS);
    switch (res) {
    case WAIT_OBJECT_0 + 0:
      HandleWaveStreamNotification();
      break;
    }
  }
}

#define XXXX_QueryInterface(p,a,b)  (p)->lpVtbl->QueryInterface(p,a,b)

#if !defined(__cplusplus)
#define XXXX_QueryInterface(p,a,b)  (p)->lpVtbl->QueryInterface(p,&a,b)
#else
#define XXXX_QueryInterface(p,a,b)  (p)->lpVtbl->QueryInterface(p,a,b)
#endif

#if !defined(__cplusplus)
#define IUnknown_QueryInterface(p,a,b)  (p)->lpVtbl->QueryInterface(p,&a,b)
#endif
#include <dsound.h>

• ファイルが存在しない
• パーミションエラー
• ディレクトリだった
• ファイルディスクリプタが足らない

function my_error_exit($err) {
  print "Error message: $err\n";
  exit;
}

function my_fopen($fname, $mode) {
  global $php_errormsg;
  $prev_track_errors = ini_set('track_errors', 1);
  $fd = @fopen($fname, $mode);
  ini_set('track_errors', $prev_track_errors);

  if (!$fd) {
    my_error_exit($php_errormsg);
  }

  return $fd;
}

$foo = pos(array_reverse(array(式1,
			       式2,
			       ...
			       式n)));

$n = $s =~ s/正規表現/置換文字列/g;

$n = 0;
$s = preg_replace("/正規表現/e", '$n++ ? \'置換文字列\' : \'置換文字列\'', $s);

$n = 0;
$s = preg_replace("/正規表現/e", 'eval(\'\$n++; return \\\'置換文字列\\\';\')', $s);

$n = 0;
$s = preg_replace("/正規表現/e", <<<__ENDREP__
eval('\$n++; return \'置換文字列\';')
__ENDREP__
, $s);

function my_replace_call_back(&$n) {
  $n++;
  return '置換文字列';
}
$n = 0;
$s = preg_replace("/正規表現/e", 'my_replace_call_back($n)', $s);

<?
// $map の中の指定されたキーの数をカウントする。
// 当然、重複するキーは存在しないはずなので、0 か 1 が
// 返って来ることを期待するのだが、、、
function my_key_count($map, $search_key)
{
  $n = 0;
  foreach ($map as $key => $val) {
    if ($key == $search_key)
      $n++;
  }
  return $n;
}

$map = array();
$map['foo'] = 'a';
$map['']    = 'b';
$map['bar'] = 'c';
$map['0']   = 'd';

# 空キーの数を探そうとしてみる。
print my_key_count($map, '') . "\n";
# 結果は 2 となる。はて？どこが間違っているか分かるかな〜
?>

<?
$map = new array();
$map['01'] = 'a';
$map['10'] = 'b';
foreach ($map as $key => $val) {
    print typeof($key), "\n";
}
?>

<?
$a = '0';
$b = 0;
$c = '';

if ($a == $b) print "eq\n"; else print "ne\n";
if ($b == $c) print "eq\n"; else print "ne\n";
if ($c == $a) print "eq\n"; else print "ne\n";
?>