使用ec-perl

    use ElectricCommander;

    $cmdr = ElectricCommander->new({

    server      =>  "oswaldl-MSI",  

    port        =>  "8888"

    });

    $cmdr->login("admin", "changeme");

    $jobs=$cmdr->getJobs();

    print $jobs;