robhammond

"""A simple example of Google Analytics batched user permissions."""
"""https://developers.google.com/analytics/devguides/config/mgmt/v3/user-management#batching"""

import argparse

from apiclient.discovery import build
from oauth2client.service_account import ServiceAccountCredentials

import httplib2
from oauth2client import client

robhammond

const util = require('util');

var url = 'http://localhost:3000/test'; // should be set over cli
const chrome = require('chrome-remote-interface');

function onPageLoad(Runtime) {
    const href = "document.querySelectorAll('a')";

    return Runtime.evaluate({
        expression: href

robhammond

#!/usr/bin/env perl
use strict;
use Modern::Perl;
use Mojo::UserAgent;
use Mojo::JSON qw(decode_json);
use Excel::Writer::XLSX;
use Data::Dumper;

my $in_file = 'bhm.txt';
my $output = 'bhm.xlsx';

robhammond

#!/usr/bin/env perl
use strict;
use Modern::Perl;
use Mojo::UserAgent;

# Add list of URLs into @urls array
my @urls = qw();
my $ua = Mojo::UserAgent->new;
for my $u (@urls) {
	$u =~ s!^http://!!;

robhammond

upstream myapp {
 server 127.0.0.1:8082;
}

server {
        listen 80;
        server_name example.com;

        location / {
                proxy_set_header X-Request-Base https://$host/myapp;

robhammond

#!/usr/bin/env perl
use strict;
use utf8;
use warnings qw(all);

use Modern::Perl;
use Mojo::Util qw(decode encode html_unescape xml_escape);
use Mojo::DOM;
use Mojo::Log;
use Mojo::Asset::File;

robhammond

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

robhammond

package Apis::Reddit;
use strict;
use warnings;

use Mojo::Log;
use DateTime;
use Mojo::UserAgent;
my $log = Mojo::Log->new();

sub new {

robhammond

Each of these commands will run an ad hoc http static server in your current (or specified) directory, available at http://localhost:8000. Use this power wisely.

Discussion on reddit.

Python 2.x

$ python -m SimpleHTTPServer 8000

robhammond

#!/usr/bin/env perl
use strict;
use Modern::Perl;
use Mojo::JSON qw(decode_json);

# seo-paid-visibility
my $raw = <<EOF;
{"data":{...}}
EOF