vividsnow

#!/usr/bin/env perl
use utf8; use strict; use warnings;
use Getopt::Std 'getopt';
use HTTP::Tiny; use JSON::PP;
use IO::Uncompress::Gunzip 'gunzip';
use Socket qw'AF_UNIX SOCK_STREAM PF_UNSPEC';
use List::Util qw'min max';
use Encode::Locale;
use POSIX qw'setsid sigaction SIGHUP SA_SIGINFO';
use POSIX::SigAction;

vividsnow

#!/usr/bin/env perl
use strict; use utf8; use warnings; use autodie ':all';
use File::Temp qw'tempfile tempdir';
use Getopt::Std 'getopts';
use Cwd 'cwd';
use File::Spec::Functions qw'catfile rel2abs';

my %o = (qw'l 0:4321 -d', cwd);
getopts 'l:d:u:p:h', \%o;

vividsnow

Use of uninitialized value in substitution (s///) at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 55.
Use of uninitialized value in string eq at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 66.
Use of uninitialized value in string eq at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 66.
Use of uninitialized value in hash element at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 87.
Use of uninitialized value in string eq at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 90.
Use of uninitialized value in string eq at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 93.
Use of uninitialized value in string eq at /home/f2r/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/PocketIO/Message.pm line 93.
Use of uninitialized value in string eq at /home/f2r/perl5/

vividsnow

make sure any needed utilities are installed

sudo aptitude install debootstrap coreutils util-linux e2fsprogs

get usb device

df -h

vividsnow

(desktop-save-mode)
(add-to-list 'desktop-globals-to-save 'custom-enabled-themes)
(defun desktop-load-theme () "load custom theme" (interactive)
  (dolist (th custom-enabled-themes) (load-theme th)))
(add-hook 'desktop-after-read-hook 'desktop-load-theme)

vividsnow

use strict; use warnings;
use File::Temp qw'tempfile tempdir'; use File::Spec::Functions 'catfile';
use Symbol 'geniosym'; use Socket; use Net::EmptyPort 'empty_port'; use Getopt::Std;

my %in = (qw'h 127.0.0.1 p 5498 n 4'); getopts('p:n:', \%in);

print "torium[$$] listens $in{p}\n";

my @children;

vividsnow

sub rounded_mask {
    my ($img, $rad) = @_;
    state $ss = 4; # subsample smooth
    my $srad = int $rad*$ss;
    my $corner = Imager->new(xsize => $srad, ysize => $srad, channels => 1)
        ->arc(qw'x 0 y 0 d1 0 d2 90', r => $srad - $ss/2)
        ->scale(scalefactor => 1/$ss);
    my ($w, $h) = ($img->getwidth, $img->getheight);
    my $mask = Imager->new(xsize => $w, ysize => $h, channels => 1);
    $mask->box(box => [$rad, 0, $w - 1 - $rad, $h - 1], filled => 1);

vividsnow

# example usage: xvfb-run -a -s '-screen 0, 34x34x24' perl pdfshot.pl OUTFILE URL [ WAIT]
use v5.16;
use Gtk3 -init;
use Gtk3::WebKit;

(my $view = Gtk3::WebKit::WebView->new)->set_transparent(Glib::FALSE);
(my $window = Gtk3::OffscreenWindow->new)->add($view);
$view->signal_connect('notify::load-status' => sub { if ($view->get_uri && $view->get_load_status eq 'finished') {
    Glib::Timeout->add( $ARGV[2] // 5, sub {
        $view->get_main_frame->print_full((map {

vividsnow

# some handy modules to print things
use Data::Dump 'dd';
use DDP colored => 1, filters => { -external => [ 'PDL' ] };

dd my $h = bless { a => 1 }, 'test';
p $h

# ok - lets test scoping

say my $v = 0;

vividsnow

#!/bin/env perl
use v5.12;
use HTTP::Tiny();
use JSON::XS();
use Try::Tiny;
use HTML::Entities 'decode_entities';

my @search_words = ('#supercollider', '#sc140', '#sc', qw(
    Ndef Tdef Pbind SinOsc PMOsc LFSaw LFPulse Splay Pan2 LFNoise0 LFNoise1 LFNoise2 LFCub LFPar
    LFTri Drand Ringz Dshuf Decay2 DelayN DelayL DelayC CombC GVerb FreeVerb VarSaw DynKlank DynKlang