登录
当前位置： 首页 > 面试题库 >

尝试通过Inline :: Java模块将Java内联到Perl中

林德华
2023-03-14
问题内容：

这是我第一次在Perl中内联Java代码的尝试。我们无法在系统上使用标准的SFTP命令。这是我的力量。我们有一个可以使用的名为SFTP.jar的jar文件。我之前的上一个人可以让Inline
:: Perl正常工作，但是他的实现草率，我想对其进行清理。

我正在该H:\svn目录的Windows系统上工作。我的模块在H:\svn\FMS3目录下，而我的jar文件SFTP.jar在H:\svn\FMS3\Sftp.pm目录下。目录Sftp.pm下有一个名为的文件H:\svn\FMS3，并定义了一个名为的模块FMS3::Sftp。（我将所有自定义模块保留在FMS3父模块下）。

我在中内联了代码FMS3::Sftp，看起来好像可以编译。但是，当我尝试执行时，它要求Can't exec JVM: open3: Can't call method "close" on an undefined value at C:/Perl/lib/IPC/Open3.pm line 370。

我到底在做什么错？

该FMS3::Sftp模块：

#! /usr/bin/env perl
# Sftp.pm
########################################################################


########################################################################
# PACKAGE FMS3::Sftp
#
package FMS3::Sftp;
#
########################################################################

########################################################################
# PERL PRAGMAS
#
use strict;
use warnings;
use vars qw($PERL_CLASSPATH);
#
########################################################################

########################################################################
# CONSTANTS
#
use constant {
    FTP_SERVER => "10.85.10.190",
    FTP_USER => "fisaftp",
    FTP_PASSWORD => "Fisa123456",
};
#
########################################################################

########################################################################
# INITIALIZE
#
# Set a PERL_CLASSPATH that will include all directories in the
# @INC array. Somewhere in this array will be located our JAR file
# that we need to include, and of course, this classpath.
#
# This will be appended to the standard $CLASSPATH environment variable.
#
BEGIN {
    use Config;

    my $cpsep;
    if ($Config{osname} =~ /^mswin32/i) {
        $cpsep = ";";
    } else {
        $cpsep = ":";
    }

    $PERL_CLASSPATH = join("/FMS3/Sftp/SFTP.jar$cpsep", @INC);
    $PERL_CLASSPATH = "$PERL_CLASSPATH/FMS3/Sftp/SFTP.jar";
}
#
########################################################################

########################################################################
# 
# PERL INLINE JAVA CODE:
#
use Inline (
    Java => 'DATA',
    J2SDK => $ENV{JAVA_HOME},
    CLASSPATH => $PERL_CLASSPATH,
    STUDY => ["SFTP", "close", "list", "get", "put", "remove"],
    DEBUG => 4,
);
#
########################################################################

########################################################################
# CONSTRUCTORS
#
sub new {
    my $class = shift;
    my $server = shift;
    my $user = shift;
    my $password = shift;

    if (not $server)   { $server = FTP_SERVER;     }
    if (not $user)     { $user = FTP_USER;         }
    if (not $password) { $password = FTP_PASSWORD; }

    my $self = {};
    bless($self, $class);

    eval {$self->{CONNECTION} = new SFTP($server, $user, $password);};

    if ($@) {
        $self->{ERROR} = $@;
        return;
    }

    return $self;
}
#
########################################################################

########################################################################
# DESTRUCTOR (Automatic close on losing $self)
#
sub DESTROY {
    my $self = shift;

    $self->{CONNECTION}->close();

    return 1;
}
#
########################################################################

########################################################################
#  List
#
sub List {
    my $self = shift;
    my $location = shift;

    my @list;

    eval {@list = $self->{CONNECTION}->list($location);};

    if ($@) {
        $self->{ERROR} = $@;
        return;
    }

    return @list;
}
#
########################################################################

########################################################################
# Get
#
sub Get {
    my $self = shift;
    my $file = shift;
    my $location = shift;

    eval {$self->{CONNECTION}->get($file, $location);};

    if ($@) {
        $self->{ERROR} = $@;
        return;
    }
    return 1;
}
#
########################################################################

########################################################################
# Put
#
sub Put {
    my $self = shift;
    my $file = shift;
    my $location = shift;
    my $mode = shift;

    eval {$self->{CONNECTION}->put($file, $location, $mode);};

    if ($@) {
        $self->{ERROR} = $@;
        return;
    }
    return 1;
}
#
########################################################################

########################################################################
# Remove
#
sub Remove {
    my $self = shift;
    my $file = shift;

    eval {$self->{CONNECTION}->remove($file);};

    if ($@) {
        $self->{ERROR} = $@;
        return;
    }
    return 1;
}
#
########################################################################

