高手们，关于字符匹配的问题！在线等！！！！！！！！！！

[zagorot]

小弟我是用perl编网页。
请问如何从my $sql="select tag,id,type,sand from tank where tag=? and id=? and type=? and sand=?";
提取出where 后面的 tag，id,type以及sand????

[AllCHN]

if ($sql =~ /where(\s+.*?)$/i) {
($tag, $id, $type, $sand) = &Phrase($1);
}

sub Phrase {
my $context = $_[0];
my ($tag, $id, $type, $sand);
if ($context =~ /\s+tag=(.*?)\s+(and|$)/i) {
$tag = $1;
}
if ($context =~ /\s+type=(.*?)\s+(and|$)/i) {
$type = $1;
}
if ($context =~ /\s+id=(.*?)\s+(and|$)/i) {
$id = $1;
}
if ($context =~ /\s+sand=(.*?)\s+(and|$)/i) {
$sand = $1;
}
return ($tag, $id, $type, $sand);
}

[taogx]

很好