从PERL连接AS400

Question

I want to connect to AS400 using Perl. The DBI module is not supporting it. Can you suggest any other module? What other stuffs do I need? I am working on a Linux environment.

Answer 1

In the past, in absence of dedicated driver, I interfaced Perl with AS400 via standard services like rexec and ftp.

# warn: this use clean user/passwd. Use with care
$param="call pgm(someLib/someProc) parm('someUsefulParameters')";
system("rexec -a -l asUser -p asPaswd as400ipAddress \"${param}\" 2>/dev/null >myOutput.txt");
# ...then read myOutput.txt

Answer 2

我对Perl不太了解，但是如果有一个可以通过JDBC或ODBC访问的驱动程序，则应该可以很好地进行连接。