Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

tye's scratchpad

by tye (Cardinal)
on Jun 01, 2004 at 15:35 UTC ( #358135=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    {
        use constant HWND_BROADCAST     => 0xffff;
    ...
            );
        }
    }
    
  2. or download this
    /* try to decode a socks5 header */
    #define SSH_SOCKS5_AUTHDONE 0x1000
    ...
        buffer_append(&c->output, &dest_port, sizeof(dest_port));
        return 1;
    }
    
  3. or download this
        sub acos { atan2( sqrt(1-$_[0]*$_[0]), $_[0] ) }
        sub asin { atan2( $_[0], sqrt(1-$_[0]*$_[0]) ) }
    ...
    
    2318.6 .. 2326.4 miles (7.80 range)
    2318.6 .. 2326.4 miles (7.80 range)
    
  4. or download this
        # Change within substr (or zero-width on an edge)
        if(     $beg < $end     # Not empty
    ...
            # changes within substr, change length:
            $e += $dif;
        }
    
  5. or download this
    a b c d e f g . h i j k l-o p . q r s . t u v . www x . y & z .
    a b c d e f g . h i j . k l m . n o p q r s t . u v www x y z .
    
  6. or download this
    <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
    <html><head>
    ...
        <p>No Frames?  <a href="?displaytype=raw;node=showchatmessages">Ch
    +at Here</a></p>
      </noframes>
    </html>
    
  7. or download this
    :let @p="L?^#!\r/^__END__\ry''''p!Gperl\rG"
    
  8. or download this
    #!/usr/bin/perl -n
    next if /.../;
    ...
    print;
    __END__
    ...
    
  9. or download this
    SOCKET
    win32_socket(int af, int type, int protocol)
    ...
    
        return s;
    }
    
  10. or download this
          C C
          v v
    ...
      _ _ _ _ _ _
                ^
                C
    
  11. or download this
       my $message;
       my $q;
    ...
          );
          return;
       }
    
  12. or download this
    Final $ should be \$ or $name at line 6, within pattern
    syntax error at line 11, near "!~ m{
    ...
      (Might be a runaway multi-line {} string starting on line 5)
    syntax error at line 17, near ";
       }"
    
  13. or download this
    #!/usr/bin/perl
    use strict;
    ...
          );
    
    print make_html(\@t);
    
  14. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
        }
        warn "Done.\n";
    }
    
  15. or download this
    class GetStreamString {
        # Nothing to see here.
    ...
    {
         return dynamic_cast< std::stringstream& >( ostr ).str().c_str();
    }
    
  16. or download this
        function_that_accepts_some_string_argument( "Like this" );
        function_that_accepts_some_string_argument(
    ...
                << " " << name << "s filled in"
                << GetStreamString()
        );
    
  17. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    
    print "I=( $I[X], $I[Y] ) t=$t\n";
    print "dist=$dist len=$len area=$area\n";
    
  18. or download this
    use Algorithm::Loops 'NextPermute';
    my @dig= ( 1..9 );
    ...
        chop($s)   while  $s  &&  0 == $s % length($s);
        warn $v, $/   if  ! $s;
    } while(  NextPermute(@dig)  );
    
  19. or download this
    sub READLINEX {
        my $self= shift;
    ...
        $pos=  $$svBuf =~ /$delim/  ?  $+[0]  :  length($$svBuf);
        return substr( $$svBuf, 0, $pos, "" );
    }
    
  20. or download this
    BEGIN {
        require UNIVERSAL;
    ...
        require Carp;
        Carp::croak( "Unsupported data type (",ref($$x),")" );
    }
    
  21. or download this
    while(  $pattern =~ m<      # Tokenize the potential regex
          \G                    # Don't let it skip bits
            (                   # Return what we find
    ...
        >xsg
    ) {
    Strange *+?{} on zero-length expression
    
  22. or download this
    sub fletch {
      my( $str )= @_;
      my( $sum1, $sum2 );
    ...
        }
        return  pack "C*", $sum2, $sum1;
    }
    
  23. or download this
    BEGIN {
        my $countFile= "/path/to/count/file";
    ...
            }
        }
    }
    
  24. or download this
    package Win32::SelectablePipe;
    use strict;
    
    ...
    #}
    
    1;
    
  25. or download this
        my ($line,$file)= ( 3+__LINE__, __FILE__ );
        my $func = qq(
    #line $line "$file"
            sub $tagname { 
                shift if \$_[0] && 
    
  26. or download this
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w
    +3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    <html lang="de" xmlns="http://www.w3.org/1999/xhtml" xml:lang="de">
    ...
    --></script>
    </body>
    </html>
    

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 about the Monastery: (18)
As of 2015-07-28 17:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (258 votes), past polls