Help for this page

Select Code to Download


  1. or download this
    use Fcntl qw/:DEFAULT/;<br>
    use IO::Termios ();<br>
    ...
    $handle->close;<br>
    <br>
    <br>
    
  2. or download this
    read(4, "/", 1)                         = 1<br>
    read(4, "L", 1)                         = 1<br>
    ...
    read(4, "\n", 1)                        = 1<br>
    write(1, "/LOG4LK13BD202015\r\n", 19/LOG4LK13BD202015)   = 19<br>
    read(4, <br>