1 files changed, 25 insertions, 0 deletions
diff --git a/cpp_unicode_test/writemisc.pl b/cpp_unicode_test/writemisc.pl
new file mode 100755
index 0000000..43ba4ec
--- /dev/null
+++ b/cpp_unicode_test/writemisc.pl
@@ -0,0 +1,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 );