Ersätta med variabelvärde...

Du kanske kan testa lite med varianter på denna lopen.

for (@head) {
s/<%tagg%>/$tagg/g;
}

Csson:

Förstår inte frågan riktigt, ärligt talat. Är du ute efter något generellt regexp som byter ut <%whatever%> mot innehållet i variabeln $whatever (oberoende av vad "whatever" är för något)? Är i.a.f. så jag tolkar din fråga (men FlashX har uppenbarligen tolkat det annorlunda, så du kanske kan förklara lite mer vad du är ute efter).

Om jag har tolkat dig rätt, prova med:

$head =~ s/<%(.*?)%>/${$1}/eg;

Om du använder use strict; i ditt script kommer Perl att klaga över denna rad - använd i så fall no strict "ref"; innan substitutionen.

------------------
Robban < robban@lipogram.com >

[Redigerat av Robban den 09 feb 2000]

Tack för hjälpen,

Jag försökte en variant på den,

for($a = 0; $a < @head; $a++) {
$_ = $head[$a];
if(/(.*?)<%realcount%>(.*?)/) {
print $1;
print $realcount;
print $2;
}
else {
print "$_";
}
}

som av någon anledning bara skriver ut $1 och $realcount men inte $2.

Tills vidare har jag löst det genom att kräva att <%taggarna%> är på egna rader:

for($a = 0; $a < @head; $a++) {
$_ = $head[$a];
if(/<%realcount%>/) {
print $realcount;
}
else {
print "$_";
}
}

/Csson

[Redigerat av Csson den 09 feb 2000]

Varför inte kort och gott:

foreach (@head) {
s/<%realcount%>/$realcount/g;
print;
}

------------------
Robban < robban@lipogram.com >