28 lines
393 B
Perl
28 lines
393 B
Perl
#!/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";
|
|
# } |