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;
//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();
页:
[1]