########################################################################
# Error
#
sub Error {
    my $self = shift;

    return $self->{ERROR};
}
#
########################################################################
1;
__DATA__
__Java__
import com.trilead.ssh2.*;
import java.io.IOException;
import java.util.*;

public class SFTP {

    ConnectionInfo ci;
    SCPClient sftp=null;
    SFTPv3Client sftpv3=null;
    Connection conn=null;

    public SFTP(String host, String username, String password) {
        boolean b=false;       
        conn= new Connection(host);

        try {
            ci=conn.connect();
            b=conn.authenticateWithPassword(username,password);

            if (!b) {
                System.out.println("Invalid login.");
                System.exit(0);
            }

            sftp = new SCPClient( conn );
            sftpv3 = new SFTPv3Client (conn);

        } catch (IOException e) {
            System.out.println("Unable to connect"+": "+e.getMessage());
        }
    }

    public void close()
    {
        conn.close();
    }

    public String[] list (String loc)
    {
        Vector v=null;
        SFTPv3DirectoryEntry x=null;
        try 
        {
            v = sftpv3.ls(loc);
        } catch (IOException e) {
            System.out.println("Pickup location does not exist, please check!"); 
            String[] value = new String[1];
            return value;
        }

        String[] s=new String[v.size()];
        for (int i=0; i<v.size(); i++) {
            x = (SFTPv3DirectoryEntry)v.elementAt(i);
            s[i]=x.filename;
        }
        return s;
    }

    public void get (String file, String loc)
    {
        try{
            sftp.get(file,loc);
        } catch (IOException e) {
            System.out.println("Unable to download, please check location or file permissions");
        }        
    }

    public void put (String file, String loc, String mode)
    {
        try{
            sftp.put(file,loc,mode);
        } catch (IOException e) {
            System.out.println("Unable to put"+": "+e.getMessage());
        }
    }

    public void remove (String file)
    {
        try{
            sftpv3.rm(file);
        } catch (IOException e) {
            System.out.println("Unable to remove"+": "+e.getMessage());
        }
    }
}

我有一个名为test.pl的测试程序，它看起来像这样：

use FMS3::Sftp;
my $ftp = FMS3::Sftp->new();
print $ftp->List(".");

我要做的就是连接到我们的服务器并创建目录列表。但是，尝试运行时出现类路径错误test.pl

