Help for this page

Select Code to Download


  1. or download this
    1> perl -e 'use IO::Handle; open(FH,">out"); FH->autoflush(1); 
            if(fork){
                        print FH "aaaa";     sleep 2; print FH "bbb"; 
...
               sleep 1; print FH "1111"; seek FH,0,0; print FH "4"; 
               close FH
            }'
  2. or download this
    2> perl -e 'use IO::Handle; open(FH,">out"); FH->autoflush(1); 
            if(fork){
                        print FH "aaaa";     sleep 2; print FH "bbb"; 
...
               sleep 1; print FH "1111"; seek FH,0,0; print FH "4"; 
               close FH1
            }'