如何打印配置文件详细信息的每一行 [英] How to print the profile details individual lines

问题描述

#!/usr/bin/perl -w

use WWW::LinkedIn;
use CGI;    # load CGI routines
use CGI::Session;
$q = CGI->new;                      # create new CGI object
print $q->header,                   # create the HTTP header
  $q->start_html('hello world'),    # start the HTML
  $q->h1('hello world'),            # level 1 header
  $q->end_html;                     # end the HTML
my $consumer_key    = 'xxxxxxx';
my $consumer_secret = 'xxxxxxxxx';
my $li              = WWW::LinkedIn->new(
    consumer_key    => $consumer_key,
    consumer_secret => $consumer_secret,
);

if ( length( $ENV{'QUERY_STRING'} ) > 0 ) { 
    $buffer = $ENV{'QUERY_STRING'};
    @pairs = split( /&/, $buffer );

    foreach $pair (@pairs) {
        ( $name, $value ) = split( /=/, $pair );
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $in{$name} = $value;
    }   
    $sid = $q->cookie('CGISESSID') || $q->param('CGISESSID') || undef;

    $session = new CGI::Session( undef, $sid, { Directory => '/tmp' } );

    my $access_token = $li->get_access_token(
        verifier             => $in{'oauth_verifier'},
        request_token        => $session->param("request_token"),
        request_token_secret => $session->param("request_token_secret"),
    );  
    undef($session);
    my $profile_xml = $li->request(
        request_url =>
'http://api.linkedin.com/v1/people/~:(id,first-name,last-name,positions,industry,distance)',
        access_token        => $access_token->{token},
        access_token_secret => $access_token->{secret},
    );  
    print $profile_xml;
}

输出正在单行打印.我要打印单独的一行.

The output is printing in single line. I want to print that is separate line.

输出

aAVGFD34 jj DD 456456 2003 6 true ara systems Technology and Services  Technology and Services 0 

如何从profile_xml变量中获取每个列的值?

How can i get the each column value from the profile_xml variable?

id avsdff
first name jj
lastname dd

推荐答案

在这里，我将展示解析数据并在每行中打印的方式.

Here i am going the show the way to parse the data and print in the individual lines.

  my $parser = XML::Parser->new( Style => 'Tree' );
  my $tree   = $parser->parse( $profile_xml );
  #print Dumper( $tree ); you can use this see the data displayed in the tree  formatted

   my $UID = $tree->[1]->[4]->[2],"\n";
   print "User ID:$UID";
   print"</br>";

   my $FirstName = $tree->[1]->[8]->[2],"\n";
   print "First Name:$FirstName";
   print"</br>";

对于示例，我已经显示了UID和FirstName.一切正常.

For sample i have showed for UID and FirstName. And this is working fine.

这篇关于如何打印配置文件详细信息的每一行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！