\n");
print("\n");
print(" link extraction \n");
print("\n");
print("\n");
$page = fopen($URL, "r");
print("$URLにあるリンク
\n");
print("\n");
while(!feof($page)) {
$line = fgets($page, 500);
/* These are for Javascript */
/* If () is embeded in $replace, it won't be replaced properly. */
$line = ereg_replace("\(", "", $line);
$line = ereg_replace("\)", "", $line);
while(ereg("[Hh][Rr][Ee][Ff]=\"[^\"]*\"", $line, $match)) {
print("- ");
print($match[0]);
print("
\n");
$replace = ereg_replace("\?", "\?", $match[0]);
//print("Replace = $replace
\n");
$line = ereg_replace($replace, "", $line);
}
}
print("
\n");
fclose($page);
print("\n");
print("