Skip to content

Instantly share code, notes, and snippets.

View zmughal's full-sized avatar
🌿
fiddling with attribute grammars.

Zaki Mughal [sivoais] zmughal

🌿
fiddling with attribute grammars.
View GitHub Profile
@zmughal
zmughal / fb-ticker-htmlunit-test.pl
Created July 26, 2012 04:50
Use WWW::HtmlUnit to get Facebook ticker
#!/usr/bin/perl
use strict;
no warnings;# "recursion";
use WWW::HtmlUnit::Sweet;
use YAML qw/LoadFile/;
use File::HomeDir;
use File::Spec;
#!/bin/sh
LINKURL="http://techinfo.honda.com/rjanisis/pubs/OM/AC9595/AC9595MAINIDX.pdf"
BASEURL="http://techinfo.honda.com/rjanisis/pubs/OM/AC9595/"
mkdir download-pdf 2> /dev/null
cd download-pdf
wget "$LINKURL"
mkdir PDF 2> /dev/null
while `ls *.pdf 2>&1 >/dev/null`; do
PDFs_INDONE=`wc -l DONE.list | cut -d' ' -f1`
PDFs_INDIR=`ls *.pdf|wc -l`
@zmughal
zmughal / README
Created October 16, 2012 03:22
Graph Dropbox spacerace for UH
set environment variables
DB_USER = your e-mail for dropbox
DB_PASS = your password for dropbox
UP = where to upload the file via SCP.
watch -n 30 sh plot.sh
@zmughal
zmughal / do-not-disturb-my-circles.pl
Created October 17, 2012 04:16
CougarCS calendar 2013
#!/usr/bin/env perl
# Licensed under ISC license
# Copyright (c) 2012
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
#!/usr/bin/env perl
use strict;
use warnings;
use Text::Autoformat;
use File::Which;
$/ = '';
my $WIDTH = 72;
which('figlet') && which('boxes') or die '{figlet,boxes} programs required';
alias ..='up'
# <http://orangesplotch.com/bash-going-up/>
# Go up directory tree X number of directories
function up() {
COUNTER="$@";
END_OLDPWD="$PWD"
# default $COUNTER to 1 if it isn't already set
if [[ -z $COUNTER ]]; then
COUNTER=1
fi
package Data::Printer::Filter::PDL::Color;
use strict;
use warnings;
use Data::Printer::Filter;
use Term::ANSIColor;
# modified from <https://gist.github.com/2990606>
filter 'PDL', \&pdl_filter;
filter 'PDL::Char', \&pdl_filter; # TODO this does not seem to work
D.1 Latin Character Set and Encodings
CHAR NAME CHAR CODE (OCTAL)
STD MAC WIN PDF
A A 101 101 101 101
Æ AE 341 256 306 306
Á Aacute — 347 301 301
 Acircumflex — 345 302 302
Ä Adieresis — 200 304 304
#!/bin/bash
#Linux Spotify Ad Mute v2
#Put this script in the directory the "spotify" binary is in (e.g. /usr/share/spotify).
#To open Spotify, run it instead of the "spotify" binary.
#System sound will be muted as soon as an ad plays
#Find updated versions at: http://pcworldsoftware.kilu.net/files/link_spotify-admute.php and/or https://gist.github.com/pcworld
#On Debian, you need the package "pulseaudio-utils" for the command line util "pactl" which used in this script
#
#Copyright (c) 2012, "pcworld", [email protected]
multitail --mark-change \
-cS rsstail -l "rsstail -n 1 -z -l -d -u 'http://search.cpan.org/uploads.rdf'" \
-cS rsstail -L "rsstail -n 1 -z -l -d -u 'https://pypi.python.org/pypi?:action=rss'" \
-cS rsstail -L "rsstail -n 1 -z -l -d -u 'https://packagist.org/feeds/releases.rss'" \
-cS rsstail -L "rsstail -n 1 -z -l -d -u 'https://api.twitter.com/1/statuses/user_timeline.rss?screen_name=rubygems'" \
-cS rsstail -L "rsstail -n 1 -z -l -d -u 'https://api.twitter.com/1/statuses/user_timeline.rss?screen_name=CRANberriesFeed'" \
-cS rsstail -L "rsstail -n 1 -z -l -d -u 'http://www.mail-archive.com/[email protected]/maillist.xml'" \
-cS rsstail -L "rsstail -n 1 -z -l -u 'http://registry.npmjs.org/-/rss?descending=true&limit=50'"
# CRAN via <https://stat.ethz.ch/pipermail/r-packages/2007/000831.html>, <http://dirk.eddelbuettel.com/blog/2011/11/27/>