creaktive

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use DateTime;

my $year = $ARGV[0] || DateTime->now->year;

for (
    my ($here, $there) = map {

creaktive

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

my $schema;
my $table;
while (my $line = <>) {
    my @csv = ();
    if ($line =~ m{^ CREATE \s+ TABLE \s+ `(?<table> \w+)`}ox) {

creaktive

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use Data::Dumper;
use IPC::Run qw(start pump);
use JSON::XS;
use Net::GPSD3;

my $gpsd_host = '127.0.0.1';

creaktive

1000    北海
1008    社会
1053    海道
1110    現在
1117    場合
1123    利用
1124    体人
1125    世界
1135    大学
1144    都市

creaktive

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use IO::Socket;
use IPC::Run qw(harness pump);

my @command = ('cat');
my ($in, $out, $err);
my $h = harness \@command, \$in, \$out, \$err;

creaktive

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Carp qw(croak);
use Fcntl qw(:DEFAULT);
use List::MoreUtils qw(pairwise);
use Math::Complex;

creaktive

// to compile: gcc testrtl.c -o testrtl -lrtlsdr -lfftw3 -lm


#include <complex.h>
#include <fftw3.h>
#include <rtl-sdr.h>
#include <stdlib.h>
#include <math.h>

creaktive

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings qw(all);

use Carp qw(carp croak);
use Encode qw(decode);
use HTTP::Tiny;
use JSON::XS;

creaktive

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use Carp qw(croak);
use Fcntl qw(:DEFAULT);

unless (@ARGV) {
    print "$0 - converts rtl_sdr output to GNU Radio cfile (little-endian)\n";
    print "Usage: $0 dump1.dat dump2.dat > combined.cfile\n";

creaktive

#!/bin/sh

LOCALUSER=pi
REMOTEUSER=ogn
REMOTEHOST=charles-carroll.dreamhost.com

SSH_REMOTEPORT=22
SSH_LOCALPORT=18257

COMMAND="/usr/bin/ssh -o ServerAliveInterval=60 -o ExitOnForwardFailure=yes -f -N -R $SSH_LOCALPORT:127.0.0.1:$SSH_REMOTEPORT $REMOTEUSER@$REMOTEHOST"