charset/singlebyte/charset.cgi

#!/usr/bin/perl
use strict;

my $name = $ENV{PATH_INFO};
$name =~ s!^/!!;
$name =~ s/%([0-9A-Fa-f]{2})/pack 'C', hex $1/ge;
$name =~ s/[\x00-\x1F]/ /g;

my $name_c = $name;
$name_c =~ s/[\\";\x20\x7F-\xFF]//g;

print "Content-Type: text/html; charset=$name_c

";

my $v = 0;
if ($ENV{QUERY_STRING} =~ /^(\d+)/) {
  $v = 0+$1;
}

print pack 'C', $v;
1	#!/usr/bin/perl
2	use strict;
3
4	my $name = $ENV{PATH_INFO};
5	$name =~ s!^/!!;
6	$name =~ s/%([0-9A-Fa-f]{2})/pack 'C', hex $1/ge;
7	$name =~ s/[\x00-\x1F]/ /g;
8
9	my $name_c = $name;
10	$name_c =~ s/[\\";\x20\x7F-\xFF]//g;
11
12	print "Content-Type: text/html; charset=$name_c
13
14	";
15
16	my $v = 0;
17	if ($ENV{QUERY_STRING} =~ /^(\d+)/) {
18	$v = 0+$1;
19	}
20
21	print pack 'C', $v;