Kanconvit（カンコンビット）とは、 中国語の簡体字と日本語の漢字を相互に変換するツールです。 日本人が、中国語のページを日本語の漢字で見ると意味が分かりやすくなります。 翻訳をするまでもない、こともあるかもしれません。 また、中国人が日本語のページを見るときも同様かも。 そんな感じで、もしかしたらちょこっとお役に立つかもしれないツールです。 目次 文字変換ライブラリ「Kanconvit.pm」（Perlモジュール） テキスト変換ページ「Kanconvit CGI」 変換API「Kanconvit API」 変換ラッパーCGI「Kanconvit Wrapper」 参考文献 Kanconvit.pm 中国語の簡体字と日本語の漢字を相互に変換する Perl モジュールです。 SYNOPSYS: use Kanconvit; my $ck = Kanconvit->new(); $jt

「Perl初心者はどうやって勉強したらいいんですかね」というような質問を以前ある人から受けたのですが、ぶっちゃけ自分も大したコードは書けていないわけです。ずいぶん前に「プログラムも書けないで管理者と言えるか」みたいなことを言われて、「だったら書いてやろうじゃないの」と半ば反発しながら始めたのがきっかけで、毎日コードをガリガリ書いている本職(それ偏見)には遠く及ばない程度の実力なわけです。それでも、Perl4の頃のコードを見ると書き換えたくなるとか、「hash-basedなobjectよりinside-outですよ」と知ったかぶりしてみたりする程度にはmodernなPerlコードを書いているつもり。 で、質問に回答できるほどの経験も実力もないけれど、どうやってここまで学んできたかを振りかえってみた。 最初に手に取ったのは、「初めてのPerl」。訳文が理解を妨げるので今は原著しか読まないけど、

最近なにやら .emacs の perl の設定を晒してる人が多いので僕の晒しておくことにする。っといっても自分でゼロから書いた elisp はなくて、ほとんどが漁って拾って来た設定だったりします。ところどころ誰のを拾ったか書いてあったり、最近書かれてた設定に変えてあったりはするんですが、それは愛嬌ってことで。 ;;; ================================================================ ;;; ;;; Perl Programming Settings ;;; ;;; ================================================================ ;;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing P

こんにちは。TypePad Engineer の重田です。 今年も YAPC::Asia Tokyo の季節がやってきました。今回も豪華メンバが参加するのでとても楽しみですね。 さて今回はYAPCにちなんでPerlモジュールの作成方法をご紹介します。 準備 Perl プログラマのバイブルである Perl Best Practices の Chapter17: Modules の Refactoring の冒頭で Damian Conway が言っています。 Place original code inline. Place duplicated code in a subroutine. Place duplicated subroutines in a module. さあ皆さんもそろそろ車輪の再発明に別れを告げてモジュール作りをはじめてみませんか？ h2xs 少し前の書籍などでは h2

open(OUT, '>result.csv'); open(IN1, 'enquate.csv'); # アンケートデータを1行ずつ処理する while(my $line1 = <IN1>){ # 1行を4つに分ける chomp($line1); my ($id, $ans1, $ans2, $ans3) = split(/,/, $line1, 4); # この行にマッチする顧客データを検索する my $name = ''; my $address = ''; open(IN2, 'address.csv'); while(my $line2 = <IN2>){ chomp($line2); my ($tmp_id, $tmp_name, $tmp_address) = split(/,/, $line2, 3); if($tmp_id eq $id){

