UC知道关于perl正则表达式的问题
来源：百度知道 编辑：UC知道 时间：2024/07/01 12:05:44
下面几句什么意思呢？
$massage=~ s^>\;/>/g;
$massage=~s^<\;</g;
$massage=~s^"\;/"/g;
@to=split(/,\s/,$to);
$massage=~ s^>\;/>/g;
$massage=~s^<\;</g;
$massage=~s^"\;/"/g;
@to=split(/,\s/,$to);
你的程序有错吧，可能是下面这样的：
$massage=~ s/^>\;/>/g;
功能是把行首的>;两个符号换为>一个符号
$massage=~s/^<\;</g;
功能是把行首的<;两个符号换为<一个符号
$massage=~s/^"\;/"/g;
功能是把行首的";两个符号换为"一个符号
@to=split(/,\s/,$to);
把字符串$to按照逗号和空白分隔划分为数组