Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Langage Perl Attribuer une chaine dans vars contenues dans 1 tableau

Attribuer une chaine dans vars contenues dans 1 tableau

3 réponses
Avatar
Régine
J'ai un tableau nomm=E9 : @Container
----------------------------------------------------------------
@Container=3D
<html>

<head>
<meta http-equiv=3D"Content-Language" content=3D"fr-ch">
<meta http-equiv=3D"Content-Type" content=3D"text/html;
charset=3Dwindows-1252">
<title>Nouvelle page 2</title>
</head>

<body>

<dl>
<dt><font face=3D"Verdana" size=3D"2">$Head</font></dt>
<dt><font face=3D"Verdana" size=3D"2">$Corpus</font></dt>
<dt><font face=3D"Verdana" size=3D"2">$Foot</font></dt>
</dl>

</body>

</html>

-----------------------------------------------------------------------

Comment puis-je attribuer une chaine de caract=E8res aux variables:
$Head
$Corpus
$Foot
Contenue dans le tableau @Container ?

Mille merci pour votre aide

Cordialement
R=E9gine
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Stephane Dupille
J'ai un tableau nommé : @Container
----------------------------------------------------------------
@Container
<snip>


Si je comprends bien, c'est un tableau de chaînes de caractères ?

<dt><font face="Verdana" size="2">$Head</font></dt>
<dt><font face="Verdana" size="2">$Corpus</font></dt>
<dt><font face="Verdana" size="2">$Foot</font></dt>

Comment puis-je attribuer une chaine de caractères aux variables:
$Head
$Corpus
$Foot
Contenue dans le tableau @Container ?


Vous voulez-dire remplacer « $Head » par une chaîne quelconque ?

Voilà un moyen simple :

foreach (@container)
{
s/$Head/ contenu de head / ;
s/$Corpus/ contenu de corpus / ;
s/$Foot/ contenu de foot / ;
}

Ce code n'a pas été testé.

Mille merci pour votre aide


Ah mais de rien !

Avatar
Klaus
On Aug 30, 5:00 pm, Régine wrote:
J'ai un tableau nommé : @Container
----------------------------------------------------------------
@Container=
<html>

<head>
<meta http-equiv="Content-Language" content="fr-ch">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Nouvelle page 2</title>
</head>

<body>

<dl>
<dt><font face="Verdana" size="2">$Head</font></dt>
<dt><font face="Verdana" size="2">$Corpus</font></dt>
<dt><font face="Verdana" size="2">$Foot</font></dt>
</dl>

</body>

</html>

-----------------------------------------------------------------------

Comment puis-je attribuer une chaine de caractères aux variables:
$Head
$Corpus
$Foot
Contenue dans le tableau @Container ?



========================= =================
use strict;
use warnings;

my $Head = '*** Contenu Head ***';
my $Corpus = '*** Contenu Corpus ***';
my $Foot = '*** Contenu Foot ***';

my @Container = (
qq{<html>},
qq{<head>},
qq{<meta http-equiv="Content-Language" content="fr-ch">},
qq{<meta http-equiv="Content-Type" content="text/html;},
qq{charset=windows-1252">},
qq{<title>Nouvelle page 2</title>},
qq{</head>},
qq{<body>},
qq{<dl>},
qq{ <dt><font face="Verdana" size="2">$Head</font></dt>},
qq{ <dt><font face="Verdana" size="2">$Corpus</font></dt>},
qq{ <dt><font face="Verdana" size="2">$Foot</font></dt>},
qq{</dl>},
qq{</body>},
qq{</html>});

{ local $, = "n"; print @Container, ''; }
========================= =================

Voici le résultat:
========================= =================
<html>
<head>
<meta http-equiv="Content-Language" content="fr-ch">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Nouvelle page 2</title>
</head>
<body>
<dl>
<dt><font face="Verdana" size="2">*** Contenu Head ***</font></
dt>
<dt><font face="Verdana" size="2">*** Contenu Corpus ***</
font></dt>
<dt><font face="Verdana" size="2">*** Contenu Foot ***</font></
dt>
</dl>
</body>
</html>
========================= =================

--
Klaus

Avatar
Régine
Je vous remercie, C'est une merveille !

Bien à vous, Régine