Perlについての質問箱 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
470:デフォルトの名無しさん 07/05/07 17:27:31 http://search.cpan.org/~kmacleod/libxml-perl-0.08/lib/XML/Parser/PerlSAX.pm をみると、ParserがnewされるところでErrorHandlerに自分で作ったもの（例えばMyErrorHandler等）を指定すればよさそうなのですが、具体的になんという名前の関数を用意し、どのタイミングで呼び出されるかなど、よくわかりませんした。 すみませんが、どなたかお分かりでしたらアドバイスをください。 471:デフォルトの名無しさん 07/05/07 18:14:52 使ったことないので分からんけど ErrorHandlerに無名サブルーチンを渡しておけばパースに失敗したときにコールバックしてくれるんじゃないの？ 472:デフォルトの名無しさん 07/05/07 18:37:28 >>470 俺も使ったことないけど、フツーに考えて $parser->{ErrorHandler}で例外をキャッチできるってことなんじゃなないの？ 473:デフォルトの名無しさん 07/05/07 18:59:18 >>466さん＆>>468さん＞ ㌧クスです！参考にして少し書き換えました！ #!/usr/local/bin/perl -w require 'jcode.pl'; print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n"; while (<>){ if (/[1-3]$/) {chop;$kyara=chop;last;} }; if($kyara==1){print"あなたはお昼寝好きのこねこを選びました☆"} elsif($kyara==2){print"あなたはお人好しのゴーレムを選びました☆"} elsif($kyara==3){print"あなたは強気なドラゴンを選びました☆"}; while (<>){}; こんな感じに☆ >>464さん＞ 必要になってからがんがります☆(ｺﾗ
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5377日前に更新/220 KB
担当:undef