/[suikacvs]/www/test/html/script/charset/src2bin.pl
Suika

Contents of /www/test/html/script/charset/src2bin.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (show annotations) (download)
Sat Feb 17 11:28:34 2007 UTC (19 years, 5 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain 
First version of test suite
1 #!/usr/bin/perl
2 use strict;
3
4 while (<>) {
5 s/\\x([0-9A-Fa-f][0-9A-Fa-f])/pack 'C', hex $1/ge;
6 print;
7 }
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24