如何解决Perl:使用Net :: Google :: Drive
我正在尝试使用Perl将google spreasheets导出为xlsx excel spreasheets。
我目前能够从脚本中获取google电子表格中的数据,但我更愿意将文件导出到本地excel电子表格中并从中获取所需信息。
我无法找到使用Net :: Google :: Drive将Google电子表格导出到本地xlsx文件的方法
使用该模块中的方法只能获取二进制文件。
有人能做到吗?
如果是,您可以共享一些代码吗?
感谢和问候。
X。
-
这是我当前的代码:
use Net::Google::Drive;
use Net::Google::DataAPI::Auth::OAuth2;
use Storable;
my $client_id = "XXXXXX.apps.googleusercontent.com";
my $client_secret = "YYYYY";
my $oauth2 = Net::Google::DataAPI::Auth::OAuth2->new(
client_id => $client_id,client_secret => $client_secret,scope => ['https://www.googleapis.com/auth/drive.readonly'],);
my $session = retrieve('google_drive.session');
my $restored_token = Net::OAuth2::AccessToken->session_thaw($session,auto_refresh => 1,profile => $oauth2->oauth2_webserver,);
$oauth2->access_token($restored_token);
my $disk = Net::Google::Drive->new(
-client_id => $client_id,-client_secret => $client_secret,-access_token => $oauth2->access_token($restored_token),-refresh_token => $oauth2->refresh_token($restored_token),);
my $file_id = "XXXXX";
my $dest_file = 'd:\\test.xlsx';
$disk->downloadFile(
-file_id => $file_id,-dest_file => $dest_file,);
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。