jzawodn

#!/usr/bin/perl -w
use strict;

use Event::Lib;
use Data::Dumper;

use MysqlAsync;
use AsyncCaller qw/schedule/;

$Data::Dumper::Terse = 1;

jzawodn

#!/bin/bash

FAIL=0

echo "starting"

./sleeper 2 0 &
./sleeper 2 1 &
./sleeper 3 0 &
./sleeper 2 0 &

jzawodn

#!/bin/bash

FAIL=0

echo "starting"

./sleeper 2 0 &
./sleeper 2 1 &
./sleeper 3 0 &
./sleeper 2 0 &

jzawodn

#!/usr/bin/perl -w

use strict;

my $time = $ARGV[0] || 1;
my $exit = $ARGV[1] || 0;

sleep $time;
exit  $exit;

jzawodn

#!/bin/bash

T_USER=twitter_username
T_PASS=twitter_password
T_URL=http://twitter.com/statuses/update.xml

cd $HOME

LAST_IP=`cat .last_ip`
IP=`curl -s -o - http://jeremy.zawodny.com/ip.php`

jzawodn

<? echo $_SERVER['REMOTE_ADDR'] ?>

jzawodn

#!/usr/bin/perl -w
$|++;

use strict;
use Redis;

my $r = Redis->new(server => 'localhost:63790') or die "$!";

for my $key (1..100_000_000) {
	my $val = int(rand($key));

jzawodn

#!/usr/bin/perl -w
$|++;

use strict;
use lib 'perl-Redis/lib';
use Redis;

my $r = Redis->new(server => 'localhost:63790') or die "$!";

## 2.5B values

jzawodn

#!/usr/bin/perl -w
$|=1;
use strict;
use lib '/home/jzawodn/code/AnyEvent-Redis/lib';
use AnyEvent::Redis;

my $host = 'localhost';
my $port = 6379;
my $key  = 'foo';

jzawodn

#!/usr/bin/perl -w
$|=1;
use strict;
use lib '/home/jzawodn/code/AnyEvent-Redis/lib';
use AnyEvent::Redis;

my $host = 'localhost';
my $port = 6379;
my @chan = 'a'..'z';       # which queues/channels to check
my $command_timeout = 1;   # how long to wait for a response