2012-07-01から1ヶ月間の記事一覧

Javassistで動的クラス生成

ClassPoolからgetして、 setNameで新しいクラス名を設定して、 toClassでClassオブジェクト作る。 package my; public interface SampleIF { String getSimpleClassName(); } package my; public class Sample implements SampleIF { public String getSimpl…

バッチファイルでのsetの罠

@echo off set IN= set /P IN="XXXを入力 > " echo %IN% if "%IN%"=="XXX" ( set /P IN="もう一度、値を入力 > " echo %IN% ) echo %IN% XXXを入力 > XXX XXX もう一度、値を入力 > YYY XXX YYY どういうことなの・・・ set /? より。 set VAR=before if "%V…

CPANの初期設定を間違えた場合に再設定する

PerlいれてCPAN入れて初期設定をEnter連打して飛ばしたら、 CPANのミラーにロクに繋がらない状態になって焦ったので。 cpanで o conf を入力 cpan[1]> o conf $CPAN::Config options from /root/.cpan/CPAN/MyConfig.pm: ...以下略 このファイルを削除するな…

RSSパースべんち in windows

このあたりがよくまとまってました。 http://weblog.nqou.net/archives/20090223224328.html PurePerlなFeedPPが結構頑張ってる印象。 自分で書いたSAXハンドラーがどんなもんか試した。 いろんなパーサーで。 Rate XML::Feed XML::RSS XML::SAX::PurePerl +…

XML::SAXで遊んだ

RSSを扱う用事があったので、普通のRSSリーダを使ってたけども、 ふと、SAXパーサを使って読み取ってみたくなったので、試した。 DOMだと全体を読み取らないとダメなので、場合によってはメモリを食べてしまう。 SAXなら上から読み取って、いくつかのタイミ…

正規表現 雑メモ

ちょろっとPerl正規表現で遊んでたので、適当に書いとく。 式を文字列として書くなど use strict; use warnings; use 5.10.1; # 普通 say 'xyz' =~ /y/; # 1 say 'xyz' =~ 'y'; # 1 # メタ文字 say 'xyz' =~ /.yz/; # 1 say 'xyz' =~ '.yz'; # 1 # オプショ…