Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
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>
    ...
       </noframes>
      </frameset>
    </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 browsing the Monastery: (10)
As of 2014-07-11 05:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (219 votes), past polls