theShockwaveRider's

Select

my $paddr = inet_aton($addr); croak "Cannot resolve '$addr'" if (!defined $paddr); socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp') or croak 'Cannot create socket'; connect SOCK, sockaddr_in($port, $paddr) or croak "Cannot connect to server '$server'"; send SOCK, "$query\r\n", 0; vec($rin, fileno(SOCK), 1) = 1; do { ($nfound) = select($rout = $rin, '', '', $timeout); croak 'Select() error' if ($nfound == -1); croak 'Timeout' if ($nfound == 0); croak 'Recv() error' if (!defined(recv SOCK, $buf, 512, 0)); $answer .= $buf; } while $buf ne ''; shutdown SOCK, 2;

Raw Sockets

sub sendRaw($$$) { use constant IPPROTO_RAW => 255; my ($destination, $dport, $packet) = @_; eval { socket(SOCKET, PF_INET, SOCK_RAW, IPPROTO_RAW); my $paddr = sockaddr_in($dport, inet_aton($destination)); send(SOCKET, $packet, 0, $paddr); }; if ($@) { print "Error occured: $@"; } } sub assembleRawUdp($$$$$) { my ($destination, $dport, $source, $sport, $data) = @_; ...

Tk

#!/usr/bin/perl use Tk; sub Exit { exit(0); } sub showHelp { $tl = $root->Toplevel; $tl->title("Help"); $tl->Label(-text => '(c) tswr')->pack(); } ...

Hamming Code

Source <html> <head> <title>Snippet for "Hamming code"</title> <style> body { padding: 5px; background-color: lightgoldenrodyellow } </style> <script type="text/javascript"> function copy() { var input = document.getElementById('input'); var output = document.getElementById('output'); output.value = input.value; } </script> </head> <body> <h4>Snippet for "Hamming code"</h4> <input type='text' id='input'></input> <input type='button' onclick='copy()' value='copy'></input><br> <input type='text' id='output'></input> </body> </html> Demo

IPC

alarm use Socket; eval { local $SIG{ALRM} = sub { die "time is out" }; alarm 3; socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'); connect SOCK, sockaddr_in(81, inet_aton("microsoft.com")) or die "connect failed"; alarm 0; send SOCK, "GET / HTTP/1.0\n\n", 0; print while <SOCK>; shutdown SOCK, 2; }; print "$@\n" if $@; die $warnings = 0; $SIG{__WARN__} = sub { print @_ if $warnings }; $SIG{__DIE__} = sub { print "Goodbye, my darling!\n" }; warn "i'm only warning..."; die "i'm dying..."; ...

Entropy

var message = "ananas"; var hash = new Array(); for (var i = 0; i < message.length; i++) { var char = message.charAt(i); if (typeof(hash[char]) == 'undefined') hash[char] = 1; else hash[char]++; } for (var key in hash) { WSH.Echo(key + " : " + hash[key]); }

Readfile

Третья Традиционная Школа "Управление, информация и оптимизация"

С 12 по 19 июня 2011 года в городе Ярополец на территории усадьбы Гончаровых прошла Третья Традиционная Школа “Управление, информация и оптимизация” (3ТМШ), организатором которой выступил ИПУ РАН, совместно с другими организациями. Это было невероятно яркое и запоминающееся мероприятие! Впечатления первого дня 12 июня для меня началось в 6:00, что ужасно рано. Краткие сборы, последние напутствия от семьи, путь в Кольцово - все в полудреме. Еще не отойдя ото сна, окунулся с головой в разглядывание сквозь иллюминатор невероятно завораживающих утренних пейзажей аэропорта, химмаша, а за тем и большей части Екатеринбурга. Всегда вылетайте рано утром в воскресенье в ясную погоду! Отличное начало дня гарантировано. ...

Стамбул

Аэропорт, транспорт Прилетели в Стамбул мы в аэропорт имени отца турок — Ататюрка. До центра можно добраться на метро, которое легким движением превращается в трамвай, предоставляющий первую возможность поглазеть на город. Мы заранее знали, что выгоднее купить транспортную карту, но решили, что нацелены гулять больше, чем ездить. С жетонами в итоге мы просчитались, зато поддержали турецкую экономику и даже одного хитрого турка, который брал деньги как за жетон, проводя всех по своей карте. ...