function SBM_popular_recent_entry_list($limit=10, $threshold=5, $val="") {
    global $wpdb;
 
    $pluginurl = get_option('siteurl')."/wp-content/plugins/wp-sbm_popular_entry/";
    $metalist = $wpdb->get_results( SBM_popular_recent_entry_list_sql($limit, $threshold, $val) );
 
    if ( $metalist ) {
        ob_start();
        foreach ($metalist as $metarow) {
            $permalink = get_permalink($metarow->ID);
            $title = $metarow->post_title;
            $meta = get_post_meta($metarow->ID, "SBM_count", 1);
            $popup = "iconImageClickHandler(this, '".$permalink."', event)";
            list($count, $icon, $link, $add) = _template_parm($pluginurl, $permalink, $title, $metarow->meta_value);
 
            if($count['sum'] > 0)
                include('wp-content/plugins/wp-sbm_popular_entry/template_list.php');
        }
        $content = ob_get_contents();
        ob_end_clean();
        echo $content;
    }
 
}
 
function SBM_popular_recent_entry_list_sql($limit, $threshold, $val="") {
    global $wpdb, $tablepost2tag, $tabletags;
 
    $val = mysql_real_escape_string($val);
 
    $sql = "SELECT ID, post_title, meta_value ";
    $sql.= "FROM $wpdb->posts, $wpdb->postmeta WHERE ";
    $sql.= "$wpdb->posts.ID=$wpdb->postmeta.post_id and meta_key = 'SBM_count' and meta_value >= $threshold ".
                 "ORDER BY ID DESC LIMIT ".$limit;
    return $sql;
}

< ?php SBM_popular_recent_entry_list(10, 5) ?>

--- wp-sbm_popular_entry.php.orig       2010-01-08 17:32:29.000000000 +0900
+++ wp-sbm_popular_entry.php    2010-01-08 17:32:51.000000000 +0900
@@ -9,23 +9,17 @@
 Author URI: http://aoina.com
 */
 
-
-
-
-
 $SBM_PopularEntry = new SBM_PopularEntry();
 
 add_filter('manage_posts_columns', array(&$SBM_PopularEntry, 'manage_posts_columns'));
 add_action('manage_posts_custom_column', array(&$SBM_PopularEntry, 'manage_posts_custom_column'));
 
-add_action('wp_head',  array(&$SBM_PopularEntry, 'wp_head'));
+add_action('wp_head', array(&$SBM_PopularEntry, 'wp_head'));
 add_action('wp_head', array(&$SBM_PopularEntry, 'get_count'));
 
 unset($SBM_PopularEntry);
 