[perl][1] validate done.
[perl][1] Starting build.
[perl][4]    portable: ENV_VAR_PATH_SEP_CP for MSWin32 is ';'
[perl][4]    portable: SUB_FIX_JAVA_PATH => H:\svn for MSWin32 is default 'H:\svn'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\bin for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\bin'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\Program Files\Rational\ClearQuest\cqjni.jar for MSWin32 is default 'D:\Program Files\Rational\ClearQuest\cqjni.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => C:\Perl\site\lib\Inline\Java\InlineJavaServer.jar for MSWin32 is default 'C:\Perl\site\lib\Inline\Java\InlineJavaServer.jar'
[perl][2]  classpath candidate 'C:/Perl/site/lib/FMS3/Sftp/SFTP.jar' scraped
[perl][2]  classpath candidate 'C:/Perl/lib/FMS3/Sftp/SFTP.jar' scraped
[perl][4]    portable: SUB_FIX_JAVA_PATH => H:\svn\FMS3\Sftp\SFTP.jar for MSWin32 is default 'H:\svn\FMS3\Sftp\SFTP.jar'
[perl][2]  classpath: H:\svn;D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip;D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar;D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip;D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar;D:\PROGRA~1\IBM\SQLLIB~1\bin;D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar;D:\Program Files\Rational\ClearQuest\cqjni.jar;C:\Perl\site\lib\Inline\Java\InlineJavaServer.jar;H:\svn\FMS3\Sftp\SFTP.jar
[perl][4]    portable: J2SDK_BIN for MSWin32 is 'bin'
[perl][4]    portable: EXE_EXTENSION for MSWin32 is '.exe'
[perl][4]    portable: IO_REDIR for MSWin32 is '2>&1'
[perl][4]    portable: SUB_FIX_JAVA_PATH => H:\svn\_Inline\lib\auto\FMS3\Sftp_7ae5 for MSWin32 is default 'H:\svn\_Inline\lib\auto\FMS3\Sftp_7ae5'
[perl][4]    portable: SUB_FIX_CMD_QUOTES => "C:\Program Files\Java\jdk1.6.0_17\bin\javac.exe" -deprecation  -d "H:\svn\_Inline\lib\auto\FMS3\Sftp_7ae5" SFTP.java > cmd.out 2>&1 for MSWin32 is default '"C:\Program Files\Java\jdk1.6.0_17\bin\javac.exe" -deprecation  -d "H:\svn\_Inline\lib\auto\FMS3\Sftp_7ae5" SFTP.java > cmd.out 2>&1'
[perl][2]  "C:\Program Files\Java\jdk1.6.0_17\bin\javac.exe" -deprecation  -d "H:\svn\_Inline\lib\auto\FMS3\Sftp_7ae5" SFTP.java > cmd.out 2>&1
[perl][4]    portable: COMMAND_COM for MSWin32 is '0'
[perl][2]  classpath: .;D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip;D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar;D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip;D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar;D:\PROGRA~1\IBM\SQLLIB~1\bin;D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar;D:\Program Files\Rational\ClearQuest\cqjni.jar
[perl][1] build done.
[perl][1] Starting load.
[perl][4]    portable: ENV_VAR_PATH_SEP_CP for MSWin32 is ';'
[perl][4]    portable: SUB_FIX_JAVA_PATH => H:\svn for MSWin32 is default 'H:\svn'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\bin for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\bin'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar for MSWin32 is default 'D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => D:\Program Files\Rational\ClearQuest\cqjni.jar for MSWin32 is default 'D:\Program Files\Rational\ClearQuest\cqjni.jar'
[perl][4]    portable: SUB_FIX_JAVA_PATH => C:\Perl\site\lib\Inline\Java\InlineJavaServer.jar for MSWin32 is default 'C:\Perl\site\lib\Inline\Java\InlineJavaServer.jar'
[perl][2]  classpath: H:\svn;D:\PROGRA~1\IBM\SQLLIB~1\java\db2java.zip;D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc.jar;D:\PROGRA~1\IBM\SQLLIB~1\java\sqlj.zip;D:\PROGRA~1\IBM\SQLLIB~1\java\db2jcc_license_cu.jar;D:\PROGRA~1\IBM\SQLLIB~1\bin;D:\PROGRA~1\IBM\SQLLIB~1\java\common.jar;D:\Program Files\Rational\ClearQuest\cqjni.jar;C:\Perl\site\lib\Inline\Java\InlineJavaServer.jar
[perl][1] starting JVM...
[perl][1] client/server mode
[perl][4]    portable: GOT_NEXT_FREE_PORT for MSWin32 is '0'
[perl][4]    portable: J2SDK_BIN for MSWin32 is 'bin'
[perl][4]    portable: EXE_EXTENSION for MSWin32 is '.exe'
[perl][4]    portable: SUB_FIX_CMD_QUOTES => "C:\Program Files\Java\jdk1.6.0_17\bin\java.exe"  org.perl.inline.java.InlineJavaServer 4 localhost 7890 false false false for MSWin32 is default '"C:\Program Files\Java\jdk1.6.0_17\bin\java.exe"  org.perl.inline.java.InlineJavaServer 4 localhost 7890 false false false'
[perl][2]  "C:\Program Files\Java\jdk1.6.0_17\bin\java.exe"  org.perl.inline.java.InlineJavaServer 4 localhost 7890 false false false
[perl][4]    portable: DEV_NULL for MSWin32 is 'nul'
[perl][1] JVM owner exiting...
Can't exec JVM: open3: Can't call method "close" on an undefined value at C:/Perl/lib/IPC/Open3.pm line 370.
 at C:/Perl/site/lib/Inline/Java.pm line 484
INIT failed--call queue aborted.
[perl][1] killed by natural death.
[perl][1] exiting with 22

问题答案：

好的。我想到了。我错了几件事：

  • 在研究中，我同时拥有方法和类，但我只应具有类。

错误

use Inline (
    Java => 'DATA',
    J2SDK => $ENV{JAVA_HOME},
    CLASSPATH => $PERL_CLASSPATH,
    STUDY => ["SFTP", "close", "list", "get", "put", "remove"],
#    DEBUG => 4,
);

对

use Inline (
    Java => 'DATA',
    J2SDK => $ENV{JAVA_HOME},
    CLASSPATH => $PERL_CLASSPATH,
    STUDY => ["SFTP"],
#    DEBUG => 4,
);
  • 当我将SFTP对象声明为时new，我必须给它完整的Perl名称空间：

错误

eval {$self->{CONNECTION} = new SFTP($server, $user, $password);};

对

eval {$self->{CONNECTION} = new FMS3::Sftp::SFTP($server, $user, $password);};

