Help for this page

Select Code to Download


  1. or download this
    foreach my $tag ( _all_html_tags() ) {
    eval "sub $tag {
...
    }";
...
# again for end and start tags
  2. or download this
    foreach my $tag ( _all_html_tags() ) {
    *$tag = sub { return _tag_func($tag,@_); }
...
  3. or download this
      DB<106> $tmpl = '$#abc#=15' 
 => "\$#abc#=15"
...

  DB<111> $str
 => 15
  4. or download this
        eval sprintf <<'__CODE__', $tag;
        sub %1$s {
            "<%1$s>",@_,"</%1$s>";
        }
__CODE__