05/03/12 20:31:48
>>481
>>478の関数をコピペする代わりに以下の関数をコピペ。
これ以外の説明は>478と同じ。
--------------
sub AddressRead{
my($AdAddr,$AdGroup);
if((index($_[0],"<>") >= 0) && (index($_[0],"<.>") > index($_[0],"<>"))){
($AdAddr,$AdGroup) = (split(/<>/,$_[0]))[1..2];
return $AdAddr . "," . (split(/<.>/,$AdGroup))[0];
}else{
return $_[0];
}
}
--------------