marcioferreira

my %full_data = (
  'email1' => uuid4('personA'),
  'email2' => uuid4('personA'),
  'cpf' => uuid4('personA'),

  'email4' => uuid4('personB'),
  'email5' => uuid4('personC'),
);

marcioferreira

  generate['title']['genre']  = ['bar','pie'];
  generate['title']['geo']    = ['bar','pie'];
  generate['title']['ticket'] = ['bar','pie'];
  generate['title']['week']   = ['bar','pie'];

  generate['ticket']['genre'] = ['bar','pie'];
  generate['ticket']['geo']   = ['bar','pie'];
  generate['ticket']['title'] = ['bar','pie'];
  generate['ticket']['week']  = ['bar','pie'];

marcioferreira

for my $fh  (qw/origin destiny/){
  $rel{$_->{_id}{city}}{$_->{_id}{iata}} = 1 for @{
    from_json( do{
      local(@ARGV,$/) = "../../data/mongo/$fh.json"; <>
    })->{result} };
}

marcioferreira

{
    "_id" : "SAOMCO",
    "destiny" : "MCO",
    "relevance" : NumberLong(142),
    "region" : "América do Norte",
    "origin" : "SAO",
    "location_id" : NumberLong(0),
    "destiny_city" : "Orlando",
    "tothe" : "a",
    "type" : "Internacional",

marcioferreira

FLL
SFO
AKL
BKK
CPT
FLL
GVA
HND
IST
MEX

marcioferreira

#!/usr/bin/env perl
use use qw( common::sense YADA Web::Scraper DDP );

my $dom_sitemap = scraper { process 'loc', 'url[]' => 'text'; };
my $sitemap     = 'http://www.tricae.com.br/sitemapProducts.xml';
#my ($loc)       = $dom_sitemap->scrape( URI->new($sitemap) );

my $dom = scraper {
  process 'h1', 'name' => 'TEXT';
  process 'div.txt-brand', 'brand' => 'TEXT';

marcioferreira

A CasperJS link checker

A simple CasperJS script to periodically check for a link and process accordingly.

/*jshint strict:false*/
/*global CasperError console phantom require*/
var casper = require('casper').create({
        logLevel: "debug",
        verbose: true

marcioferreira

<?xml version="1.0" encoding="UTF-8"?>
<products>
    <product>
        <identifier>1020304_SAO_FOR</identifier>
        <fn>Jericoacoara e Fortaleza - 8 dias</fn>
        <description>Jericoacoara pode ser chamada de paraíso ecológico. Mesmo sua fama correndo o mundo, Jeri, como é conhecida, continua com ar de lugar intocado.</description>
        <category>Nacional</category>
        <category>Sao Paulo</category>
        <category>Fortaleza</category>
        <brand></brand>

marcioferreira

{
    "sku": "Sony_HD-E1_Preto",
    "name": "HD Externo de 500GB Sony - HD-EG5 Preto",
    "brand": "Sony",
    "details": {
      "Tamanho de disco": " 2.5 polegadas.",
      "Compatibilidade": " Windows® 8 (32bit/64bit) / Windows® 8 Pro (32bit/64bit) / Windows 7 (32 bit/64bit)/ Windows Vista / Windows XP (32 BIT)/ Mac OS* X 10.4 ou superior *Mac OS suporta apenas USB 2.0.",
      "Acessórios fornecidos": " Acelerador de Transferência de Dados*, Gerenciador de backup*, Gerenciador de Proteção por Senhas*, Formatador FAT 32* - *Software para PC apenas para Windows.",
      "Velocidade de transferência": " Máx. 5Gbps (USB 3.0), Máx. 480 Mbps (USB 2.0).",
      "Capacidade utilizável": " 465 GB.",

marcioferreira

perl -MDateTime -E'
my %cvd = map { $b = 9+ord$_; $b>100 ? $b-70 : $b-64 => $_ } "A".."Z", "a".."z";
say f_dt( DateTime->now->set_time_zone("America/Sao_Paulo"));

sub f_dt{
  my ($dt) = shift;
  $dt =~ s/[:T\-]|^.{4}|.{2}$//go;
  return join "", map { $cvd{$_} // $_+0 } unpack("A2 A2 A2 A2", $dt)
}
'