您花了几个小时在这样的东西上，放弃了，然后突然间，尘土飞扬的阁楼上的灯亮了。我是一个很聪明的人。将螺丝刀插入带电的插座中，第三次或第四次之后，我说“嘿，也许这不是一个好主意”。



 类似资料：
  • 2.2 HTML 块（Block） 和 内联（Inline）

    块元素，比如： 分区（division） <div> 段落（paragraphs） <p> 列表（lists）：无序列表（unordered list with bullet points） <ul> 或 有序列表（ordered lists with numbers) <ol> 标题（headings）：从1级标题 <h1> 到6级 <h6> 文章（articles） <article> 区块（

  • 内联汇编(Inline Assembly)

    为了增强对语言的细粒度的控制，特别是在写通用库时，可以在一个语言中交错使用Solidity的语句来接近其中一个虚拟机。但由于EVM是基于栈执行的，所以有时很难定位到正确的栈槽位，从而提供正确的的参数或操作码。Solidit的内联汇编尝试解决这个问题，但也引入了其它的问题，当你通过下述特性进行手动的汇编时： 函数式的操作码：mul(1, add(2, 3))代替push1 3 push1 2 add

  • 内联函数（Inline Functions）

    C ++ inline函数是通常用于类的强大概念。 如果函数是内联函数，则编译器会在编译时调用函数的每个位置放置该函数的代码副本。 对内联函数的任何更改都可能需要重新编译函数的所有客户端，因为编译器需要再次替换所有代码，否则它将继续使用旧功能。 要内联函数，请在函数名称前面放置关键字inline ，并在对函数进行任何调用之前定义函数。 如果定义的函数超过一行，编译器可以忽略内联限定符。 类定义中的

  • 内联按钮 Inline buttons

    默认情况下，body里的所有按钮都会被样式化为块级元素，撑大到与页面等宽 但是，如果你想让按钮外观紧凑，宽度只符合里面的文字和icon，那就给按钮添加data-inline="true"的属性 内联的按钮： 如果你有多个按钮想在一行横排，可以在按钮上增加data-inline="true"的属性，这样就可以把按钮样式化为最小宽度，并且浮动，使他们在同一行横排 <div data-inline="t

  • Java Swing GUI尝试/捕获块

    问题内容： 我只是在学习Java异常处理和Java。我制作了一个Swing GUI，用户将在两个字段中输入整数，然后单击带有算术函数的单选按钮，答案将出现在第三个文本字段中。我想包含一个try / catch块，以在用户将前两个字段之一留为空白或输入除整数以外的内容时捕获异常，以及如果用户尝试将其除以零则输入第二个catch。该窗体可以正常工作，但是不会捕获错误，只能返回堆栈跟踪并使程序崩溃。我感

  • 通过IntelliJ IDEA将MySQL连接到Java

    我想通过IntelliJ IDEA把MySQL和Java连接起来。 我用的是MySQL。设置为:< br >主机:127.0.01 端口:3306 用户:root 我要使用的数据库的名称是School。 在IntelliJ中，我添加了DB Navigator，设置为： 名称学校 描述：... 主机：localhost 端口：3306 用户：root 密码：在MySQL中工作的密码 毕竟我得到了一个

相关阅读

什么是Perl模块？通过JNI将C ++字符串发送到Java将字符串串联到StringBuilder Java中通过Java SCPIntelliJ-将Java项目/模块转换为Maven项目/模块

相关文章

联通在线Java社招面经联想实习笔试(Java)（2022/4/17）数之联-线上面试-成都-Java联通数科（Java开发工程师）-11.9阿里速卖通Java面试

相关问答

尝试通过单例模式连接到MySQL数据库[重复]Java FX模块化应用程序，找不到模块(Java 11，Intellij)我正在尝试修改一个字节数组并通过JNI将其从c发送到java尝试通过Hibernate连接到Oracle时获得java.lang.NoSuchMethodErrorJava Jigsaw JUnit测试-JUnit不在模块中

相关工具

简单邮件联系页面带飞信通知模块grunt-inlineInline HTML Tooltipng-inline-svgember-inline-edit

相关文档

Java Web 从入门到精通Java 设计模式Java 设计模式Java 面试笔记Java / Android 笔试/面试/知识整理
快捷导航： 新手教程 算法原理 架构设计 Java进阶 数据库进阶 大厂专栏 面试经验 编程笔记 编程问答 所有专题 文档资料 工具软件 电子书籍 小牛导航
在线工具： 房贷计算器 个税计算器 Linux命令查询 Json格式化 正则表达式 颜色转换 AES加解密 SHA1加密 MD5加密 毒鸡汤 字数统计 随机密码生成 进制转换 Base64编解码 励志句子
Copyright © 2019-2024 小牛知识库@xnip.cn. All Rights Reserved.