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

#!/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

! foreground/background
URxvt.background: #161616
URxvt.foreground: #B2B2B2
! black
URxvt.color0  : #000000
URxvt.color8  : #686868
! red
URxvt.color1  : #B21818
URxvt.color9  : #FF5454
! green

creaktive

#!/bin/sh

sudo hidd --connect C4:2C:03:99:6D:53
sleep 1
sudo bash -c 'echo Y > /sys/module/hid_magicmouse/parameters/scroll_acceleration'
sudo bash -c 'echo 40 > /sys/module/hid_magicmouse/parameters/scroll_speed'

ID=`xinput list --short | grep -i 'mouse' | cut -f2 | cut -c4-`
#xinput list-props $ID
xinput --set-prop $ID "Device Accel Adaptive Deceleration" 2.0

creaktive

setw -g xterm-keys on
setw -g mode-mouse on
setw -g mode-keys vi
set -g mouse-select-pane on
set -g set-titles on
set -g history-limit 10000

set -g prefix C-a
bind-key C-a last-window

creaktive

perl '-F/\s*,\s*/' -lane 'BEGIN{$,="\t"};chomp;print @F[0,2] if $_ && !m%^/%' /home/stas/oracle/product/10.2.0/db_1/rdbms/mesg/oraus.msg

creaktive

print(unpack"B*",pack("h*",$_))

creaktive

AuthUserFile /etc/apache2/htpasswd
AuthGroupFile /dev/null
AuthName "Senha"
AuthType Basic
require valid-user
order deny,allow

creaktive

rtmpdump --host 187.45.227.58 --app oflaDemo --playpath ci101c2fa90a4ac9a8123b8d26bf0ebd0e10.mp3 -o ci101c2fa90a4ac9a8123b8d26bf0ebd0e10.mp3
ffmpeg -i ci101c2fa90a4ac9a8123b8d26bf0ebd0e10.flv -f mp3 -vn -acodec copy ci101c2fa90a4ac9a8123b8d26bf0ebd0e10.mp3

creaktive

($x,$y)=(1,1<<32);for(0..30){$_=unpack'B32',pack'N',($x<<=1)|($y>>=1);tr%01% J%;s%\s*$%\n%;print}