1HTML::Entities::InterpoUlsaetre(C3o)ntributed Perl DocumHeTnMtLa:t:iEonntities::Interpolate(3)
2
3
4

NAME

6       HTML::Entities::Interpolate - Call HTML::Entities::encode_entities, via
7       a hash, within a string
8

Synopsis

10       This is scripts/synopsis.pl:
11
12               #!/usr/bin/env perl
13
14               use strict;
15               use warnings;
16
17               use HTML::Entities::Interpolate;
18
19               # ------------------------------
20
21               my($block_1) = '<p>Para One</p>';
22               my($block_2) = "<p align='center'>Para Two</p>";
23               my($block_3) = 'http://tipjar.com/bin/test?foo=bar&reg=inald';
24               my($block_4) = $Entitize{$block_3};
25
26               print <<EOS;
27               <html>
28                       <head>
29                               <title>Test HTML::Entities::Interpolate</title>
30                       </head>
31                       <body>
32                               <h1 align='center'>HTML::Entities::Interpolate</h1>
33                               <form action='#'>
34                               <table align='center'>
35                               <tr>
36                                       <td align='center'>Input: <input name='data' value='$Entitize{$block_1}'></td>
37                               </tr>
38                               <tr>
39                                       <td align='center'><br>The full text of the block is <pre>$Entitize{$block_2}</pre></td>
40                               </tr>
41                               <tr>
42                                       <td align='center'><br>Check out the web page at: <a href='$block_3'>$block_4</a></td>
43                               </tr>
44                               </table>
45                               </form>
46                       </body>
47               </html>
48               EOS
49

Description

51       "HTML::Entities::Interpolate" is a pure Perl module.
52

Constructor and initialization

54       Not needed.
55

See Also

57       HTML::Entities.
58

Machine-Readable Change Log

60       The file Changes was converted into Changelog.ini by
61       Module::Metadata::Changes.
62

Repository

64       <https://github.com/ronsavage/HTML-Entities-Interpolate>
65

Support

67       <https://rt.cpan.org/Public/Dist/Display.html?Name=HTML::Entities::Interpolate>.
68

Author

70       David Nicol <davidnicol@gmail.com>.
71
72       Maintainer: Ron Savage <ron@savage.net.au>.
73
74       This program is free software; you can redistribute it and/or modify it
75       under the same terms as Perl itself.
76
77       The full text of the license can be found in the LICENSE file included
78       with this module.
79
80
81
82perl v5.32.1                      2021-01-27    HTML::Entities::Interpolate(3)
Impressum