test/html-webhacc/cc.cgi

#!/usr/bin/perl
use strict;

use lib qw[/home/httpd/html/www/markup/html/whatpm
           /home/wakaba/work/manakai2/lib];
use CGI::Carp qw[fatalsToBrowser];
use Scalar::Util qw[refaddr];
use Time::HiRes qw/time/;

sub htescape ($) {
  my $s = $_[0];
  $s =~ s/&/&amp;/g;
  $s =~ s/</&lt;/g;
  $s =~ s/>/&gt;/g;
  $s =~ s/"/&quot;/g;
  $s =~ s{([\x00-\x09\x0B-\x1F\x7F-\xA0\x{FEFF}\x{FFFC}-\x{FFFF}])}{
    sprintf '<var>U+%04X</var>', ord $1;
  }ge;
  return $s;
} # htescape

  
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			use lib qw[/home/httpd/html/www/markup/html/whatpm
5	wakaba	1.16	/home/wakaba/work/manakai2/lib];
6	wakaba	1.1	use CGI::Carp qw[fatalsToBrowser];
7	wakaba	1.2	use Scalar::Util qw[refaddr];
8	wakaba	1.16	use Time::HiRes qw/time/;
9	wakaba	1.1
10	wakaba	1.2	sub htescape ($) {
11			my $s = $_[0];
12			$s =~ s/&/&/g;
13			$s =~ s/</</g;
14			$s =~ s/>/>/g;
15			$s =~ s/"/"/g;
16	wakaba	1.12	$s =~ s{([\x00-\x09\x0B-\x1F\x7F-\xA0\x{FEFF}\x{FFFC}-\x{FFFF}])}{
17			sprintf '<var>U+%04X</var>', ord $1;
18			}ge;
19	wakaba	1.2	return $s;
20			} # htescape
21
22	wakaba	1.16