Discussion :

[Jasmine80]

Bonjour,

Voila, je voudrais recuperer l'integralite de mes fichiers (ils sont petits) dans une variable scalaire (directement et sans le lire ligne par ligne), ensuite en enlever d'un coup tous les doubles quotes. Je dois ensuite reecrire le fichier en supprimant ces doubles quotes.

1) Je recupere l'integralite du fichier dans une variable simple
2) J'en enleve tous les doubles quotes de cette variable
3) J'ecrase le vieux fichier en y recopiant ce nouveau contenu

Comment ouvrir le fichier autrement que ligne par ligne ? (point 1)

D'avamce merci.

Jasmine.

[Schmorgluck]

Pour lire un fichier d'un coup (mode "slurp"), il faut modifier la valeur de la variable prédéfinie $/, qui contient le séparateur d'enregistrements, par défaut le retour à la ligne. Comme d'habitude, avec les variables prédéfinies, il vaut mieux la modifier en utilisant l'opérateur local.

Code :

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

1
2
3
4
{ # un bloc pour délimiter l'impact de "local'
  local $\;
  ... # ici le code pour traiter les fichiers
}

Soit dit en passant, je ne me souvenais plus de quelle variable il s'agissait, alors j'ai été voir sur la perldoc perlvar. Il y est indiqué un moyen mnémotechnique pour se souvenir de $/ : on utilise parfois le caractère "/" pour délimiter les vers d'un poème que l'on cite. Je crois que je n'oublierai plus.

[Philou67430]

Attention Schmorgluck, dans ton exemple de code, tu as écris $\ au lieu de $/

Pour compléter la réponse : une fois $/ définie localement, tu lis avec l'opérateur <> (readline) et tu disposes de tout le fichier, et pour supprimer les quotes, une regexp :

Code :

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

1
2
3
4
5
6
7
 
{
  local $/;
  open my $FILE, "<", $file or die "Can't open $file: $!\n";
  (my $content = <$FILE>) =~ s/"//g;
  # ...
}

[Schmorgluck]

Rhoh, la boulette !

[Lolo78]

Pour supprimer les guillemets, j'utiliserais la fonction tr/// (avec le modificateur d) plutôt qu'un regex:

Code :

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

1
2
 
$content =~ tr/"//d;

Cela n'a pas d'importance ici avec de petits fichiers, mais tr/// est plus rapide qu'une regex pour ce genre de travail.

[Jasmine80]

Bonjour et merci à tous pour vos réponses, cela fonctionne très bien.

[Philou67430]

Je ne pense jamais à cet opérateur tr// !