Analyzing your prompt, please hold on...
An error occurred while retrieving the results. Please refresh the page and try again.
The following software and libraries are required.
To call a Java API in Perl, you need to install the Java‑Perl extension for Perl first. (For the purposes of this article, we assume that Perl has been installed and set properly.) You can get the Java‑Perl extension from METZZO/Java-4.7.
At the end of this document, there is an example of a Perl script that calls Aspose.Cells for Java. To run it, follow the steps below:
Java-4.7.tar.gz and unzip it to your local drive.java -classpath ... com.zzo.javaserver.JavaServer where ... is the classpath that must include all the libraries required by your application.
To use Aspose.Cells for Java, you should have at least two JAR files:
Aspose.Cells.jar from Aspose.Cells for Java
JavaServer.jar from Java-4.7.tar.gz
Run the Perl script which invokes the Aspose.Cells for Java API.
For more information on how to work with Java in Perl, see the documentation of the Java‑Perl extension at https://metacpan.org/release/METZZO/Java-4.7.
Perl
my $ok = 0;
BEGIN { $| = 1; print "1..33\n"; }
END {print "not ok $ok - is JavaServer on localhost running?\nJavaServer must be running for these tests to function.\n" unless $loaded;}
BEGIN {
print "WARNING: You cannot run these tests unless JavaServer is running!\n";
print "Do you want to continue? (Y/n) ";
my $in = <STDIN>;
exit 1 if ($in =~ /^n/i);
}
use lib '.';
use Java;
my $java = new Java();
$loaded = 1;
$ok++;
print "ok $ok\n";
my $workbook = $java->create_object("com.aspose.cells.Workbook");
$ok++;
print "workbook $ok\n";
#$workbook->open("t.xls");
$ok++;
print "open $ok\n";
my $worksheets = $workbook->getWorksheets();
$ok++;
print "worksheets $ok\n";
my $worksheet = $worksheets->get(0);
$ok++;
print "worksheet $ok\n";
my $cells = $worksheet->getCells();
$ok++;
print "cells $ok\n";
my $cell = $cells->getCell(0,1);
$ok++;
print "cell $ok\n";
$cell->setValue(123);
$cell = $cells->getCell(1,1);
$cell->setValue(456);
$cell = $cells->getCell(2,1);
$cell->setFormula("=SUM(B1:B2)");
$cell = $cells->getCell(3,1);
$cell->setValue("abc");
$workbook->save("t1.xls");
$ok++;
print "save $ok\n";Analyzing your prompt, please hold on...
An error occurred while retrieving the results. Please refresh the page and try again.