Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Don Coyote's scratchpad

by Don Coyote (Monk)
on Jul 01, 2010 at 17:29 UTC ( #847567=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    
    exit 0;
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
    my $modules_need_importing++ unless my $so_do_features;
    
    exit 0;
    
  3. or download this
    # $readable_handles = Select::IO->new();
    # $readable_handles->add($server_sock);
    
      $select_object = Select::IO->new($server_sock);
    
  4. or download this
    #while(1){
    while(@readables = $select_object->can_read){
    ...
    
    
    }
    
  5. or download this
    # if( $sck eq $sock ){}
    if( $sck == $sock ){}
    
  6. or download this
                else {
    # wtf part a
    ...
         $hash{$sock} = 
            $clients[ scalar @{$select_object->can_write()} ]
    
  7. or download this
    #!/usr/bin/perl
    use utf8;
    ...
    }
    
    
  8. or download this
    #!/usr/bin/perl
    use utf8;
    ...
        
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (9)
As of 2014-12-21 14:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (106 votes), past polls