Skip to content

Instantly share code, notes, and snippets.

View jose-neta's full-sized avatar

José Neta jose-neta

View GitHub Profile
@jose-neta
jose-neta / gist:5048130
Created February 27, 2013 14:06
How to mangle dates to please MySQL
#! /usr/bin/env perl
use strict;
use warnings;
# NOTE http://xkcd.com/1179/
my $d = '02-05-2012 15:50:23'; # => 2012-05-02 15:50:23
my ( $date, $time ) = split( ' ', $d );
@jose-neta
jose-neta / STDIN reading with Node.js
Last active December 21, 2015 15:19
Reading STDIN with Node.js
jpn $ # What will the script do
jpn $ cat Node/filesystem2.js
var fs = require(‘fs’),
stdin = process.stdin,
stdout = process.stdout;
stdin.resume();
stdin.on(‘data’, function(chunk) {
fs.appendFile( ‘/tmp/hello’, chunk,
@jose-neta
jose-neta / gist:6994284
Created October 15, 2013 16:20
Mininal Dockfile
FROM ubuntu
MAINTAINER Jose Pinheiro Neta <jose.neta@gmail.com>
RUN echo "deb http://archive.ubuntu.com/ubuntu precise main universe multiverse restricted" > /etc/apt/sources.list
RUN apt-get update
RUN apt-get upgrade -y
RUN apt-get install -y build-essential
RUN apt-get install -y vim
@jose-neta
jose-neta / gist:7129976
Created October 24, 2013 01:44
Perl cliente for SAPO - Broker
## Installation
#
# cd /dir/where/this/dockerfile/is && sudo docker build -rm -t -i 'you/name-it'
#
FROM ubuntu
MAINTAINER Jose Pinheiro Neta <jose.neta@gmail.com>
RUN echo "deb http://archive.ubuntu.com/ubuntu precise main universe" > /etc/apt/sources.list
@jose-neta
jose-neta / gist:7548869
Created November 19, 2013 17:14
go or not go to the beach
#! /usr/bin/env perl
use strict;
use warnings;
use feature 'say';
{
package Beach;
use Moo;
use Try::Tiny;
@jose-neta
jose-neta / 0_reuse_code.js
Created February 2, 2014 17:38
Here are some things you can do with Gists in GistBox.
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console
@jose-neta
jose-neta / scraping_with_bash_perl
Last active August 29, 2015 13:56
scrap all images from whitelifedesign.pt site
time \
for CAT in dental-surgery-cases cosmetic-surgery-cases nutrition-cases \
psychology-cases clinical-cases; do \
mkdir $CAT && cd $CAT; for ITER in {1..10}; do \
lwp-request -H"Host: www.whitelifedesign.com" \
-H"Referer: www.whitelifedesign.com/cases/$CAT/" \
http://www.whitelifedesign.com/cases/$CAT/page/$ITER > p$ITER.html; \
perl -M"feature 'say'" -MData::Dumper -0 -nwe \
'my $re = qr{<span class="clip">.*?src="(.*?)".*?</span>}s; my @matches = $_ =~ /$re/g; say for @matches' \
p$ITER.html; done | sort | uniq | xargs wget; cd ..; done
@jose-neta
jose-neta / eval_stuff
Last active August 29, 2015 13:58
Curiosities around Perl's eval function. and __DATA__ special string
#! /usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
my $data;
{
@jose-neta
jose-neta / steps
Last active August 29, 2015 14:06
A way of creating a list of step to feed phantomjs
;// A way of creating a list of step to feed phantomjs
(function(){
steps = [{
'action' : function(args){
console.log( 'hello, here are my params: ', args.join(' ') );
},
'params' : {
'alpha' : 'a',
'bravo' : 'c',
'delta' : 'd'
@jose-neta
jose-neta / phantomjs scraping
Created September 10, 2014 15:37
Again a quirk
; // Varzim Lazer Scraper
(function(){
var system = require('system')
, fs = require('fs')
;
var page = require('webpage').create(),
url= 'http://www.varzimlazer.com/natacao/',
location_regex = new RegExp(url)