Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

svenXY's scratchpad

by svenXY (Deacon)
on Jul 08, 2005 at 12:57 UTC ( #473396=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w                                                  
                            
    ...
            }
            $SIG{CHLD} = \&REAPER;  # still loathe sysV
    }
    
  2. or download this
    #!/usr/bin/env perl
    use strict;
    ...
    while ( <$remote> ) { print;last; }
    close $remote;
    print "Socket gone, exiting\n";
    
  3. or download this
    Parent 28877: Server up
    Parent 28877 after forking
    ...
    Child 28949: Sent READY, closing
    Parent 28877: Reaped 28949
    Parent 28877: Should never get here
    
  4. or download this
    use Win32::Console::ANSI;
    $|=1;
    ...
      print "\e[s$_";    # store pos, print output
      sleep 3;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2021-12-06 19:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (33 votes). Check out past polls.

    Notices?