如何使用Perl将文档上载到SharePoint？

cpan install SOAP::Lite
cpan install MIME::Base64

#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Lite;
use MIME::Base64;

# 设置SharePoint站点URL和文档库名称
my $sharepoint_url = "http://your-sharepoint-site/sites/your-site/_vti_bin/Lists.asmx";
my $document_library = "YourDocumentLibrary";

# 设置文件路径和上传文件名
my $file_path = "/path/to/your/file.txt";
my $file_name = "file.txt";

# 读取文件内容并进行Base64编码
open(my $fh, "<", $file_path) or die "Can't open file: $!";
my $file_content = do { local $/; <$fh> };
close($fh);
my $encoded_content = encode_base64($file_content);

# 创建SOAP请求
my $soap = SOAP::Lite
    -> uri("http://schemas.microsoft.com/sharepoint/soap/")
    -> proxy($sharepoint_url)
    -> on_action(sub { "http://schemas.microsoft.com/sharepoint/soap/".$_[1] });

# 调用SharePoint的AddAttachment方法
my $result = $soap->AddAttachment(
    SOAP::Data->name("listName")->value($document_library),
    SOAP::Data->name("listItemID")->value(0),
    SOAP::Data->name("fileName")->value($file_name),
    SOAP::Data->name("attachment")->value($encoded_content)
);

# 检查结果
if ($result->fault) {
    print "Error: " . $result->faultcode . ": " . $result->faultstring . "\n";
} else {
    print "File uploaded successfully.\n";
}