windytan

use warnings;
use DateTime;

$snum    = 0;
$writing = 0;

open OUT, "|sox -t .raw -e unsigned-integer -b 16 -r 44100 ".
          "-c 1 - stamped.wav";

while (not eof STDIN) {

windytan

#!/usr/bin/perl
# Oona Räisänen 2014
use warnings;

$fs = 48000;
$f  = 200;
$pi = 3.141592653589793238;

open(U,"|sox -t .raw -c 1 -r $fs -b 16 -e signed - sines.wav");

windytan

use warnings;

$fs = 48000;
$pi = 3.141592653589793;

open U, "|sox -t .raw -e sig -b 16 -c 1 -r $fs - numbers.wav sinc 300-4300";

dtmf ("12345567899000100100");

close U;

windytan

@namespace url(http://www.w3.org/1999/xhtml);

@-moz-document
 domain('cpan.org')
{
   html, body, tbody, tr, td, div { background-color: #232323 !important; color: #ccc !important }
   pre {
      display: block !important ; 
      background-color: #333333 !important ;
      border: #777777 solid 0.1em !important ;

windytan

#include <openssl/sha.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

int main() {
  const char target[SHA_DIGEST_LENGTH] = {
    0x69, 0xaf, 0x88, 0x1e, 0xca, 0x98, 0xb7, 0x04, 0x2f, 0x18,
    0xe9, 0x75, 0xe0, 0x0f, 0x9d, 0x49, 0xd5, 0xd5, 0xee, 0x64
  };

windytan

Keybase proof

I hereby claim:

• I am windytan on github.
• I am oona (https://keybase.io/oona) on keybase.
• I have a public key whose fingerprint is 5E58 B00C B427 8814 EE00 05ED 57BE DFA9 3BBB EDE8

To claim this, I am signing this object:

windytan

#!/usr/bin/perl
use feature "switch";

open(S,"convert bitit.png gray:-|");
for $y (0..434) {
  for $x (0..699) {
    read(S,$a,1);
    $b[int($x / 27)][int($y / 27)] ++ if (ord($a) < 127);
  }
}

windytan

use utf8;
use warnings;

@kirjaimet = ( "a" .. "z", "å", "ä", "ö" );

$alkutilanne  = "aaaaaaaaaaaaaaa";
$valintapaine = "kehitysoppi";

# Elinkelpoisuutta simuloidaan ns. Levenšteinin etäisyydellä, joka sopii esimerkkiimme
use Text::Levenshtein qw(fastdistance);

windytan

while(not eof(STDIN)) {
  read(STDIN,$a,2);
  $a = unpack("s",$a);
  print $a."\n";
}

windytan

use constant BPS   => 300;
use constant SRATE => 44100;

$dur = 0;
for (qx!cat olddata.asc!) {
  chomp($a = $_);
  if ($a * $preva < 0) {
    $nbits = int($dur / (SRATE/BPS) + .5);
    print ((($preva < 0) ? 1 : 0) x $nbits);
    $dur = 0;