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();