jose-neta

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

use feature 'say';

use Data::Dumper;

my $data;
{

jose-neta

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

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

jose-neta

#! /usr/bin/env perl
use strict;
use warnings;
use feature 'say';

{
    package Beach;
    use Moo;

    use Try::Tiny;

jose-neta

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

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

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

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