Code :
- #!/usr/bin/perl
- # Ouverture du fichier htm
- open(AVIS,'avis1.htm');
- @lignes=<AVIS>;
- # Verification html
- chomp($lignes[0]);
- if ($lignes[0] eq "<HTML>" ) { print "HTML" }
- else { print "NO HTML" }
- # Fermerture du fichier htm
- close AVIS;
|
Voila voila, je fais un script en perl, qui est censé lire un fichier html pour en extraire des données, et je galère dès le début pour vérifier que le code est bien en HTML.
Je n'arrive pas à comparer la première ligne de mon fichier avec une chaine de caractère bannale. J'ai essayé de virer le caractère de fin de chaine avec chomp, mais la je perds toute ma chaine de caractère.
Si vous avez des idées
---------------
Fais le ou ne le fais pas, mais il n'y a pas d'essai !!!