Rather than reinventing the wheel (and guaranteeing that you'll eventually run into a problem), why not just use a template? That's what they were created for. E.g.:
#!/usr/bin/perl -w use strict; use HTML::Template; $|++; my @cities = ( { LABEL => "A", CITY => "Milwaukee" }, { LABEL => "B", CITY => "Milpitas" }, { LABEL => "C", CITY => "Millston" }, { LABEL => "D", CITY => "Milbrook" }, { LABEL => "E", CITY => "Millboro" } ); my $t = HTML::Template->new(filehandle => *DATA); $t->param(CITIES => \@cities); print $t->output; __END__ Content-Type: text/html <html> <head><title>Cities</title></head> <body> <TMPL_LOOP NAME="CITIES"> <p> Label: <TMPL_VAR NAME="LABEL"><br> City: <TMPL_VAR NAME="CITY"> </p> </TMPL_LOOP> </body> </html>
Output:
Content-Type: text/html <html> <head><title>Cities</title></head> <body> <p> Label: A<br> City: Milwaukee </p> <p> Label: B<br> City: Milpitas </p> <p> Label: C<br> City: Millston </p> <p> Label: D<br> City: Milbrook </p> <p> Label: E<br> City: Millboro </p> </body> </html>
In reply to Re: search for string append in file
by oko1
in thread search for string append in file
by Bronston
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |