utf8/bom/utf8-bom-zwnbsp-2.html.cgi

#!/usr/bin/perl
use strict;

print qq[Content-Type: text/html; charset=utf-8\n\n];
print qq[\xEF\xBB\xBF\xEF\xBB\xBF\xEF\xBB\xBFXXXXXX];
print q[
  <p id=result class=FAIL>FAIL (noscript)</p>
  <script>
    var r = document.getElementById ('result');
    r.firstChild.data = 'FAIL (script)';
    if (document.body.firstChild.data.match (/^\uFEFF\uFEFFXXXXXX/)) {
      r.firstChild.data = 'PASS';
      r.className = 'PASS';
    } else {
      r.firstChild.data = 'FAIL (first character is U+' + document.body.firstChild.data.charCodeAt (0).toString (16) + ', second character is U+' + document.body.firstChild.data.charCodeAt (1).toString (16) + ')';
    }
  </script>
];
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			print qq[Content-Type: text/html; charset=utf-8\n\n];
5			print qq[\xEF\xBB\xBF\xEF\xBB\xBF\xEF\xBB\xBFXXXXXX];
6			print q[
7			<p id=result class=FAIL>FAIL (noscript)</p>
8			<script>
9			var r = document.getElementById ('result');
10			r.firstChild.data = 'FAIL (script)';
11			if (document.body.firstChild.data.match (/^\uFEFF\uFEFFXXXXXX/)) {
12			r.firstChild.data = 'PASS';
13			r.className = 'PASS';
14			} else {
15			r.firstChild.data = 'FAIL (first character is U+' + document.body.firstChild.data.charCodeAt (0).toString (16) + ', second character is U+' + document.body.firstChild.data.charCodeAt (1).toString (16) + ')';
16			}
17			</script>
18			];