RDV+DIAL chat illimit� dans ta r�g!
no save
Assistance
Achat
News

Forum | programmation
extraire le contenu d'un fichier avec perl
lami20j, le mar. 28 nov. 2006 à 11:56:30
Re, open F_LIRE,"fichier"
or die "E/S : $!\n";J'ouvre une connexion(handle) du script vers le fichier appellé fichier
En langage plus naturel, j'ouvre en lecture le fichier appellé fichier

au lieu de fichier on peut aussi écrire /chemin/vers/fichier

open F_LIRE,"/chemin/vers/fichier"
or die "E/S : $!\n";J'appelle cette connexion (ouverture), F_LIRE
open F_ECRIRE,">> resultat"
or die "E/S : $!\n";J'ouvre une connexion(handle) du script vers le fichier resultat
Il s'agit d'une ouverture en mode ajout.
Le mode ajoute n'écrase pas le fichier s'il existe et il ajoute à la fin

au lieu de resultat on peut écrire aussi /chemin/vers/resultat
open F_ECRIRE,">> /chemin/vers/resultat"
or die "E/S : $!\n";J'appelle cette connexion (ouverture en mode ajout), F_ECRIRE

while(<F_LIRE>){
print F_ECRIRE if /^filename=/.../^\s*$/;
}Ici je lis le fichier ligne par ligne en utilisant l'opérateur diamant <> et le nom de ma connexion en lecture
et écrit dans resultat seulement le paragraphe compris entre
filename= et la ligne vide après le paragraphe (donc ce que tu as besoin

print F_ECRIRE if /^filename=/.../^\s*$/;
veut dire
écrit dans resultat si compris entre filename= et la ligne vide après le paragraphe close F_LIRE;
close F_ECRIRE;fermeture de la connexion vers les fichiers une fois le travail terminé.

Pour exécuter le script tu tapes simplement mon_script.pl après avoir attribuer les droit d'exécution chmod a+x mon_script.plou perl mon_script.pllami20j
Précédenttitexe
nov. 06
titexe
nov. 06
Suivant
REPONSES
lami20j
nov. 06
titexe
nov. 06
titexe
nov. 06
lami20j
nov. 06
titexe
nov. 06
lami20j
nov. 06
titexe
nov. 06
lami20j
nov. 06
titexe
nov. 06
lami20j
nov. 06
Version Web
Réalisé par RedShift
no save