bentglasstube

#!/usr/bin/env perl

use 5.010;

use strict;
use warnings;

use DigitalOcean;

my $IP = '107.170.222.172';

bentglasstube

#!/usr/bin/env perl

use 5.010;

use strict;
use warnings;

use MIDI::Simple;

our $notes_per_phrase = 8;

bentglasstube

use strict;
use warnings;

use vars qw($VERSION %IRSSI);

$VERSION = '1.0';
%IRSSI   = (
  authors     => 'Alan Berndt',
  contact     => 'alan@eatabrick.org',
  description => 'Automatically opens links for lazy turds',

bentglasstube

BITSIZE=4096
FILE=eatabrick.org

all: $(FILE).pem $(FILE).key dhparam.pem
	chown http:http $(FILE).*
	chmod 600 $(FILE).key

$(FILE).pem: $(FILE).csr intermediate.pem
	@echo "Copy and paste the following into your CA:"
	@cat $(FILE).csr

bentglasstube

#!/bin/sh
FILE="$HOME/Dropbox/passwords.gpg"

quiet=""
output=""

while getopts hqo opt
do
  case $opt in
    q) quiet="y" ;;

bentglasstube

BITSIZE=4096
FILE=server

$(FILE).crt: $(FILE).csr
	@echo "Copy and paste the following into your CA:"
	@cat $(FILE).csr
	@echo "Paste the certificate from your CA here (^D to finish):"
	@cat >$(FILE).crt
	rm $(FILE).csr

bentglasstube

use Irssi;
use strict;
use FileHandle;

use vars qw($VERSION %IRSSI);

$VERSION = "1.0";
%IRSSI = (
    authors     => 'Alan Berndt <alan@eatabrick.org>',
    name        => 'auto_away',

bentglasstube

<TaskerData sr="" dvi="1" tv="4.1u3m">
	<Profile sr="prof6" ve="2">
		<cdate>1371538376764</cdate>
		<clp>true</clp>
		<edate>1371851913695</edate>
		<id>6</id>
		<mid0>5</mid0>
		<mid1>8</mid1>
		<nme>Home</nme>
		<State sr="con0">

bentglasstube

John Holleran: How do I do "Q1 performance (70), refueling 20, pax 20" to "(70),20,20”

It really depends on what the whole data looks like not just one line, but I'll give it a shot.  I have no idea how (un)familiar you are with regular expressions so I will assume you know nothing to err on the side of overexplanation.

As a warning, these are perl regular expressions.  Whatever you are using has a different (and shittier) regex engine than perl does so some things might be a little bit different for you.  If you tell me what language you are using, I might know more about its particular engine.  If you tell me it is something that costs money like Oracle DB regex you are on your own, sorry.

Assuming that the text is mostly the same you could do something like

  ^Q[1-4] performance (\(\d+\)), refueling (\d+), pax (\d+)$

bentglasstube

#showtooltip 3 3
/cleartarget
/tar tilled soil
/use [exists] 3 3; master plow