first commit

test.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+my $z = '123478234P234';
+
+if ( $z =~ /^\d{8}/) {
+ print ("test\n");
+}
+
+my $a = '3ed1ac';
+my $b = '3ed1bb';
+my $a1 = sprintf("%d", hex($a));
+my $b1 = sprintf("%d", hex($b));
+
+print "$a1\n";
+print "$b1\n";
+
+for my $i ( $a1..$b1 ) {
+    print sprintf("%06x",$i),"\n";
+
+}
+
+
+# for(my $i = 1; $i < 0x00FFFF; $i++) {
+# print sprintf("%06x",$i),"\n";
+# }