254
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
1 |
val http_pattern = """"https?://[^"]*"""".r
|
7
|
2 |
|
|
3 |
def unquote(s: String) = s.drop(1).dropRight(1)
|
|
4 |
|
254
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
5 |
def get_all_URLs(page: String) : Set[String] =
|
96
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
6 |
http_pattern.findAllIn(page).map(unquote).toSet
|
7
|
7 |
|
|
8 |
def crawl(url: String, n: Int) : Unit = {
|
|
9 |
if (n == 0) ()
|
|
10 |
else {
|
96
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
11 |
println(s"Visiting: $n $url")
|
254
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
12 |
for (u <- get_all_URLs(get_page(url))) crawl(u, n - 1)
|
7
|
13 |
}
|
|
14 |
}
|
|
15 |
|
254
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
16 |
crawl(some_start_URL, 2)
|