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