Alan Grow acg

## netcat-poop.txt
$ grep -iHn poop netcat.c

netcat.c:94:struct host_poop {
netcat.c:99:#define HINF struct host_poop
netcat.c:101:struct port_poop {
netcat.c:106:#define PINF struct port_poop
netcat.c:143:HINF ** gates = NULL;		/* LSRR hop hostpoop */
netcat.c:149:PINF * portpoop = NULL;		/* for getportpoop / getservby* */
netcat.c:299:   cross-check the host_poop we have so far against new gethostby*() info,
netcat.c:303:int comparehosts (poop, hp)

## tcplisten
#!/usr/bin/env python

import sys
import os
import socket

port = sys.argv.pop(0)
host = sys.argv.pop(0)
port = int(sys.argv.pop(0))
s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)

## unixlisten
#!/usr/bin/env python
'''
Like unixserver(1), but just listen and exec the subordinate program
with the listening socket as stdin. The subordinate program still needs
to call accept(2) on stdin.
'''

import sys
import os
import socket

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                acg
                / keybase.md
            
            
              Created
              March 24, 2016 03:29
            
          
    Keybase proof

I hereby claim:

I am acg on github.
I am acg (https://keybase.io/acg) on keybase.
I have a public key ASDACiSbpawajMuFGCDc4pEUrKZlmefyKLfRtsZ7XmZp7wo

To claim this, I am signing this object:

  
## spam.js
var slothful = 0;

String.prototype.hotels = function () {
    return this.replace("U","S").replace(":",".");
};
var tatata = "S";
String.prototype.hotels2 = function () {
    return this.replace("R","c").replace("+","t").replace("3","veX");
};
var lll = +!![];

## poop-sierpinksi.html

<html>
<head>
<style lang="text/css">

body {
  margin: 0;
  padding: 0;
}

## tsv2csv
#!/usr/bin/env perl

use Text::CSV;
use Getopt::Long   qw/ GetOptionsFromArray :config pass_through /;
use warnings;
use strict;

my $usage = "usage: $0 [-e] < file.tsv\n";

exit main( @ARGV );

## csv2tsv
#!/usr/bin/env perl

use Text::CSV;
use Getopt::Long   qw/ GetOptionsFromArray :config pass_through /;
use warnings;
use strict;

my $usage = "usage: $0 [-e] < file.csv\n";

exit main( @ARGV );

## delete-old-s3-markers.sh
#!/bin/sh

set -e

BUCKET="$1" ; shift
BATCH_SIZE=100

aws s3api list-object-versions --bucket "$BUCKET" |
jq '[.DeleteMarkers[] | {Key, VersionId}]' |
jq -c "_nwise($BATCH_SIZE) | {Objects:., Quiet:false}" |

## delete-old-s3-versions.sh
#!/bin/sh

set -e

BUCKET="$1" ; shift
BATCH_SIZE=100

aws s3api list-object-versions --bucket "$BUCKET" |
jq '[.Versions[] | select(.IsLatest == false) | {Key, VersionId}]' |
jq -c "_nwise($BATCH_SIZE) | {Objects:., Quiet:false}" |
	$ grep -iHn poop netcat.c

	netcat.c:94:struct host_poop {
	netcat.c:99:#define HINF struct host_poop
	netcat.c:101:struct port_poop {
	netcat.c:106:#define PINF struct port_poop
	netcat.c:143:HINF ** gates = NULL; /* LSRR hop hostpoop */
	netcat.c:149:PINF * portpoop = NULL; /* for getportpoop / getservby* */
	netcat.c:299: cross-check the host_poop we have so far against new gethostby*() info,
	netcat.c:303:int comparehosts (poop, hp)
	#!/usr/bin/env python

	import sys
	import os
	import socket

	port = sys.argv.pop(0)
	host = sys.argv.pop(0)
	port = int(sys.argv.pop(0))
	s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
	#!/usr/bin/env python
	'''
	Like unixserver(1), but just listen and exec the subordinate program
	with the listening socket as stdin. The subordinate program still needs
	to call accept(2) on stdin.
	'''

	import sys
	import os
	import socket
	var slothful = 0;

	String.prototype.hotels = function () {
	return this.replace("U","S").replace(":",".");
	};
	var tatata = "S";
	String.prototype.hotels2 = function () {
	return this.replace("R","c").replace("+","t").replace("3","veX");
	};
	var lll = +!![];

	<html>
	<head>
	<style lang="text/css">

	body {
	margin: 0;
	padding: 0;
	}
	#!/usr/bin/env perl

	use Text::CSV;
	use Getopt::Long qw/ GetOptionsFromArray :config pass_through /;
	use warnings;
	use strict;

	my $usage = "usage: $0 [-e] < file.tsv\n";

	exit main( @ARGV );