genexus 与 正则表达式

Event &StudentEmail.IsValid
 &emailpattern = '/b([a-zA-Z0-9_/.]+@[a-zA-Z0-9-]+(/.[a-zA-Z]{0,4})+)/b' //邮件地址的正则表达式
 &match = &StudentEmail.IsMatch(&emailpattern)
 
 if &match =  FALSE
  msg('Email: invalid format')
  &studentemail.Setfocus()
 else
  msg('Email: format OK')
 endif
EndEvent