creaktive

PERL E UNICODE (ENTRE OUTRAS CODIFICAÇÕES DE TEXTO)

INTRODUÇÃO

creaktive

<?php $x=1;$y=1<<30;for($i=0;$i<29;$i++){$x<<=1;$y>>=1;echo strtr(sprintf("%030b\n",$x|$y),"01"," J");}?>

creaktive

CSV: ENTRE PIPE E DBMS

INTRODUÇÃO

O formato CSV (Comma-Separated Values) é o verdadeiro "idioma inglês" para a transferência de dados: quase todo aplicativo de planilha (spreadsheet) ou DBMS (Database Management System) oferece CSV como o formato de importação ou exportação.

creaktive

#!/usr/bin/perl
package Tor::Control;
use strict;
use utf8;
use warnings 'all';

use IO::Socket;
use Moose;

has host    => (is => 'rw', isa => 'Str', default => 'localhost');

creaktive

#!/usr/bin/perl
use strict;
use bytes;
use warnings 'all';

# ref: http://cpansearch.perl.org/src/MHOWARD/Compress-LZW-0.01/LZW.pm

my $buf = compress("tres pratos de trigo para tres tigres tristes\n");
print decompress($buf);

creaktive

cat BRloc2.csv | iconv -f l1 -t utf8 | tr ';' ',' | perl '-F/,/' -anE 'if (($x ne $F[2]) and not exists $x{$F[2]}) { $x{$F[2]}++; print }; $x = $F[2]' > capitais.csv

creaktive

perl -MBusiness::Barcode::EAN13\ valid_barcode -nE 'say "$ARGV\t$1\t$3" if m{<((?!(pit)?isbn)[^>]+)>(\d{13})</\1>}i and valid_barcode($3)' data/*.xml > eans.txt

# http://www.jacotei.com.br/produtos/index/538011

creaktive

#!/usr/bin/perl

@split_file[2];# Duas metades do nome do arquivo a ser aberto.
$file;         # Nome do arquivo a ser aberto.
%form;         # Contem as variaveis retornadas do Ambiente.
$path_file=('/zaz/htdocs/esoterico/astrologia/comb/'); # Caminho onde encontrar os arquivos *.htm.
$file_erro=('/zaz/htdocs/esoterico/astrologia/');

        # Retorna do ambiente a varialvel %form contendo 
	# a escolha do usuario. 

creaktive

git config --global user.name "Stanislaw Pusep"
git config --global user.email creaktive@gmail.com

git config --global color.diff auto
git config --global color.status auto
git config --global color.branch auto

git config --global alias.st status
git config --global alias.ci commit
git config --global alias.co checkout

creaktive

/*
   PC Emulator

   Copyright (c) 2011 Fabrice Bellard

   Redistribution or commercial use is prohibited without the author's
   permission.
*/
"use strict";
var aa;