cpp_unicode_test/writemisc.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!/usr/bin/perl
use IO::File;

my $charcode = 0x2600;

my $out_string = "";

for ( ; $charcode < 0x26FF; $charcode++ ){
    $out_string .= chr( $charcode );
}

$out_string .= "\n";

undef $charcode;

open( my $ofile, ">:encoding(UTF-8)", "unicodechars.txt" ) or die "Failed to open file for writing";;

print( $ofile $out_string );

undef $ofile;
undef $out_string;

print( "Finished writing to file\n" );

exit( 0 );