File tree Expand file tree Collapse file tree 3 files changed +8
-15
lines changed Expand file tree Collapse file tree 3 files changed +8
-15
lines changed Original file line number Diff line number Diff line change @@ -20,4 +20,5 @@ packages
2020test_results.xml
2121# t\one_test.t
2222integratetests /
23- .vscode /
23+ .vscode /
24+ examples /one_test.pl
Original file line number Diff line number Diff line change @@ -24,24 +24,16 @@ use AsposeCellsCloud::Request::PutConvertWorkbookRequest;
2424
2525my $config = AsposeCellsCloud::Configuration-> new( client_id => $ENV {' CellsCloudClientId' }, client_secret => $ENV {' CellsCloudClientSecret' });
2626my $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-
3527my $format = ' csv' ;
36-
3728my $mapFiles = {};
38-
39- $mapFiles -> {$localName }= " TestData/" .$localName ;
40-
29+ $mapFiles -> {' CompanySales.xlsx' }= " examples/CompanySales.xlsx" ;
4130my $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
Original file line number Diff line number Diff line change 2323$request -> {file } = $mapFiles ;
2424$request -> {format } = $format ;
2525my $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 $! " ;
2727binmode ($fh );
2828print $fh $response ;
2929close ($fh );
You can’t perform that action at this time.
0 commit comments