Mailru-Cloud
view release on metacpan or search on metacpan
my $hash = $cloud->get_last_uploaded_file_hash() || die "Can't get file hash";
## downloadFile(%opt)
Download file from cloud.mail.ru to local file. Method overwrites local file if exists. Return full file name on local disk if success. Die if error
my $local_file = $cloud->downloadFile(-cloud_file => '/Temp/test', -file => 'test');
Options:
-cloud_file => Path to file on cloud.mail.ru
-file => Path to local destination
## createFolder(%opt)
Create recursive folder on cloud.mail.ru. Return 1 if success, undef if folder exists. Die on error
$cloud->creteFolder(-folder => '/Temp/test');
Options:
-folder => Path to folder on cloud
## deleteResource(%opt)
Delete file/folder from cloud.mail.ru. Resource moved to trash. To delete run emptyTrash() method. Return 1 if success. Die on error
$cloud->deleteResource(-path => '/Temp/test.txt'); #Delete file '/Temp/test.txt' from cloud
Options:
-path => Path to delete resource
## emptyTrash()
Empty trash on cloud.mail.ru. Return 1 if success. Die on error
$cloud->emptyTrash();
## listFiles(%opt)
Return struct (arrayref) of files and folders. Die on error
my $list = $cloud->listFiles(-path => '/'); #Get list files and folder in path '/'
Options:
-path => Path to get file list (default: '/')
Example output:
[
{
type => 'folder', # Type file/folder
name => 'Temp', # Name of resource
size => 12221, # Size in bytes
weblink => 'https://cloud.mail.ru/public/4L8/K343', # Weblink to resource, if resource shared
},
]
## shareResource(%opt)
Share resource for all. Return weblink if success. Die if error
my $link = $cloud->shareResource(-path => '/Temp/'); Share folder /Temp
Options:
-path => Path to shared resource
# DEPENDENCE
[LWP::UserAgent](https://metacpan.org/pod/LWP::UserAgent), [JSON::XS](https://metacpan.org/pod/JSON::XS), [URI::Escape](https://metacpan.org/pod/URI::Escape), [IO::Socket::SSL](https://metacpan.org/pod/IO::Socket::SSL), [Encode](https://metacpan.org/...
# AUTHORS
- Pavel Andryushin <vrag867@gmail.com>
# COPYRIGHT AND LICENSE
This software is copyright (c) 2018 by Pavel Andryushin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
( run in 1.121 second using v1.01-cache-2.11-cpan-75ffa21a3d4 )