zed9h

#!/usr/bin/perl -U
use strict;
select STDERR; $|=1;
select STDOUT; $|=1;

my $script = readlink($0) or $0;
my $root = $script =~ m{^.*/} ? $& : '/home/zed/bin'; # '/gw/share/mldonkey';
BEGIN { unshift @INC, "/home/zed/bin" }
use usermap;

zed9h

// http://www.dynamicflash.com/jsfl/

var doc = fl.getDocumentDOM()
var t = doc.getTimeline()

for(i=0; i < t.frameCount; i++) {
        t.currentFrame=i
        doc.selectAll()
        doc.traceBitmap(
                64,32,

zed9h

#!/bin/bash

mkdir -p site
cd site

for i in $(seq 1 99)
do
	file=$(printf list%02d.html $i)
	url="http://www.festivaldoriobr.com.br/f2005/web/seleciona_filmes2.asp?search=%25&escolha=1&aprovado=LIBERADO&id_diretor=%25&id_cinema=0&id_dia=0&id_mostra=0&page=$i"
	wget -c -O $file $url

zed9h

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<?xml-stylesheet type="text/xsl" href="zed9h-2005.xsl"?>
<xsl:stylesheet version="1.0"
                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                xmlns:bio="http://9hells.org/">

<xsl:output method="html" indent="yes" encoding="UTF-8"
 omit-xml-declaration="yes"
 doctype-public="-//W3C//DTD XHTML 1.0 Strict//EN"
 doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" />

zed9h

#!/usr/bin/perl
use strict;

my @starting_points;
my ($recycle);
my ($del_check, $checksum, $no_name, $smaller_tree, $keep_path_pattern);
my ($zip_check, $zip_sizefactor, $zip_minsize);
my ($denied_pattern, $allowed_pattern);

my %byPath;

zed9h

// ==UserScript==
// @name          GMail Wide
// @version       1
// @description   Removes the right column from the inner section
// @author 	 zed9h
// @include       http://mail.google.com/*
// @include       https://mail.google.com/*
// @include       http://*.mail.google.com/*
// @include       https://*.mail.google.com/*
// ==/UserScript==

zed9h

#!/usr/bin/perl
use strict;
use warnings;
my $VERSION=2;

# TODO append results to file (doublet-w1-w2.txt:$0 @ARGV\n...)

printf "Lewis Carroll's Doublet Automated v%d\n", $VERSION;
print "$0 @ARGV\n";

zed9h

#!/usr/bin/perl
use strict;
use Graph::Directed;
use Graph::Layout::Aesthetic;
use Graph::Layout::Aesthetic::Monitor::GnuPlot;
use Graph::Layout::Aesthetic::Topology;
our $filename = $0; $filename =~ s/\..*?$/'-'.time/e;

sub plot($)
{

zed9h

#!/usr/bin/perl
use strict;
use warnings;
use Compress::Raw::Bzip2;
use Graph::Undirected;
use Storable;
use Term::ReadLine; # Term::ReadLine::Gnu
$|=1;

my $root = 'Kevin_Bacon'; # dbpedia resource name of an actor

zed9h

#!/usr/bin/perl
use strict;
use warnings;
use Net::IMAP::Simple;
use Encode qw/encode decode/; 

my $host = 'imap.server.com'
my $login = 'carlo.caputo';
my $password = '123456';
my $delete_pattern = 'Undeliverable: (maillist|useless|automatic)';