—
—

              
#!/usr/local/bin/perl
# $File: //member/autrijus/Encode-HanConvert/bin/b2g.pl $ $Author: autrijus $
# $Revision: #1 $ $Change: 1 $ $DateTime: 2002/06/11 15:35:12 $
$VERSION = '0.04';
HideShow 21 lines of Pod
=head1 NAME
b2g.pl - Convert from Big5 to GBK (CP936)
=head1 SYNOPSIS
B<b2g.pl> [ I<inputfile> ...] > I<outputfile>
=head1 DESCRIPTION
The B<b2g.pl>/B<g2b.pl> utility reads files sequentially, convert them
between GBK and Big5, then writing them to the standard output.  The
file operands are processed in command-line order.  If file is a single
dash (C<->) or absent, this program reads from the standard input.
Example usage:
    % b2g.pl < big5.txt > gbk.txt
=cut
use strict;
(system("perldoc", $0), exit) if (grep /^-h/i, @ARGV);
$SIG{__WARN__} = sub {};
require Encode::HanConvert;
while (<>) { Encode::HanConvert::big5_to_gb($_); print }
__END__
HideShow 19 lines of Pod
=head1 SEE ALSO
L<g2b.pl>, L<Encode::HanConvert>
=head1 AUTHORS
Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>
=head1 COPYRIGHT
Copyright 2002 by Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>.
This program is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut