Skip to content

Commit 5245789

Browse files
committed
Update README.md and example code.
1 parent f4bfc33 commit 5245789

File tree

3 files changed

+8
-15
lines changed

3 files changed

+8
-15
lines changed

.gitignore

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,4 +20,5 @@ packages
2020
test_results.xml
2121
#t\one_test.t
2222
integratetests/
23-
.vscode/
23+
.vscode/
24+
examples/one_test.pl

README.md

Lines changed: 5 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -24,24 +24,16 @@ use AsposeCellsCloud::Request::PutConvertWorkbookRequest;
2424

2525
my $config = AsposeCellsCloud::Configuration->new( client_id => $ENV{'CellsCloudClientId'}, client_secret => $ENV{'CellsCloudClientSecret'});
2626
my $instance = AsposeCellsCloud::CellsApi->new(AsposeCellsCloud::ApiClient->new( $config));
27-
28-
my $remoteFolder = 'TestData/In';
29-
30-
my $localName = 'Book1.xlsx';
31-
my $remoteName = 'Book1.xlsx';
32-
33-
my $upload_file_request = AsposeCellsCloud::Request::UploadFileRequest->new( 'UploadFiles'=>{ $localName => $localName } ,'path'=>$remoteFolder . '/' . $remoteName );
34-
3527
my $format = 'csv';
36-
3728
my $mapFiles = {};
38-
39-
$mapFiles->{$localName}= "TestData/".$localName ;
40-
29+
$mapFiles->{'CompanySales.xlsx'}= "examples/CompanySales.xlsx";
4130
my $request = AsposeCellsCloud::Request::PutConvertWorkbookRequest->new();
4231
$request->{file} = $mapFiles;
4332
$request->{format} = $format;
44-
$instance->put_convert_workbook(request=> $request);
33+
my $response = $instance->put_convert_workbook(request=> $request);
34+
open (my $fh, '>', 'CompanySales.csv') or die "No open CompanySales.csv $!";
35+
print $fh $response;
36+
close($fh);
4537
```
4638

4739
# Perl module for Aspose.Cells Cloud

examples/Example_QuickStart.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@
2323
$request->{file} = $mapFiles;
2424
$request->{format} = $format;
2525
my $response = $instance->put_convert_workbook(request=> $request);
26-
open (my $fh, '>', 'EmployeeSalesSummary.pdf') or die "无法打开文件 EmployeeSalesSummary.pdf $!";
26+
open (my $fh, '>', 'EmployeeSalesSummary.pdf') or die "No open EmployeeSalesSummary.pdf $!";
2727
binmode($fh);
2828
print $fh $response;
2929
close($fh);

0 commit comments

Comments
 (0)