Discussion :

[vince2005]

Bonjour

je dois récupérer une chaine de caractéres dans un fichier.

Le problème est que ma variable à rechercher dans le fichier contient des guillemets et je n'arrive pas à l'exploiter.
J'ai essaye de me servir de "quotemeta", mais sans obtenir satisfaction.
Et le perl perd un peu les pédales.

Merci pour votre aide.

my $Entete="<?xml version="1.0" encoding="UTF-8" ?>";

open (FIC_ENTREE, "<$FicEntree") || die "Ouverture impossible du fichier $FicEntree: $!";

while ($Ligne = <FIC_ENTREE> )
{
if ($Ligne =~ m/$Entete/)
{
print "${Ligne}\n";
if ( $FichierOuvert eq "Oui" ) { close (FIC_SORTIE); }

my $toto=$Total_Research_Exclu++;
print "${toto}\n";
$FichierParLot = "$FicSortie/$Prefixe_Fic_${Total_Research_Exclu}";
open (FIC_SORTIE, ">>$FichierParLot") || die "Ouverture impossible du fichier $FicSortie : $!";
$FichierOuvert="Oui";
}
print FIC_SORTIE "$Ligne";

}
close (FIC_ENTREE);

[Lolo78]

Bonjour,
Essaie avec des guillemets simples (apostrophes):

Code :

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

my $Entete = '<?xml version="1.0" encoding="UTF-8" ?>';

Ou l'opérateur q// de citation sans interpolation :

Code :

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

my $Entete = q{<?xml version="1.0" encoding="UTF-8" ?>};

Mais si c'est pour utiliser avec une expression régulière il faudra sans doute faire autrement. Le mieux serait de ne pas utiliser d'expression régulière pour savoir si ta chaîne existe, mais la fonction index.

[vince2005]

aucun des deux ne fonctionnent, j 'ai le message d'erreur : print() on unopened filehandle

Comment faire ? c'est quoi les index ?? je débute en perl.
Merci pour votre aide

[Lolo78]

Rien à voir avec les problèmes de guillemets.

Tu ouvres le fichier de sortie dans le

Code :

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

1
2
3
if ($Ligne =~ m/$Entete/) {
...
}

et cherches à t'en servir après l'accolade fermante. Le filehandler FIC_SORTIE n'est plus accessible à cet endroit (hors de la portée lexicale).

Soit tu ouvres le fichier avant le if, en haut de la boucle while, soit tu remontes ton impression dans le corps du if, selon ce que tu veux faire exactement.