lib/Encode/HZ.pm

package Encode::HZ;
use strict;

use vars qw($VERSION);
$VERSION = do {my @r =(q$Revision: 1.4 $ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r};
use base qw(Encode::Encoding);
__PACKAGE__->Define(qw/hz chinese-hz hz-gb-2312 hz-gb2312 cp52936/);

sub needs_lines  { 1 }

sub perlio_ok { 
    return 0; # for the time being
}

sub decode
{
    my ($obj,$str,$chk) = @_;
    my $gb = Encode::find_encoding($obj->__hz_encoding_name);

    $str =~ s{~                 # starting tilde
        (?:
            (~)                 # another tilde - escaped (set $1)
                |               #     or
            \x0D?\x0A                   # \n - output nothing
                |               #     or
            \{                  # opening brace of GB data
                (               #  set $2 to any number of...
                    (?:[\x21-\x7D][\x21-\x7E])*
                )
            ~\}                 # closing brace of GB data
                |
            \{
                ((?:[\x21-\x7D][\x21-\x7E])+[\x0D\x0A])
        #       |               # XXX: invalid escape - maybe die on $chk?
        )
    }{
1	package Encode::HZ;
2	use strict;
3
4	use vars qw($VERSION);
5	$VERSION = do {my @r =(q$Revision: 1.4 $ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r};
6	use base qw(Encode::Encoding);
7	__PACKAGE__->Define(qw/hz chinese-hz hz-gb-2312 hz-gb2312 cp52936/);
8
9	sub needs_lines { 1 }
10
11	sub perlio_ok {
12	return 0; # for the time being
13	}
14
15	sub decode
16	{
17	my ($obj,$str,$chk) = @_;
18	my $gb = Encode::find_encoding($obj->__hz_encoding_name);
19
20	$str =~ s{~ # starting tilde
21	(?:
22	(~) # another tilde - escaped (set $1)
23	\| # or
24	\x0D?\x0A # \n - output nothing
25	\| # or
26	\{ # opening brace of GB data
27	( # set $2 to any number of...
28	(?:[\x21-\x7D][\x21-\x7E])*
29	)
30	~\} # closing brace of GB data
31	\|
32	\{
33	((?:[\x21-\x7D][\x21-\x7E])+[\x0D\x0A])
34	# \| # XXX: invalid escape - maybe die on $chk?
35	)
36	}{