tacitochaves

## gist:8239381
#!/home/chaves/perl5/perlbrew/perls/perl-5.16.3/bin/perl


use 5.12.0;

my @A = (1, 2, 3, 5, 7, 23, 8, 14, 95, 19);
my @B = (3, 14, 6, 22, 88, 19, 100);

my @AUB = sort { $a <=> $b } map  { $_ } (@A,@B);

## gist:8250368
#!/home/chaves/perl5/perlbrew/perls/perl-5.16.3/bin/perl


use 5.12.0;

my @AoB = (
	[ 'a1', 'b1', 'c1' ],
	[ 'a2', 'b2', 'c2' ],
	);

## gist:9414791
#!/usr/bin/perl

use IO::Socket::INET;

use strict;

my $server_socket = IO::Socket::INET->new(
'LocalAddr' => '0.0.0.0',
'LocalPort' => '8086',
'Proto' => 'tcp',

## login.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>Acesso ao Sistema</title>
</head>
  <style>
    body {
      background-color: #11a6d4;
    }

## login2.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>Acesso ao Sistema</title>
</head>
  <style>
    body {
      background-color: #11a6d4;
    }

## confirmar.cgi
#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

my $cgi = new CGI;

## .vimrc
Author: Tácito Chaves
Created: 05/13/2014
Description: This is a simple vim configuration file .vimrc

nmap <C-f> :%!perltidy -q<CR>
nnoremap <C-f> :%!perltidy -q<CR>
vnoremap <C-f> :!perltidy -q<CR>

## operation.pl
#!/usr/bin/env perl

use 5.014;

say "####################################";
say "Program of sum and difference.";
say "####################################";

say "Entre com a opção desejada.";
say "1 - For sum";

## check_port_open.pl
#!/usr/bin/env perl

use 5.12.0;

print "**********************************\n";
print "*  PORT SCAN - São Luís TECNOLOGY   *\n";
print "**********************************\n";
print "\n Digite o IP Alvo........:";
chomp(my $ip=<STDIN>);
print " Digite a Porta Inicial..:";

## nsupdate.sh
#!/bin/bash
#
# nsupdate.sh
#
#	Script para inserir endereços dinâmicos no servidor de DNS.


# variáveis de ambiente
KEYNAME="server"
HASH="J+fO2y2XYAVhlBSExwF7Bz/07fMd849Cnq3C+8QhuVr+C5imEig9qBUv8HBFHqccXIJ3GFJXRZnkX/0XCkzBng=="
	#!/home/chaves/perl5/perlbrew/perls/perl-5.16.3/bin/perl


	use 5.12.0;

	my @A = (1, 2, 3, 5, 7, 23, 8, 14, 95, 19);
	my @B = (3, 14, 6, 22, 88, 19, 100);

	my @AUB = sort { $a <=> $b } map { $_ } (@A,@B);
	#!/home/chaves/perl5/perlbrew/perls/perl-5.16.3/bin/perl


	use 5.12.0;

	my @AoB = (
	[ 'a1', 'b1', 'c1' ],
	[ 'a2', 'b2', 'c2' ],
	);
	#!/usr/bin/perl

	use IO::Socket::INET;

	use strict;

	my $server_socket = IO::Socket::INET->new(
	'LocalAddr' => '0.0.0.0',
	'LocalPort' => '8086',
	'Proto' => 'tcp',
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<title>Acesso ao Sistema</title>
	</head>
	<style>
	body {
	background-color: #11a6d4;
	}
	#!/usr/bin/perl

	use strict;
	use warnings;
	use CGI;
	use CGI::Carp qw(fatalsToBrowser);
	use DBI;

	my $cgi = new CGI;
	Author: Tácito Chaves
	Created: 05/13/2014
	Description: This is a simple vim configuration file .vimrc

	nmap <C-f> :%!perltidy -q<CR>
	nnoremap <C-f> :%!perltidy -q<CR>
	vnoremap <C-f> :!perltidy -q<CR>
	#!/usr/bin/env perl

	use 5.014;

	say "####################################";
	say "Program of sum and difference.";
	say "####################################";

	say "Entre com a opção desejada.";
	say "1 - For sum";
	#!/usr/bin/env perl

	use 5.12.0;

	print "**********************************\n";
	print "* PORT SCAN - São Luís TECNOLOGY *\n";
	print "**********************************\n";
	print "\n Digite o IP Alvo........:";
	chomp(my $ip=<STDIN>);
	print " Digite a Porta Inicial..:";
	#!/bin/bash
	#
	# nsupdate.sh
	#
	# Script para inserir endereços dinâmicos no servidor de DNS.


	# variáveis de ambiente
	KEYNAME="server"
	HASH="J+fO2y2XYAVhlBSExwF7Bz/07fMd849Cnq3C+8QhuVr+C5imEig9qBUv8HBFHqccXIJ3GFJXRZnkX/0XCkzBng=="