Return list
URL:
form>
IF (isset ($ URL)) {
Echo "$ URL has the following 裢 裢: ";
$ 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] ";
$ line = $ regs [2];
}
?>
body>
html>