-
-class SBM_PopularEntry
-{
+class SBM_PopularEntry {
     var $plugin_url;
     var $post;
     var $post_meta;
@@ -34,22 +28,11 @@
     var $urllink;
     var $key;
 
-
-    /**
-     *
-     *
-     */
-    function SBM_PopularEntry()
-    {
+    function SBM_PopularEntry() {
         $this->plugin_url = get_option('siteurl')."/wp-content/plugins/wp-sbm_popular_entry/";
         $this->key = "SBM_count";
     }
 
-
-    /**
-     * 管理画面の記事リストの<th>部分のアイコン
-     *
-     */
     function manage_posts_columns($posts_columns)
     {
         $posts_columns['SBM_hatena']    = '<img src="'.$this-/>plugin_url.'hatena.gif" alt="hatena" />';
@@ -60,11 +43,6 @@
         return $posts_columns;
     }
 
-
-    /**
-     * 管理画面の記事リストに被ブックマーク数を表示
-     *
-     */
     function manage_posts_custom_column($column_name)
     {
         global $post;
@@ -72,9 +50,9 @@
         if(@$this->post->ID != $post->ID){
             $this->post = $post;
             $this->permalink   = get_permalink();
-            $this->urllink['hatena']    = "http://b.hatena.ne.jp/entry/".urlencode($this->permalink);
-            $this->urllink['delicious'] = "http://del.icio.us/url/".md5($this->permalink);
-            $this->urllink['livedoor']  = "http://clip.livedoor.com/page/".urlencode($this->permalink);
+            $this->urllink['hatena']    = "http://b.hatena.ne.jp/entry/".substr($this->permalink, 7);
+            $this->urllink['delicious'] = "http://delicious.com/url/".md5($this->permalink);
+                       $this->urllink['livedoor']  = "http://clip.livedoor.com/page/".$this->permalink;
             $this->urllink['yahoo']     = "http://bookmarks.yahoo.co.jp/url?url=".urlencode($this->permalink);
 
             $meta = get_post_meta($this->post->ID, $this->key, 1);
@@ -104,29 +82,25 @@
     }
 
 
-    /**
-     * 記事表示時に各ブクマサイトより被ブックマーク数をGET
-     *
-     */
     function get_count()
     {
         global $post;
 
-        if (!is_single() && !is_page) return false;
-        if (!$post->ID > 0) return false;
		 +        if (!is_single() && !is_page()) return false;
+        if ($post->ID < = 0) return false;
 
         $permalink = get_permalink();
-        $flg = get_post_meta($post->ID, $this->key, 1);
+        $flg = get_post_meta($post->ID, $this->key, true);
         if(!$flg){
             $flg = "00000<>0<>0<>0<>0<>0<>0";
-            add_post_meta($post->ID, $this->key, $flg, 1);
         }
-        $meta = explode("<>",$flg);
+        $meta = explode("<>", $flg);
 
-        if( $meta[1] > time()-60*60 ) return false;
+        if($meta[1] > time() - 60*60)
+                 return false;
 
         $new_meta['hatena']    = $this->xmlrpc_results('http://b.hatena.ne.jp/xmlrpc', 'bookmark.getCount', $permalink);
-        $new_meta['delicious'] = $this->socket_results('http://del.icio.us/url/'.md5($permalink), '/this url has been saved by ([\d]+?) (person|people)/');
+               $new_meta['delicious'] = $this->socket_results('http://feeds.delicious.com/v2/json/urlinfo/'.md5($permalink), '/"total_posts":([\d]+?),/');
         $new_meta['livedoor']  = $this->xmlrpc_results('http://rpc.clip.livedoor.com/count', 'clip.getCount', $permalink);
         $new_meta['yahoo']     = $this->socket_results('http://bookmarks.yahoo.co.jp/url?url='.urlencode($permalink), '/<span class="nosaved\d">(\d)人が登録< \/span>/');
 
@@ -138,7 +112,7 @@
 
         $meta[0] = $meta[2] + $meta[3] + $meta[4] + $meta[5];
         $meta[0] = substr("00000".$meta[0], -5);
-        $meta[1]  = time();
+        $meta[1] = time();
         update_post_meta($post->ID, $this->key, implode('<>', $meta));
     }
 
@@ -366,12 +340,12 @@
     $icon['popup']     = $pluginurl."popup.gif";
 
     $link['hatena']    = 'http://b.hatena.ne.jp/entry/'.$permalink;
-    $link['delicious'] = 'http://del.icio.us/url/'.md5($permalink);
+    $link['delicious'] = 'http://delicious.com/url/'.md5($permalink);
     $link['livedoor']  = 'http://clip.livedoor.com/page/'.$permalink;
     $link['yahoo']     = 'http://bookmarks.yahoo.co.jp/url?url='.$permalink;
 
     $add['hatena']     = "http://b.hatena.ne.jp/append?".$permalink."&amp;h=".$title;
-    $add['delicious']  = "http://del.icio.us/post?url=".$permalink."&amp;title=".$title;
+    $add['delicious']  = "http://delicious.com/post?url=".$permalink."&amp;title=".$title;
     $add['livedoor']   = "http://clip.livedoor.com/clip/add?jump=myclip&amp;link=".$permalink."&amp;title=".$title;
     $add['yahoo']      = "http://bookmarks.yahoo.co.jp/action/post/done?url=".$permalink."&amp;title=".$title;
</span></th>

#!/usr/bin/perl
use strict;
use warnings;
use Perl6::Say;
use Text::Trim;
 
my $indentUnit = "  ";
my $currentIndent = 0;
while(<>) {
    my $line   = trim($_);
    my $delta  = countIndent($line);
    my $result = convertLine($line);
    if ($delta >= 0) {
        say $indentUnit x $currentIndent . $result if $result;
        $currentIndent += $delta;
    }
    else {
        $currentIndent += $delta;
        say $indentUnit x $currentIndent . $result if $result;
    }
}
 
sub countIndent {
    my $line = shift;
    my $indent = 0;
 
    # 1文字ずつ走査して{}でindentを増減させる
    my $inSQ = 0;    # in Single Quatation
    my $inDQ = 0;    # in Double Quatation
    for my $c (split(//, $line)) {
        if (!$inSQ and !$inDQ) {
            $indent++ if $c eq '{';
            $indent-- if $c eq '}';
        }
        $inSQ = !$inSQ if $c eq "'";
        $inDQ = !$inDQ if $c eq '"';
    }
 
    return $indent;
}
 
sub convertLine {
    my $line = shift;
 
    $line =~ s/^< \?php$//g;     # phpブロック開始削除
    $line =~ s/^\?>$//g;        # phpブロック終了削除
    $line =~ s/\s*;$//g;        # 行末のセミコロン削除
 
    # ブロックの処理
    $line =~ s/function (\w+)\(([^)]*)\)\s*{/def $1($2):/; # メソッド
    $line =~ s/if\s*\(([^)]+)\)\s*{/if $1:/;               # if
    $line =~ s/while\s*\(([^)]+)\)\s*{/while $1:/;         # while
    $line =~ s/^}$//g;                                     # 閉じブロック
 
    # 正規表現で変換しにくい部分を処理
    my $inSQ = 0;    # in Single Quatation
    my $inDQ = 0;    # in Double Quatation
    my $result = "";
    for my $c (split(//, $line)) {
        if (!$inSQ and !$inDQ) {
            # コーテーションの外側
            $result .= ($c eq '$') ? "" : $c;
        }
        else {
            # コーテーションの内側
            $result .= $c;
        }
    }
 
    return $result;
}

< ?php
# 以下のヒアドキュメント中のphpコードから
$code = <<< PHP
<?php if (\$if) /* if $if is true */ print "\$if"; ?>
PHP;
 
$tokens = token_get_all($code);
foreach ($tokens as $token) {
  if (is_array($token))
    print token_name($token[0]) . "\n";
}
/* 以下のような出力を得られる (T_WHITESPACEは消去)
    T_OPEN_TAG
    T_IF
    T_VARIABLE
    T_COMMENT
    T_PRINT
    T_CONSTANT_ENCAPSED_STRING
    T_CLOSE_TAG
 */
?>

class ProcessContext {
 
  # メンバ変数省略
  function __construct($file) {
 
  	# dispatcherに各ノードに対応したプロセッサを準備しておく
    $this->dispatcher = array(
          'AST:PHP_script'            => new NodeProcessor(),
          'AST:Statement_list'        => new StatementListProcessor(),
          'AST:Catch'                 => new CatchProcessor(),
		  # 途中省略
          'AST:Throw'                 => new ThrowProcessor(),
    );
    $dom = new DomDocument();
    $dom->preserveWhiteSpace = false;
    $dom->load($file);
    $this->dom = $dom;
  }
 
  public function start_process() {
    $this->process_node($this->dom->firstChild);
  }
 
  # このメソッドがメインメソッド
  function process_node($cur, $contextData=null) {
    if (!$cur->nodeName) { return; }
    $this->process_down($cur, $contextData);
    $this->process_node($cur->nextSibling, $contextData);
  }
  function process_down($cur, $contextData=null) {
    $processor = $this->dispatcher[$cur->nodeName];
    if (!$processor) { $processor = $this->defaultProcessor; }
    $processor->comment_process($cur, $this, $contextData);
    $done = $processor->pre_process($cur, $this, $contextData);
    if (!$done) {
      $this->process_node($cur->firstChild, $contextData);
    }
    $processor->post_process($cur, $this, $contextData);
  }
 
  # 残りのメンバメソッド省略
}

#!/usr/bin/php
< ?php
/**
 * 変換を意識したFizzBuzzです。
 * ただし変換後そのままでは動作しません
 */
class FizzBuzz {
 
  // メインルーチン
  function fizzbuzz() {
	while ($i++ < 100) {
	  $out = "";
	  if ($i % 3 == 0) $out  = 'Fizz';
	  if ($i % 5 == 0) {
		$out .= 'Buzz';
	  }
	  if ($out) {
		echo "$out" . "\n";
	  }
	  else {
		print "$i\n";
	  }
	}
  }
}
 
$fb = new FizzBuzz();
$fb->fizzbuzz();
?>

#!/usr/bin/python
#-*- coding: utf-8 -*-
"""*
 * 変換を意識したFizzBuzzです。
 * ただし変換後そのままでは動作しません
 """
 
class FizzBuzz:
  # メインルーチン
  def fizzbuzz():
    while i+=1<100:
      out = ""
      if i%3==0:
        out = "Fizz"
      if i%5==0:
        out+="Buzz"
      if out:
        print(""+out+""+"\n")
      else:
        print(""+i+"\n")
 
fb = FizzBuzz()
fb.fizzbuzz()

% cat sample1.php
< ?php
  echo "hello phc world\n";
?>
% phc -c sample1.php -o sample1
% ./sample1
hello phc world

% phc --dump-xml=ast sample1.php > out.xml
% cat out.xml
< ?xml version="1.0"?>
<ast :PHP_script xmlns:AST="http://www.phpcompiler.org/phc-1.1"
                xmlns:HIR="http://www.phpcompiler.org/phc-1.1"
				xmlns:MIR="http://www.phpcompiler.org/phc-1.1"
				xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  </ast><ast :Statement_list>
   -- 長いので省略 --
</ast>

% wget http://jp2.php.net/get/php-5.2.10.tar.bz2/from/jp.php.net/mirror
% tar jxvf php-5.2.10.tar.bz2
% cd php-5.2.10
% ./configure \
--enable-bcmath \
--enable-embed \
--enable-cli \
--prefix=/usr \
--with-zlib-dir=/usr \
--enable-mbstring \
--enable-mbregex \
--enable-sockets \
--with-iodbc=/usr \
--with-curl=/usr \
--with-config-file-path=/etc \
--with-xmlrpc \
--with-xsl=/usr \
--without-pear \
--without-iodbc
% make && make install

% wget http://phc.googlecode.com/files/phc-0.2.0.3.tar.bz2
% tar jxvf phc-0.2.0.3.tar.bz2
% cd phc-0.2.0.3
% ./configure --includedir=/usr/include/php --with-php=/usr --disable-gc
% make && make install

*******************************************************************************
* It seems the PHP embed SAPI has not been installed.                         *
*                                                                             *
* You will be able to compile and run phc, but you will not be able to        *
* compile PHP scripts with phc.                                               *
*                                                                             *
* To install the PHP embed SAPI, follow the PHP installation instructions,    *
* but make sure to pass the --enable-embed option to the PHP configure        *
* script.                                                                     *
*******************************************************************************

% phc --dump-xml=ast (phpファイル名)