将列表从perl传递到Python并检查返回值

use IPC::Run qw(run);

my @list = (1, 2, 3, 4);
my @args = ('python', 'script.py', @list);

my $output;
run \@args, '>', \$output;

print "Python script output: $output\n";

import sys

list_arg = sys.argv[1]
my_list = eval(list_arg)

# 进行相应的处理
result = sum(my_list)

# 将结果返回给Perl脚本
print(result)

use IPC::Run qw(run);

my @list = (1, 2, 3, 4);
my @args = ('python', 'script.py', @list);

my $output;
run \@args, '>', \$output;

# 检查返回值并进行相应的处理
if ($? == 0) {
    print "Python script execution successful.\n";
    print "Result: $output\n";
} else {
    print "Python script execution failed.\n";
}