[perl] hoe doe ik dit het beste?

[Verwijderd]

ik heb dus de volgende mini-template parser sub geschreven,
maar als ik die debug regel dus uncomment en ik stuur als hash

"naam" => "waarde"

dan wordt er dus geprint:
naam -
naam - waarde

dus hij gaat als het ware dubbel door die loop heen?
dit is echt uber ranzige code, wie geeft mij een duwtje in de goede (cleane) richting?

code:

sub dotemplate {

open(FILE,$_[0]) || &cgierror("kan $filename niet openen!");
@filearray = <FILE>;
close(FILE);

foreach $line(@filearray) {
  while ( ($key, $value) = each %{$_[1]}) {
#   $gefixed .= "debug: $key-$value";
    $line =~ s/\#\%$key\%\#/$value/gi;
  }
  $gefixed .= $line;  
}

return $gefixed;
}

owjah, en hoe controleer ik of een hash leeg is? want als ik dan geen hash met waarden meegeef om te replacen kan hij natuurlijk die hele loop overslaan sgeelt weer cpu time

[Juup]

Wat probeer je eigenlijk te doen? En praat eens wat helderder.

[Verwijderd]

pfff nou speciaal voor jou dan:

code:

%verplaats = ( "scriptdir" => $ENV{'SCRIPT_NAME'} );

$var = &foxlib::dotemplate("templates/test.thtm", \%verplaats);
print $var;

met doe code opentie dus test.thtm en verplaatst in dat bestand #%scriptdir%# met de naam van het script enzo.

maar als ik nu in de code van die sub, de # weghaal, en vervolgens print ik $gefixed, dan zie ik dus met de code hierboven dit: debug: scriptdir- debug: scriptdir-/cgi-bin/photo.cgi

dat moet dus betekenen dat ie 2x door de loop gaat ofzow
dit kan gewoon effiecienter maar ik weet niet precies hoe

[Juup]

Okee aangezien je nog steeds niet precies verteld wat jouw code zou moeten doen ga ik het wat algemener maken.

Stel je wilt een textfile inlezen en een aantal strings vervangen door een aantal andere strings.

Dat doe je zo:

code:

my $textFileContent;
my %replaceText = ( '#%scriptdir%#' => '/home/focboy',
              'jan'      => 'piet',
              'Winner'    => 'Brazil'
            );
if (open (FH, "textfile.txt"))
{
  while (<FH>)
  {
    my $currentLine = $_;
    foreach my $key (keys %replaceText)
    {
    $currentLine =~ s/$key/$replaceText{$key}/g;
    }
    $textFileContent .= $currentLine;
  }
  close (FH);
}
print $textFileContent;

[Verwijderd]

sorry maar de uitleg die ik geef + de code die je zo door kan lezen lijkt me dat je het wel begrijpt.

tnx voor de code,
das precies wat ik nodig hep

[raptorix]

Misschien eens slim om te kijken naar HTML::TEMPLATE module? Doet namelijk precies wat jij wil en ook mogelijkheden voor loops en andere toeters en bellen.

[tomato]

Waarom heb je hier eigenlijk nooit meer naar gekeken?