en perl tu peux faire une petite sub pour tester ca facilement:
Code :
- sub testLien {
- use LWP::Simple;
- return definded get($_[0]);
- }
- # exemple d'utilisation :
- my $adresse = "http://www.google.fr/";
- if (testLien($adresse)) {
- print "$adresse est toujours accessible";
- } else {
- print "$adresse est cassé";
- }
|
Message édité par pospos le 14-07-2003 à 16:50:02