The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MAGNOLIA / Enbld-0.7036 / lib / Enbld / Definition / Python.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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
—
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

              
package Enbld::Definition::Python;
use strict;
use warnings;
use parent qw/Enbld::Definition/;
sub initialize {
    my $self = shift;
    $self->SUPER::initialize;
    $self->{defined}{ArchiveName}       =   'Python';
    $self->{defined}{WebSite}           =   'http://www.python.org';
    $self->{defined}{VersionForm}       =   '\d\.\d(\.\d)?';
    $self->{defined}{Extension}         =   'tgz';
    $self->{defined}{DownloadSite}      =   'http://www.python.org/ftp/python/';
    $self->{defined}{VersionList}       =   \&set_versionlist;
    $self->{defined}{URL}               =   \&set_url;
    $self->{defined}{TestAction}        =   'test';
    return $self;
}
sub set_versionlist {
    my $attributes = shift;
    require Enbld::HTTP;
    my $first_html = Enbld::HTTP->get_html( $attributes->IndexSite );
    my $first_list = $first_html->parse_version(
            quotemeta( '<a href="') . '\d\.\d(\.\d)?' . quotemeta( '/">' ),
            '\d\.\d(\.\d)?'
            );
    my $versionlist;
    for my $ver_num ( @{ $first_list } ) {
        my $url = $attributes->IndexSite . $ver_num;
        my $html = Enbld::HTTP->get_html( $url );
        my $list = $html->parse_version(
            quotemeta( '<a href="Python-' ) .
            '\d\.\d(\.\d)?' . quotemeta( '.tgz' ) . quotemeta( '">' ) .
            quotemeta( 'Python-' ) .
            '\d\.\d(\.\d)?' . quotemeta( '.tgz</a>' ),
            '\d\.\d(\.\d)?'
            );
        if ( $list ) {
            push @{ $versionlist }, $ver_num;
        }
    }
    return $versionlist;
}
sub set_url {
    my $attributes = shift;
    my $ver = $attributes->Version;
    my $filename = $attributes->Filename;
    my $url = $attributes->DownloadSite . $ver . '/' . $filename;
    return $url;
}
1;
=pod
=head1 NAME
Enbld::Definition::Python - definition module for Python Programming Language
=head1 SEE ALSO
L<Python Programming Language|http://www.python.org>
L<Enbld::Definition>
=head1 COPYRIGHT
copyright 2013- Magnolia C<< <magnolia.k@me.com> >>.
=head1 LICENSE
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut