paulohrpinheiro

" cada tab vira quatro espaços em branco
set tabstop=4
set softtabstop=4
set shiftwidth=4
set expandtab
 
" deixa seu arquivo colorido, realçando a sintaxe de
" acordo com a linguagem usada
syntax on
 

paulohrpinheiro

paulohrpinheiro

$ perl6
> use NativeCall
> sub sqlite3_libversion_number() returns Int is native('libsqlite3') { * }
sub sqlite3_libversion_number( --> Int) { #`(Sub+{Native[Sub,Str]}|139826072374712) ... }
> say sqlite3_libversion_number()
3008008

paulohrpinheiro

> our sub Sqlite3VersionNumber is symbol('sqlite3_libversion_number') returns Int is native('libsqlite3') { * }
sub Sqlite3VersionNumber( --> Int) { #`(Sub+{NativeCallSymbol[Str]}+{Native[Sub+{NativeCallSymbol[Str]},Str]}|140598248149192) ... }
> Sqlite3VersionNumber();
3008008

paulohrpinheiro

> our sub Sqlite3LibVersion is symbol('sqlite3_libversion') returns Str is native('libsqlite3') { }
sub Sqlite3LibVersion( --> Str) { #`(Sub+{NativeCallSymbol[Str]}+{Native[Sub+{NativeCallSymbol[Str]},Str]}|140598245394280) ... }
> Sqlite3LibVersion()
3.8.8

paulohrpinheiro

use NativeCall;
constant $LIBNAME = 'libsqlite3';

sub sqlite3_open   (Str, Array[OpaquePointer])                                      returns Int is native($LIBNAME) { * }
sub sqlite3_exec   (OpaquePointer, Str, OpaquePointer, OpaquePointer,OpaquePointer) returns Int is native($LIBNAME) { * }
sub sqlite3_errmsg (OpaquePointer)                                                  returns Str is native($LIBNAME) { * }
sub sqlite3_close  (OpaquePointer)                                                  returns Int is native($LIBNAME) { * }
    
my @handler := CArray[OpaquePointer].new;
@handler[0]  = OpaquePointer;

paulohrpinheiro

#!/usr/bin/env perl

use strict;
use warnings;

use JSON;

my $root_user = {
  email    => 'app@chail.com.br',
  name     => 'Chail Root Admin',

paulohrpinheiro

 package Util::Password;
 
 use strict;
 use warnings;
 
 use Crypt::Eksblowfish::Bcrypt;
 use Crypt::Random;
 
 sub Encrypt {
     my $password = shift;

paulohrpinheiro

#!/usr/bin/env perl
 
 use strict;
 use warnings;
 
 use JSON;
 
 use Util::Password;

 my $password = Util::Password::Encrypt('{#MinhaSenhaSuuuuperSegura#}');

paulohrpinheiro

import sys
words = set()
plain_text = list()
codded_text= list()

# read content
plain_text = [l.strip().split() for l in sys.stdin]

# build a word list from content
for line in plain_text: