高見知英のかいはつにっし(β)

高見知英のアプリケーション開発日誌 のほか、地域活動などの活動報告ブログ。

解決…?

 昨日 id:TakamiChie:20050405 から悩んでたPerlでの問題(バグかどうかはおいといて、とりあえず存在してるのは事実だから…)、あらを探すと結構あったので(といっても、strictにすると問題のある変数があったとか、それくらいですが)、それを直してみたものの変化なし。一応英語ページには役に立ちそうな情報も見つけたんですが、あまりの英語量にダウン…。さすがにフォーラムを読むのはムリです(ノヘ;).. 技術系ページ用の翻訳エンジンなんてないんでしょうか?一般向けのだとどうもひどくって…。

 と、ふとやってみた下記方法で解決

  if($_ eq 'fieldis'){
    $text =~  s/<#$_(\s([^>]+?))?>/$val->(split " ", $2)/ge;
  }else{
    $text =~  s/<#$_(\s([^>]+?))?>/$val->(split " ", $2)/ge; 
  }

 なぜこれでうまくいくのか、全く分かりません。適当な空白時間を作るべきなのか?といえばエラーになるときはなるし。

 とりあえずそれを変形して

  if($text =~ /html/){ # う〜ん?
    $text =~  s/<#$_(\s([^>]+?))?>/$val->(split " ", $2)/ge;
  }else{
    $text =~  s/<#$_(\s([^>]+?))?>/$val->(split " ", $2)/ge; 
  }

 こんな感じでクリア 原因は不明のままですが、とりあえず先へ進めます。いちおう未解決っぽいコメントを書いておいたし、迷うことはないでしょう(^_^;)