Discussion :

[Michaël]

bonjour,
je suis un newbie complet sur perl
je voudrais modifier un fichier.
je l'ouvre par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
system("cd /etc/X11");
open(FILE_IN,"XF86Config-4") || die("Problème lors de l'ouverture du fichier XF86config-4 en lecture");
open(FILE_OUT,">XF86Config-4.new") || die("Impossible de créer XF86Config-4.new);

comment je pourrais faire pour charger le fichier XF86Config-4 en mémoire, modifier une ligne ?
je ne sais pas comment m'y prendre

le but de mon programme : modifier une ligne du fichier /etc/X11/XF86Config-4 (cf ce topic )

à ceux qui prendront la peine de me mettre sur le bon chemin

[FMJ]

Salut

Tu es newbie en perl mais pas sur le forum.

Donc c'est un peu surprenant que tu n'ais pas utilisé la recherche avancée ....

Tu y aurais trouver des infos t'indiquant qu'il n'est pas possible de modifier directement le fichier, mais tu dois passer par un fichier temporaire que tu construit en parsant les lignes de ton fichier original (et en les modifiant comme tu le souhaites). Puis tu détruis le fichier original et tu donnes au fichier temporaire le même nom.

Mais ce pb n'est pas propre à perl.

Pour voir comment procéder, consulte le tutorial perl sur ce site, au §. "Accès au contenu des fichiers".

FMJ

[Michaël]

j'ai déjà consulté la doc, mais il y a un truc que j'ai pas dû comprendre alors...
quand on fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
open(handler,'fichier');
while(<handler>)
{
}

ça doit envoyer tout le contenu du fichier dans $_. j'ai essayé de faire un print $_, mais rien ne s'est affiché pourtant mon fichier est bien ouvert parce qu'aucun message d'erreur concernant l'ouverture du fichier

[GLDavid]

Un petit pointeur puique j'ai été confronté à ce problème y a longtemps : http://www.developpez.net/forums/vie...808&highlight=

@ ++

[Choupi]

Hum... ecoute ca ca marche tres bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
$file = "tonfichier.tonextension";
open(in,"$file") or die("Probleme lors de l'ouverture du fichier $file"); 
while (<in>){
	print $_;
}

[Michaël]

oui en effet, ça fonctionne : je m'y prenais mal
GLDavid, j'ai vu ton problème et je vais l'étudier plus en détail quand je pourrais

merci à vous

[GLDavid]

Basé sur ce que Nyal m'avait envoyé, voici un petit prog de ma conception qui modifiait les commentaires d'une base de données en génomique. J'espère que ça t'aidera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl
use strict;
 
$| = 1; # Pour vider les buffer
 
my($f) = "ipi.HUMAN-02-08-2004.v2.34.fasta";
open FIC, $f or die "$f : $!\n";
open FILE, '>toto.fasta' or die "toto.fasta : $!\n";
while (<FIC>) {
   if (/>IPI[:a-zA-Z0-9]*/) {
      s/\|[^\s]*//;
      s/\s[^\s]*//;
      print FILE ;
   }
   else {
      print FILE ;
   }
}
close FIC and close FILE;
unlink $f;
rename "toto.fasta", $f;

@ ++

[r2d2]

Bonjour je me permet de poser ma question sur ce post, ca evitera les doublons.

j'ai exploré une bonne partie du forum et passé beaucoup de temps sur les sitesde docs, mais je ne trouve pas de solutions à mon probleme.

En effet, je souhaite proceder à une substitution d'une chaine de caracteres dans un fichier.
Pour faire simple je souhaite rechercher une "ancre" (j'appel ca comme ca) que j'ai placée au sein du fichier (unique) et la remplacer par une variable. Ensuite je voudrais la coller à la suite de la chaine de carateres que represente la variable, decallée d'un espace.

avant:
"ancre"

apres:
$variable "ancre"

De tel maniere je peux inserer une variable dans mon fichier à la suite de la precedente chaine.

Mon probleme viens du faite que je ne sais pas comment faire pour ouvrire convenablement mon fichier afin qu'il puisse etre modifier. Au mieux j'ai reussi à l'inserer a la suite du fichier. J'ai testé les codes perl precedent mais il ne fonctionnent pas bien chez moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ouverture du fichier en ajout
$FILE =~ s/test/aaaaaa "ancre"/;   (sans les "")
fermeture du fichier

J'ai essayé de passer le fichier dans un tableau mais rien n'y fait.

Je vous remercie par avance de votre reponse.

[djibril]

refais un autre post it, c'est mieux.

[r2d2]

merci c'est bon