正则表达式例子:获得某个网页上的所有超裢接

作者:未知 来源:未知 添加时间:2006年7月2日 字体:

<html>

<head><title>正则表达式</title></head>

<body>

<a href="./">返回列表</a><br>

<form action="<?echo $PHP_SELF;?>" method="post">

URL:<input type="text" name="url" &#118alue="<?echo $url?>"><input type="submit" &#118alue="获取所有裢接">

</form>

<?

if(isset($url)){

echo "$url 有下列裢接:<br>";

$fcontents = file($url);

while(list(,$line)=each($fcontents)){

while(eregi('(href[[:space:]]*=[[:space:]]*"?[[:alnum:]:@/._-]+"?)(.*)',$line,$regs)){

$regs[1] = eregi_replace('(href[[:space:]]*=[[:space:]]*"?)([[:alnum:]:@/._-]+)("?)',"\\2",$regs[1]);

echo "    $regs[1]<br>";

$line = $regs[2];

}

}

}

?>

</body>

</html>

ppdesk