20251125

2025-11-25 00:28:51 +08:00
commit eb3f16c30e
406 changed files with 91653 additions and 0 deletions
@@ -0,0 +1,31 @@
+package ReadManager;
+
+use strict;
+use warnings;
+use Carp;
+
+
+my $counter = 0;
+my %read_acc_to_counter;
+
+
+####
+sub get_read_index {
+	my ($read_acc) = @_;
+
+	if (my $read_index = $read_acc_to_counter{$read_acc}) {
+		
+		return($read_index);
+	}
+
+	else {
+
+		$counter++;
+		$read_acc_to_counter{$read_acc} = $counter;
+
+		return($counter);
+	}
+}
+
+1; #EOM
+