t; use warnings;
use feature 'say' ;
use Data::Dumper ;
use Getopt::Std ;
use HTTP::Tiny ;
use JSON ;
my ( $GOOGLE_DRIVE_API , $gfile , $atoken , $count_limit , $uri , %o ) ;
return 1 ;
sub fse数
my $ht = HTTP::Tiny->new();
while ( $count < $count_limit ) {
my $contents = decode_json( $ht->get($uri)->{content} );
do { print Dumper $contents ; $contents->{error} ? last : next } load ;
use strict;
use warnings;
use feature 'say' ;
use HTTP::Request::Common;
use JSON qw/encode_json decode_json/;
use LWP::UserAgent;
use Getopt::Std ;
use Carp;
my ($gfile , $atoken, $GOOGLE_;
}
sub f_each ( $ ) {
binmode STDOUT, ":utf8";
my $mimeType = $o{m} ;
my $ej1 = encode_json { name => $_[0] , mimeType => $mimeType , $o{f} ne q[] ? ( parents => [ $o{f} ] ): () } ;
my $ undef, undef , 'Content-Type' => 'application/json;charset=UTF-8' , 'Content' => $ej1 ] ,
file => [ $_[0] ] ,
] ,
) ;
my $j = decode_json ( $res->content ) ;
say join "\t" , map { date ;
use strict ;
use warnings ;
use feature 'say' ;
use HTTP::Request::Common ;
use JSON qw[ encode_json ] ;
use LWP::UserAgent ;
use URI::QueryParam ;
use URI ;
my ($GOOGLE_DRIVE_UPLOAD_API , くことは出来るだろうか?
'Content-Type' => 'application/json;charset=UTF-8',
'Content' => encode_json( {} ) #name=>'temp.txt', mimeType=>'text/plain', parents => ['10_33char