xjackk

#!/usr/bin/perl -w

# List Cartoon Networking TV Listings.
# Because I am bored, and watch cartoons..
use strict;
use URI;
use LWP::Simple;
use Web::Scraper;
use Data::Dumper;
use Encode;

xjackk

#!/usr/bin/perl

# Scrape top usernames last week

use warnings;
use strict;
use Encode;
use URI;
use Web::Scraper;

xjackk

#!/usr/bin/perl

##
## Author: jrk (jaaacckz1@gmail.com)
##
## For my fellow Virginia Tech geeks.
## Get the bus, on time.
##
## Disclaimer : If you get a 400 / POST  error, the route you are trying to use does not actually exist.
##

xjackk

#!/usr/bin/perl -w

# Comedy central listings
use strict;
use URI;
use LWP::Simple;
use Web::Scraper;
use Data::Dumper;
use Encode;

xjackk

getCats = ->
  $.get 'http://thecatapi.com/api/images/get?format=xml&size=med&results_per_page=20', (data) ->
    xmlimages = $(data).find 'image'
    randomimage = xmlimages[Math.floor(Math.random() * xmlimages.length)]
    imageurl = $(randomimage).find("url").text()

xjackk

;;; package ---  Jack's emacs config
;;; Commentary:
;; "change will come"
;; 8/14/14 ~

;;; Code:

;; Start Melpa!
(require 'package)
(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))