/[webpac]/trunk/xmlify.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/xmlify.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (show annotations)
Thu Jan 16 17:35:54 2003 UTC (21 years, 2 months ago) by dpavlin
File size: 389 byte(s)
bunch of changes: make design more modular, implement index (partial
implementation) and other small and big changes

1 #
2 # small function that creates one xml tag
3 #
4
5 # Escape <, >, & and ", and to produce valid XML
6 my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
7 my $escape_re = join '|' => keys %escape;
8
9 sub xmlify {
10 my $tag = shift;
11 my $out;
12
13 $out .= " <$tag>";
14 foreach my $v (@_) {
15 $v =~ s/($escape_re)/$escape{$1}/g;
16 $out .= $v;
17 }
18 $out .= "</$tag>\n";
19 return $out;
20 }

Properties

Name Value
cvs2svn:cvs-rev 1.1

  ViewVC Help
Powered by ViewVC 1.1.26