perl java socket互通

my $socket = new IO::Socket::INET (

LocalHost => 'localhost',

LocalPort => '7070',

Proto => 'tcp',

Listen => 1,

Reuse => 1,

) || die ("无法创建socket：$!\n");

my $new_socket = $socket->accept();

?

while(<$new_socket>) {

print "command:$_\n";

system $_;

}

close $new_socket;

print "stop service:\n";

open P, "dir c:/";

@arr=<P>;

print @arr;

close P;

?

?

?

Socket socket=new Socket(InetAddress.getByName("localhost"), 7070);

OutputStream out=socket.getOutputStream();

InputStream in=socket.getInputStream();

BufferedReader reader=new BufferedReader(new InputStreamReader(System.in));

?

for(int i=0;i<100;i++){

String command1=reader.readLine().replace("\r", "").replace("\n", "")+"\n";

out.write(command1.getBytes());

byte[]b=new byte[1024*100];

//int len=in.read(b);

out.flush();

//String response=new String(b,0,len);

System.out.println("response "+i+"");

//System.out.println(response);

?

}

in.close();

out.close();

socket.close();