Use 1D .NET DLL arrays in Perl app

This article provides an introduction to cross-technology handling of one-dimensional arrays. Data structures are one of the essential aspects of every piece of software. Any application constantly process various information, that very often require specific grouping and access strategies. This aspect is addressed by arrays and more advanced collection types. By using the Javonet framework, users gain ability to easily and effectively work with data structures originating from .NET DLL. Every array from .NET DLL is treated as reference.

Javonet allows you to reference and use modules or packages written in (Java/Kotlin/Groovy/Clojure, C#/VB.NET, Ruby, Perl, Python, JavaScript/TypeScript) like they were created in your technology. If have not yet created your first project check Javonet overview and quick start guides for your technology.

With Javonet you can interact with arrays from .NET DLL like they were available in Perl but invocation must be performed through Javonet SDK API.

Custom .NET DLL with arrays handling

With Javonet it is possible to reference any custom .NET DLL and interact with arrays declared on types defined within that module almost the same as with any other Perl library.

Snippet below represents the sample code from .NET DLL that has methods which return or process the arrays:

public string[] Get1DArray()
{
    return new string[] { "one", "two", "three", "four", "five" };
}

public string[,] Get2DArray()
{
    return new string[,] { { "S00", "S01" }, { "S10", "S11" } };
}

public double AddArrayElementsAndMultiply(double[] myArray, double myValue)
{
    double sum = 0;
    foreach (double element in myArray)
    {
        sum += element;
    }

    return sum * myValue;
}

Javonet SDK contains various methods to interact with arrays and consume the results in Perl:

Get element from .NET DLL 1D array in Perl application

I code in:
# use activate only once in your app
Javonet->activate("your-license-key");

# create Netcore runtime context
my $called_runtime = Javonet->in_memory()->netcore();

# set up variables
my $library_path = "${resources_directory}/TestClass.dll";
my $class_name = "TestClass.TestClass";

# load Netcore custom library
$called_runtime->load_library($library_path);

# get type from the runtime
my $called_runtime_type = $called_runtime->get_type($class_name)->execute();

# create type's instance
my $instance = $called_runtime_type->create_instance()->execute();

# invoke instance's method
my $array = $instance->invoke_instance_method("Get1DArray")->execute();

# get array's index
my $response = $array->get_index(2)->execute();

# get value from response
my $result = $response->get_value();

# print result to console
print("$result\n");

In the snippet above, get1DArray method is used to get reference to 1D array from .NET DLL. Method getIndex is used to get element from the array.

Set element from .NET DLL 1D array in Perl application

I code in:
# use activate only once in your app
Javonet->activate("your-license-key");

# create Netcore runtime context
my $called_runtime = Javonet->in_memory()->netcore();

# set up variables
my $library_path = "${resources_directory}/TestClass.dll";
my $class_name = "TestClass.TestClass";

# load Netcore custom library
$called_runtime->load_library($library_path);

# get type from the runtime
my $called_runtime_type = $called_runtime->get_type($class_name)->execute();

# create type's instance
my $instance = $called_runtime_type->create_instance()->execute();

# invoke instance's method
my $array = $instance->invoke_instance_method("Get1DArray")->execute();

# set array's index
$array->set_index(4, "seven")->execute();

# get array's index
my $response = $array->get_index(4)->execute();

# get value from response
my $result = $response->get_value();

# print result to console
print("$result\n");

In the snippet above, get1DArray method is used to get reference to 1D array from .NET DLL. Method setIndex is used to set element of the 1D array. First argument is index, second argument is new value.

Get size and rank of .NET DLL 1D array in Perl application

I code in:
# use activate only once in your app
Javonet->activate("your-license-key");

# create Netcore runtime context
my $called_runtime = Javonet->in_memory()->netcore();

# set up variables
my $library_path = "${resources_directory}/TestClass.dll";
my $class_name = "TestClass.TestClass";

# load Netcore custom library
$called_runtime->load_library($library_path);

# get type from the runtime
my $called_runtime_type = $called_runtime->get_type($class_name)->execute();

# create type's instance
my $instance = $called_runtime_type->create_instance()->execute();

# invoke instance's method
my $array = $instance->invoke_instance_method("Get1DArray")->execute();

# get array's size
my $response = $array->get_size()->execute();

# get value from response
my $result = $response->get_value();

# print result to console
print("$result\n");

In the snippet above, get1DArray method is used to get reference to 1D array from .NET DLL. Method getSize is used to get number of elements of the array.

The same operation can be performed remotely by just changing the new Runtime Context invocation from in memory to tcp that will create and interact with your .NET DLL objects on any remote node, container or service that hosts Javonet Code Gateway. This way you can preserve the same logic in your application and instantly switch between monolithic and microservices architecture without the need to implement the integration layer based on web services or other remote invocation methods.

Read more about use cases and software architecture scenarios where Javonet runtime bridging technology can support your development process.

Additional references