Revision d60e7dee
Von Sven Schöling vor fast 14 Jahren hinzugefügt
t/007broken_links.t | ||
---|---|---|
1 | 1 |
#!/usr/bin/perl |
2 | 2 |
|
3 |
# adapted from Michael Stevens' test script posted in p5p |
|
4 |
# in the thread "broken links in blead" from 01/19/2011 |
|
5 |
# |
|
6 |
# caveats: wikipedia seems to have crawler protection and |
|
7 |
# will give 403 forbidden unless the user agent is faked. |
|
8 |
|
|
3 | 9 |
use strict; |
4 | 10 |
use File::Find; |
5 | 11 |
use LWP::Simple; |
Auch abrufbar als: Unified diff
Dokumentation zu t/007broken_links.t