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.

OUTPUT

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

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

id avsdff
first name jj
lastname dd

回答1:

Simply use Data::Dumper and XML::Simple.

use Data::Dumper; 
use XML::Simple; #you may want to install a specific package from your distribution

{...}
my $hash_ref = SimpeXML::XMLin($profile_xml);
print Dumper($hash_ref);

I do not know if you would like more beautifully output.

回答2:

try just to make simple print out from your hash reference

 foreach $key (keys %{$profile_xml}) {
     print "$key $profile_xml->{$key}\n";
 }

回答3:

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>";

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

来源：https://stackoverflow.com/questions/18670193/how-to-print-the-profile-details-individual-lines

标签

perl