External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2025-12-22 03:22:00 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

dev: improved perl script to find new cards

Browse source
This commit is contained in:
Oleg Agafonov 2024-09-08 10:40:28 +04:00
parent efc8e5f281
commit 7512d8474b
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Utils/find_new_cards.pl
View file

@ -18,11 +18,15 @@ foreach $tag (@lines)
{ {
my $orig_num = $tag; my $orig_num = $tag;
my $num = $tag; my $num = $tag;
if ($num =~ m/(\d+)\.(\d+).(\d+)-v(\d+)-beta(\d+)/img) {
# 1.4.52-V7-beta9 # 1.4.52-V7-beta9
if ($num =~ m/(\d+)\.(\d+).(\d+)-v(\d+)-beta(\d+)/img)
{
$num = $1 * 20000 + $2 * 1000 + $3 * 200 + $4 * 10 + $5; $num = $1 * 20000 + $2 * 1000 + $3 * 200 + $4 * 10 + $5;
$order_of_tags {$num} = $tag; $order_of_tags {$num} = $tag;
} elsif ($num =~ m/(\d+)\.(\d+).(\d+)v(\d+)/img) {
# 1.4.53V1
$num = $1 * 20000 + $2 * 1000 + $3 * 200 + $4 * 10;
$order_of_tags {$num} = $tag;
} }
} }