▼スレッド
│
└◇198:Re[3]:お願いがあって参りました。 [moon] 12/03 19:07

　└◇245:かなり遅れてしまいましたが [なず] 01/07 23:51
　　└◇246:Re:かなり遅れてしまいましたが [moon] 01/08 08:53<-last

> おおよその流れはわかった気がします。（気ですいません）
> おっしゃる意味については理解できてるとは思いますが、これを元に実際に動かすまで完璧な理解はできなさそうです（＾＾；
> いろんな場面で表示するとなると、その分変更（追加）場所もでそうですし、なかなかたいへんそうですね。
> 解説を元にしばらく試行錯誤して、またどうしても解決できなさそうな場合はまたおじゃまするかと思います。
> お忙しいのに解説して頂きありがとうございました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での月さんの書き込みは色々チェックさせて頂いてそちらも参考にさせて頂いてまっす＾-＾）

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