如何使用perl脚本从sharepoint获取列表项 [英] how to get the list items from sharepoint using perl script

问题描述

我尝试使用perl脚本从共享点服务器站点获取列表项。我写了脚本但是给出了错误 401未经授权。请帮忙解决这个问题。



i am写下脚本

Hi,
I am try to get the list items from share point server site using perl script.i am write the script but give the error "401 Unauthorized". please help to solve this problem.

i am write script below

use LWP::UserAgent;
 se LWP::Debug;
use Data::Dumper;
 se SOAP::Lite on_action => sub { "$_[0]$_[1]"; };
import SOAP::Data 'name', 'value';
 our $sp_endpoint = 'http://sez2444/_vti_bin/lists.asmx';

 our $sp_username = 'spadmin';
 our $sp_password = 'Csc@1234';
 our $sp_domain = 'dev\';
print Dumper(dgfrdgfd);
$debug = 0;

if ($debug) {
LWP::Debug::level('+');
SOAP::Lite->import(+trace => 'all');
}
my @ua_args = (keep_alive => 1);
my @credentials = ($sp_domain, "", $sp_username, $sp_password);
my $schema_ua = LWP::UserAgent->new(@ua_args);
$schema_ua->credentials(@credentials);
$soap = SOAP::Lite->proxy($sp_endpoint, @ua_args, credentials => \@credentials);
$soap->schema->useragent($schema_ua);
$soap->uri("http://schemas.microsoft.com/sharepoint/soap/");
print "$credentials \n";
$lists = $soap->GetListCollection();
quit(1, $lists->faultstring()) if defined $lists->fault();

sub lists_getid
{
my $title = shift;
my @result = $lists->dataof('//GetListItemsResult/listitems/data/row');
foreach my $data (@result) {
my $attr = $data->attr;
return $attr->{ID} if ($attr->{Title} eq $title);
}
return undef;
}

sub lists_getitems
{
my $listid = shift;
my $in_listName = name('listName' => $listid);
my $in_viewName = name('viewName' => '');
my $in_rowLimit = name('rowLimit' => 99999);
my $call = $soap->GetListItems($in_listName, $in_viewName, $in_rowLimit);
quit(1, $call->faultstring()) if defined $call->fault();
return $call->dataof('//GetListItemsResult/listitems/data/row');
}

my $list_id = lists_getid('Disk Space');
print "List ID is: $list_id\n";
my @items = lists_getitems($list_id);
foreach my $data (@items) {
my $attr = $data->attr;
print Dumper($attr);

}

推荐答案

_ [0]

_ [1];};
import SOAP :: Data ' name'，' value';
我们的

_[1]"; }; import SOAP::Data 'name', 'value'; our

sp_endpoint = ' http：//sez2444/_vti_bin/lists.asmx';

我们的

sp_endpoint = 'http://sez2444/_vti_bin/lists.asmx'; our

这篇关于如何使用perl脚本从sharepoint获取列表项的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！