| 
    ActiveXComponent sc =
        new ActiveXComponent("ScriptControl");
    sc.setProperty("language", new Variant("PerlScript")); | 
| 
    // Construct an array with arguments to AddCode()
    Variant[] add_args = new Variant[1];
    add_args[0] = new Variant("use LWP::Simple;"); | 
| 
    Variant html = sc.invoke("AddCode", add_args); | 
| 
    // Construct an array with arguments to Run()
    Variant[] get_args = new Variant[2];
    get_args[0] = new Variant("get");
    get_args[1] = new Variant("http://localhost/PerlInside/README"); | 
| 
    Variant text = sc.invoke("Run", get_args); | 
| 
    System.out.println(text); | 
| Forward to Perl Resources Back to MS Java/Script Control Up to PerlInside section index Up to Perl Inside course index | Perl Inside: PerlInside - 45 
Copyright © 1999, Brian Jepson
 |