Perl：使用Net :: Google

问题描述

我正在尝试使用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 (将#修改为@）

google-docs perl

Perl：使用Net :: Google :: Drive

问题描述

解决方法