From 557bf9c01fd78848167c1db8327aed259c5b3690 Mon Sep 17 00:00:00 2001
From: stderr64 <stderr64@null.net>
Date: Tue, 28 Oct 2025 18:11:09 +0200
Subject: Added some stuff

---
 cpp_unicode_test/writemisc.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 cpp_unicode_test/writemisc.pl

(limited to 'cpp_unicode_test/writemisc.pl')

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 );
-- 
cgit v1.2.3-94-g38b9