windytan

open(S,"sox salakalastaja.wav -t .raw -e signed -|");
open(U,"|sox -b 16 -c 1 -e signed -t .raw -r 44100 ".
       "- ssb.wav sinc 6000 -n 4096");

while(not eof(S)) {
  read(S,$a,2);
  print U pack("s",unpack("s",$a) *
          cos(($n++ * 2 * 3.141592653589793 * 6000) / 44100);
}

windytan

$prevbit = 0;
$n=0;
for (qx!cat ddtaa.asc!) {
  chomp($a = $_);
  if ($n >= 2300) {
    if (($n - 2300) % 80 == 0) {
      $bit = ($a > 0) ? 1 : 0;
      print (($bit != $prevbit) ? "1" : "0");
      $prevbit = $bit;
    }

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;

windytan

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

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

#!/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);
  }
}