ericychoi

#!/bin/sh -e

# usage: ./tcp-proxy.sh 8080 tweakers.net 80
# script written by
# https://notes.tweakblogs.net/blog/7955/using-netcat-to-build-a-simple-tcp-proxy-in-linux.html

if [ $# != 3 ]
then
    echo "usage: $0 <src-port> <dst-host> <dst-port>"
    exit 0

ericychoi

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark;

print "Perl version $]\n";

my %subs;

ericychoi

#!/opt/perl/bin/perl

use strict;
use warnings;

use Benchmark;

# Perl version 5.010001
#                Rate 10^4 keys 10^3 keys 10^5 keys 10^1 keys 10^2 keys
# 10^4 keys 2429401/s        --       -0%       -1%       -2%       -2%

ericychoi

<?xml version="1.0"?>
<root>
  <item>
    <identifier>private.button_4_next_space</identifier>
    <name>Mouse buttons to move spaces</name>
    <appendix>Mouse button 4 to next space</appendix>
    <autogen>
      __KeyToKey__
      PointingButton::BUTTON4,
      KeyCode::CURSOR_RIGHT, ModifierFlag::COMMAND_L | ModifierFlag::CONTROL_L

ericychoi

package Async;

use warnings;
use strict;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
@EXPORT_OK = qw(waterfall);

# waterfall: executes mutliple subroutines in series, passing result from previous run to the next.