▼スレッド
│
└◇197:Re[2]:お願いがあって参りました。 [なず] 12/03 00:30

　└◇198:Re[3]:お願いがあって参りました。 [moon] 12/03 19:07
　　└◇245:かなり遅れてしまいましたが [なず] 01/07 23:51
　　　└◇246:Re:かなり遅れてしまいましたが [moon] 01/08 08:53<-last

> うちで実装しているものとは違いますが、新しいフラグを使用してやるものの考え方を書きます。（うちではコメントにそのまま埋め込んでいるので効率が悪い・・・）
> フラグが$ecmで、囲みを:??:〜:/??:とします。
> ・囲みのリストを、@a = ('AA','BB','CC');とします。
> ・メッセージ変更箇所(com_afterや新規サブルーチン)で、
> 　　$ecm = '';
> 　　foreach(@a){
> 　　　　$ecm .= $& if($Fm{'ecm'}=~#:$_:.+?:/$_:#);
> 　　}
> ・メッセージ表示部分で、@aの中のどれを表示しようとしているかを判定（・・・時間が無いため省略・・・）し、（$inにAAやBBが入るようにする）
> 　　$out = $1 if($pecm=~#:$in:(.+?):/$in:#);
> とすると、$outにメッセージが残ると思います。（未テストおよび推測を含む）
おおよその流れはわかった気がします。（気ですいません）
おっしゃる意味については理解できてるとは思いますが、これを元に実際に動かすまで完璧な理解はできなさそうです（＾＾；
いろんな場面で表示するとなると、その分変更（追加）場所もでそうですし、なかなかたいへんそうですね。
解説を元にしばらく試行錯誤して、またどうしても解決できなさそうな場合はまたおじゃまするかと思います。
お忙しいのに解説して頂きありがとうございましたm（、、）m

> おおよその流れはわかった気がします。（気ですいません）
> おっしゃる意味については理解できてるとは思いますが、これを元に実際に動かすまで完璧な理解はできなさそうです（＾＾；
> いろんな場面で表示するとなると、その分変更（追加）場所もでそうですし、なかなかたいへんそうですね。
> 解説を元にしばらく試行錯誤して、またどうしても解決できなさそうな場合はまたおじゃまするかと思います。
> お忙しいのに解説して頂きありがとうございましたm（、、）m

場面場面で表示するのには次のような感じのサブルーチンを作成し、それを呼び出してメッセージ選択をすると楽だと思います。

sub GetComment{
　　my %type = (
　　　　 '売前'=>'AA'
　　　　,'売後'=>'BB'
　　　　# ,必要なだけ追加
　　);
　　my $temp = $type{"$_[0]"};
　　if($temp ne ''){
　　　　return $1 if($pecm=~/:$temp:(.+?):\/$temp:/);
　　}
　　return '';
}

使用例
$message = GetComment('売後');
push(@msg,"[$pid]$pnm : $message") if($message ne '');

# もちろん適当に書いたので間違っている可能性あり。

前までの解説頂いたものを利用しつつ、他の機能に組み込んで思った通りでの動きができるようになりました。
有効なヒントを頂けてたいへん助かりました。
最近では見よう見まねで自分でも少し組んでみたりしてます。
また伺う事もあると思いますが、宜しくお願いいたします。
（本家BBSでの月さんの書き込みは色々チェックさせて頂いてそちらも参考にさせて頂いてまっす＾-＾）

> 前までの解説頂いたものを利用しつつ、他の機能に組み込んで思った通りでの動きができるようになりました。
> 有効なヒントを頂けてたいへん助かりました。
> 最近では見よう見まねで自分でも少し組んでみたりしてます。
> また伺う事もあると思いますが、宜しくお願いいたします。
> （本家BBSでの月さんの書き込みは色々チェックさせて頂いてそちらも参考にさせて頂いてまっす＾-＾）

うまくいきましたか。良かったですね。
また分からないことがあったらできる限り答えますので、気兼ねなく聞いてください。