Tools.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

#
#

package Tools;

use strict;
use warnings;

our $VERSION = '0.1';

use base 'Exporter';

#our @EXPORT = qw(parse_mageia_iso_name);

sub parse_mageia_iso_name {
    my ($name) = @_;
    my %info = ();

    if ($name =~ m/^(Mageia)-(\d+)(-(alpha|beta|RC)(\d*))?(-(.*))?-(i586|x86_64|dual)?(-(CD|DVD|BD))?(-(build\_\w+))?\.(.*)$/) {
        $info{"full"}    = $name;
        $info{"name"}    = $1  if defined $1;
        $info{"version"} = $2  if defined $2;
        $info{"release"} = "$4$5" if defined $4;
        $info{"variant"} = $7  if defined $7;
        $info{"arch"}    = $8  if defined $8;
        $info{"medium"}  = $10 if defined $10;
        $info{"build"}   = $12 if defined $12;
        $info{"ext"}     = $13 if defined $13;

    }

    return %info;
}

1;