Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
    sysread( STDIN, $buf, 1024, length( $buf ) );
    printf "Got: '%f'\n", unpack 'd', $buf;
}
  2. or download this
    #! perl -sw
use strict;
...
    syswrite( STDOUT, $packet );
    sleep 30;
}
  3. or download this
    C:\test>sender | listener
Got: '1423634772.508475'
...
Got: '1423634832.504635'
Terminating on signal SIGINT(2)
Terminating on signal SIGINT(2)