Select Code to Download

#!/usr/bin/perl

...
my $blah = unac_string('utf-8','Spontanansökan Produktion Bjuv');

print "U: $blah\n";

unac.c:13708: unac_data0[19] & unac_positions[0][20]: 0x0053 => untouc
+hed
unac.c:13708: unac_data0[16] & unac_positions[0][17]: 0x0070 => untouc
+hed
...
unac.c:13708: unac_data0[21] & unac_positions[0][22]: 0x0075 => untouc
+hed
unac.c:13708: unac_data0[22] & unac_positions[0][23]: 0x0076 => untouc
+hed
U: Spontanansokan Produktion Bjuv

unac_string: Invalid argument
U:

sub decrement {
    my $string = shift;
    return '' unless length($string);
...
        return $ret;
    }
}

#!/usr/bin/perl

...
    print "$now_string, " . ($blarg{$window} ? $blarg{$window} : 0) . 
+"\n";
    $window += $INTERVAL;
}