解決…？

　昨日 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; 
  }

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