PageRenderTime 41ms CodeModel.GetById 16ms RepoModel.GetById 1ms app.codeStats 0ms

/IronPython_Main/Runtime/Tests/LinqDlrTests/testenv/perl/eg/core/client

#
Perl | 34 lines | 26 code | 7 blank | 1 comment | 11 complexity | a4639b828db44d716ac97384249537f3 MD5 | raw file
Possible License(s): GPL-2.0, MPL-2.0-no-copyleft-exception, CPL-1.0, CC-BY-SA-3.0, BSD-3-Clause, ISC, AGPL-3.0, LGPL-2.1, Apache-2.0 
    

  1. #!./perl

    2. 

  2. 

    3. 

  3. $pat = 'S n C4 x8';

    4. 

  4. $inet = 2;

    5. 

  5. $echo = 7;

    6. 

  6. $smtp = 25;

    7. 

  7. $nntp = 119;

    8. 

  8. $test = 2345;

    9. 

  9. 

    10. 

  10. $SIG{'INT'} = 'dokill';

    11. 

  11. 

    12. 

  12. $this = pack($pat,$inet,0,   128,149,13,43);

    13. 

  13. $that = pack($pat,$inet,$test,127,0,0,1);

    14. 

  14. 

    15. 

  15. if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }

    16. 

  16. if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }

    17. 

  17. if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }

    18. 

  18. 

    19. 

  19. select(S); $| = 1; select(stdout);

    20. 

  20. 

    21. 

  21. if ($child = fork) {

    22. 

  22.     while (<STDIN>) {

    23. 

  23. 	print S;

    24. 

  24.     }

    25. 

  25.     sleep 3;

    26. 

  26.     do dokill();

    27. 

  27. }

    28. 

  28. else {

    29. 

  29.     while (<S>) {

    30. 

  30. 	print;

    31. 

  31.     }

    32. 

  32. }

    33. 

  33. 

    34. 

  34. sub dokill { kill 9,$child if $child; }

    35. 

  35.