root/misc/unicodecp

Revision 2003 (checked in by miyagawa, 13 years ago)

add unicodecp

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use encoding "utf-8";
5 use Encode;
6
7 while (<>) {
8     print encode("ASCII", $_, Encode::FB_PERLQQ);
9 }
10
Note: See TracBrowser for help on using the browser.