- or download this
{
use constant HWND_BROADCAST => 0xffff;
...
);
}
}
- 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;
}
- 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)
- or download this
# Change within substr (or zero-width on an edge)
if( $beg < $end # Not empty
...
# changes within substr, change length:
$e += $dif;
}
- 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 .
- 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>
- or download this
:let @p="L?^#!\r/^__END__\ry''''p!Gperl\rG"
- or download this
#!/usr/bin/perl -n
next if /.../;
...
print;
__END__
...
- or download this
SOCKET
win32_socket(int af, int type, int protocol)
...
return s;
}
- or download this
C C
v v
...
_ _ _ _ _ _
^
C
- or download this
my $message;
my $q;
...
);
return;
}
- 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 ";
}"
- or download this
#!/usr/bin/perl
use strict;
...
);
print make_html(\@t);
- or download this
#!/usr/bin/perl -w
use strict;
...
}
warn "Done.\n";
}
- or download this
class GetStreamString {
# Nothing to see here.
...
{
return dynamic_cast< std::stringstream& >( ostr ).str().c_str();
}
- or download this
function_that_accepts_some_string_argument( "Like this" );
function_that_accepts_some_string_argument(
...
<< " " << name << "s filled in"
<< GetStreamString()
);
- 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";
- 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) );
- or download this
sub READLINEX {
my $self= shift;
...
$pos= $$svBuf =~ /$delim/ ? $+[0] : length($$svBuf);
return substr( $$svBuf, 0, $pos, "" );
}
- or download this
BEGIN {
require UNIVERSAL;
...
require Carp;
Carp::croak( "Unsupported data type (",ref($$x),")" );
}
- 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
- or download this
sub fletch {
my( $str )= @_;
my( $sum1, $sum2 );
...
}
return pack "C*", $sum2, $sum1;
}
- or download this
BEGIN {
my $countFile= "/path/to/count/file";
...
}
}
}
- or download this
package Win32::SelectablePipe;
use strict;
...
#}
1;
- or download this
my ($line,$file)= ( 3+__LINE__, __FILE__ );
my $func = qq(
#line $line "$file"
sub $tagname {
shift if \$_[0] &&
- 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>