こんなんで出来た。 use strict; use Win32::OLE; use Data::Dumper; my $wshell = Win32::OLE->new('Shell.Application') or die "oops\n"; my $HISTORY_FOLDER = 0x22; my $history_dir = $wshell->Namespace($HISTORY_FOLDER); my $url_list = scan_folder($history_dir, []); print Dumper $url_list; sub scan_folder{ my ($folder, $ref) = @_; my $items = $folder->items; for(my $i = 0;$i < $items->count; $i++){ my $item = $it

Perl の特徴の１つに同じ処理を色々な記法で実現できることが挙げられるでしょう。 然し、どのような記述をしても全く同じでしょうか？ 分かり易さ、保守性、メモリ消費量などは書き方によって変わってくると思います。 ここでは、Perl の実行性能についてこだわってみようと思います。 測定マシン PC本体 富士通 FMV DESK POWER S CPU Pentium 100MHz メモリ 48MB OS Windows95( 4.00.950a ) Perl のバージョン Win32 port Copyright (c) 1995-1996 Microsoft Corporation. All rights reserved. Developed by ActiveWare Internet Corp., http://www.ActiveWare.com Perl for Win32 Bu

Text::MeCabは導入が楽 2006-09-24-3 [Programming][NLP] Text::MeCabはCPANに登録されているMeCabのPerlモジュール。 - Daisuke Maki / Text-MeCab-0.13 - search.cpan.org http://search.cpan.org/~dmaki/Text-MeCab-0.13/ - きまぐれ日記: Text::MeCab が公開された http://chasen.org/~taku/blog/archives/2006/05/textmecab.html MeCab.pm [2006-02-25-4]よりもこっちの方がインストールが 手軽そうなので、サンプルプログラムに使おうかと。 インストール方法： MaCab本体は事前にインストールしてあると仮定。 (取得はこちらから→

2006年09月02日 PlaggerとSubscription・CustomFeedの概要 Perl の勉強がてら Plagger のソースを読んでみた。 ソース張っつけてごちゃごちゃ書くのもあれなので、大体の流れを絵にしてみた。 昨日、Plagger について何となく説明してみたけど、Pluginといっても大まかに分類がある。 簡単に言うと入力系、加工系、フィルタ系、出力系(通知系)があり、この図は主に入力系の話。 Plugin の作り方は、自分の register ってメソッドで、$context(plaggerのインスタンス) の register_hook に対して、エントリーポイントとコールバックをフックする。 入力系の簡単な流れは、subscription.load で、基礎となるデータを持ってきて、customfeed.handle でリンクされる詳細データを加工したりする

« Lingua::JA::Summarize 0.02 | メイン | Lingua::JA::Summarize 0.03, 0.04 » 2006年05月02日 Perl Monger への道は遠い Lingua::JA::Summarize のリリースで、弾さん、Charsbar さんをはじめ、いろいろな方からアドバイスをいただきました。ありがとうございます。そのうち、 Perl の書法について学んだことを、忘れないうちにまとめておこうと思います。 1) Emacs の設定 cperl-mode.el は 4.32 が良い？　CPAN からダウンロードしてきて、 /usr/share/emacs/site_lisp あたりに放り込む。 .emacs は おいぬま日報(不定期)さんのをコピペ。 2) クラスのフィールドの扱い まず、デフォルト値をハッシュテーブルに定義しておいて、そこ

Perlで素数判定と近隣素数の探索 2006-08-15-2 [Programming][Algorithm] ハッシュのサイズを決める際に、 ある数に近い素数が欲しいと思うことがあったりします。 例えば「1000000に近い素数が欲しい！」など。 ということでPerl版の素数判定＆近隣素数探索プログラムです。 素数判定は下記を参考にしました。 - 素数判定 - Wikipedia http://ja.wikipedia.org/wiki/%E7%B4%A0%E6%95%B0%E5%88%A4%E5%AE%9A 以下、ソースと実行例。 ソース(prime.pl)： #!/usr/bin/perl use strict; use warnings; my $n = shift @ARGV; my $prime = is_prime($n); if ($prime) { p

仕事が忙しくて連日深夜まで作業していて心が荒廃してきたので、心の潤滑油として 落ち着いたらとおもっていたPlaggerを少し探ってみた。 とりあえず公式サイトに置いてあるYAPC::AsiaのSlideを見ながらAudioを聞く。 う～んわくわくする。 megabbsとなにか絡んだhackができないか思案中。 とりあえず今日はそんな夢を見ながら寝ます。 以下分からなかった単語をメモ。後で調べる。 YAML OPML POE ※どうでもいいネタ YAPCって「やっぷし～」って発音するんだね。 Gmailって便利そ～アカウント欲しいな