zed9h

#!/usr/bin/perl
use strict;
use warnings;

use Math::FFTW;
use Audio::DSP;
use Time::HiRes qw(time);

my $amp = 0xffff;
my $len = 0xfff;

zed9h

#CHECK { print map { "$_\n"} keys %INC }
END { print map { "$_\n"} keys %INC }

use Gtk2::TrayIcon;
Gtk2->init;

sub evolution_empty_trash
{
	system qq{

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)';

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 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;
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

// ==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;

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

<?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

#!/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