perl面向對象入門之處理json數據和rest api in perl

需求：有些已經實現好的Restful API，通過調用Restful API，取出Restful API的返回值中部分key的值。
1)Rest中，每個對象都是1個URL;
這里需要了解perl發送request,以及怎么處理response.
http://www.redmine.org/projects/redmine/wiki/Rest_api_with_perl
http://search.cpan.org/~ether/libwww-perl-6.15/lib/LWP/UserAgent.pm

2)Restful API的返回值是json格式的，也就是python中的嵌套字典
這里需要學習json的知識
http://search.cpan.org/~makamaka/JSON-2.90/lib/JSON.pm

3)產物作為類提供
需要了解面向對象，除此以外還需要了解perl的哈希，數組，循環等基礎知識。
http://www.runoob.com/perl/perl-tutorial.html

一、安裝perl IDE
    有很多，菜鳥教程也有推薦。這里安裝的是Padre
    windows PC上裝perl IDE:http://padre.perlide.org/   

二、練習
    就是按照菜鳥教程練習0.5天
    
三、就是根據需求寫腳本
每個URL返回的數據結構如下：

構造函數和一些共通的變量

our $web_base_url          = "";
our %web_base_url          = ();
$web_base_url{testBase}  = "this is for URL";
our $ENODEB =  CONSTANT VALUE
our $CABINET = CONSTANT VALUE
our $TELNET = CONSTANT VALUE
our $SWITCH = CONSTANT VALUE
our $MDU = CONSTANT VALUE
our $SYNCHRONIZATION = CONSTANT VALUE
our $SOURCE = CONSTANT VALUE

##############################################################################
# CONSTRUCTOR
# new ( <testplanName> )
# This is the cunstructor for this class
##############################################################################
sub new {
    my $class = shift;
    my (%params) = @_;
    my $self = {
    _baseUrl => $web_base_url{testBase},
    _tpname => $params{tpname}
    };
    $self->{URL} = $self->{_baseUrl}.=$self->{_tpname};
    bless ($self, $class);    
    $self->_setCisAttributes();
    $self->{class} = $class;
    return $self;
}

 

1.發送get請求，獲得responseContent

sub _getResponseContent{
    my( $self,$URL) = @_;
    my $ua = LWP::UserAgent->new(
             protocols_allowed => [ 'http', 'https' ],
             timeout           => 30,
             ssl_opts => { verify_hostname => 0 }
             );
    my $retval = {};
    my $json = JSON->new->utf8;                    
    my $response = $ua->get($URL);
    if ($response->is_error){
        print "Failed to get  data by $self->{URL}\n";
        die $response->message;
    }       
    my $content = $response->content;
    $retval = $json->decode($content);
    return $retval;
}

2.分解每個大的item值

sub _setCisAttributes{
    my($self) = @_;
    $self->{testPlan} = $self->_getResponseContent($self->{URL})->{items};
    foreach ( @{ $self->{testPlan} }){
        die "Not find key cfItem_type in element $->{'cfItem_type'} $self->{URL}" unless $_->{'cfItem_type'};
        if ($_->{'cfItem_type'} =~ /$ENODEB/){
            $self->{testRbsHash} = $_;
        }
        if ($_->{'cfItem_type'} =~ /$CABINET/){
            $self->{testCabinetHash} = $_;
        }
        if ($_->{'cfItem_type'} =~ /$TELNET/ and $_->{'cfItem_type'} =~ /$SWITCH/){
            $self->{testSwitchHash} = $_;
        }
        if ($_->{'cfItem_type'} =~ /$MDU/ and $_->{params}->{Master}->{value} =~ /true/){
            $self->{testMduHash} = $_;
            my $test = scalar($_->{params}->{Master}->{value});
        }
        if ($_->{'cfItem_type'} =~ /$SYNCHRONIZATION/ and $_->{'cfItem_type'} =~ /$SOURCE/){                 
            if (exists($_->{relation_list}->[0]->{params_ci_1}->{Value}->{0}->{'Primary sync ref'}) 
            and $_->{relation_list}->[0]->{params_ci_1}->{Value}->{0}->{'Primary sync ref'}->{value} =~ /true/){
                $self->{testPNTPHash} = $_; 
            }
            else                  
            {
                $self->{testSNTPHash} = $_;  
            }
        }        
    }
    return $self;
}

3.取值的共通方法

sub _getCiAttributes{
    my ( $self, $ci, $attribs ) = @_;
    #print "$ci\n";
    #print "$attribs\n";
    my $ref = "";    
    switch($ci){
        case "$ENODEB" {
            die "Not find ENODEB attributes\n" unless $self->{testRbsHash};                
            $ref = $self->{testRbsHash};                        
        }
        case "$CABINET" {
            die "Not find Cabinet attributes\n" unless $self->{testCabinetHash};
            $ref = $self->{testCabinetHash};
        }
        case "$TELNET" {            
            die "Not find telnet switch attributes\n" unless $self->{testSwitchHash};
            $ref = $self->{testSwitchHash};
        }
        case "$MDU" {
                    die "Not find master Du attributes\n" unless  $self->{testMduHash};
            $ref = $self->{testMduHash};
        }
    }
    foreach ( @{ $attribs } ) {
        $ref = $ref->[ 0 ] if ( ref( $ref ) eq 'ARRAY' );        
        $ref = $ref->{ $_ }; 
    }
    return $ref;
}

4.供包外調用的方法,只舉一例

sub getSwitchPort{
    #my($funcName) = shift;
    my($self) = @_;
    return $self->_getCiAttributes("$TELNET",['relation_list','params_ci_1','Port']);
}