Tuesday, September 18, 2012

Linux - Sudoers file

Login redhat

[redhat@localhost ~]$ sudo su -l
redhat is not in the sudoers file. This incident will be reported.
[redhat@localhost ~]$

Login root

vim /etc/sudoers

root ALL=(ALL) ALL
redhat ALL=(ALL) ALL

Login redhat

[redhat@localhost ~]$ sudo su -l
[sudo] password for redhat:
[root@localhost ~]#

Friday, September 14, 2012

Bioinformatic, Command Line, Data Base, DB, linux, Mac, perl, Unix

Bioinformatics BIT/LGMB

11:29 AM Unknown No comments

Bioinformatics BIT/LGMB

Data validation IC/TCC

Jobs ...

Find the error !!!

Thanks all ...

Prof. Wilson, Prof. Israel, Daniel, Marcelo, Rodrigo, Meire, Jorge, Rippel, Burger, Thais, Erico, Alonso, Gilson.

Google [ Chart Tools ]

11:17 AM Unknown No comments

<html>
<head>
<script type="text/javascript" src="https://www.google.com/jsapi"></script>
<script type="text/javascript">
google.load("visualization", "1", {packages:["corechart"]});
google.setOnLoadCallback(drawChart);
function drawChart() {
var data = google.visualization.arrayToDataTable([

['ASW Africano/EUA', 1],
['CEU Utah/Europeia', 1],
['CHB Pequim/China', 1],
['CHD Chinesa/Colorado', 1],
['GIH Guzerate, Texas', 1],
['JPT Toquio/Japao', 1],
['LWK Luhya/Quenia', 1],
['MXL Mexicana/Los Angeles,California', 1],
['MKK Maasai/Kinyawa, Quenia', 1],
['TSI Toscani/Italia', 1],
['YRI Ioruba/Nigeria', 1]
]);

var options = {

};

var chart = new google.visualization.PieChart(document.getElementById('chart_div'));
chart.draw(data, options);
}
</script>
</head>
<body>
<div id="chart_div" style="width: 900px; height: 500px;"></div>
</body>
</html>
---------------------------------------------------------------------------------------------------------

fonte : https://developers.google.com/chart/

Wednesday, September 12, 2012

Command Line, Data Base, linux, Oracle, perl, Unix, Windows

Perl - [ Create | Insert - DB Oracle ]

10:13 PM Unknown No comments

use strict;
use warnings;
use DBD::Oracle qw(:ora_types);
use DBI;

use constant SqlOracle => 'C:\oraclexe\app\oracle\product\10.2.0\server\BIN\sqlplus.exe\\';
use constant User => 'system';
use constant Pass => '12345';
use constant DB => 'XE';

print "Test Show Valeu : $0\n";

my $dbh = DBI->connect("dbi:Oracle:".DB,User,Pass) or die $!;

my $CreateTable = "CREATE TABLE EMPREGADO (codigo number(6) primary key, nome varchar2(25) not null, salario number(11,2))";

my $sth = $dbh->prepare($CreateTable);

$sth->execute();

$sth = $dbh->prepare( q{INSERT INTO EMPREGADO (codigo,nome,salario) VALUES(?,?,?)}) or die $dbh->errstr;

open(IN,"pessoas.txt") or die $!;

while(<IN>){
chomp;
my($codigo,$nome,$salario) = split (/\t/,$_);
$sth->execute($codigo,$nome,$salario) or die $dbh->errstr;

}
close(IN);

$dbh->disconnect;

------------------------------------------------------------------------------------------------------------

SQL> desc empregado;
Nome Nulo? Tipo
----------------------------------------- -------- ----------------------------

CODIGO NOT NULL NUMBER(6)
NOME NOT NULL VARCHAR2(25)
SALARIO NUMBER(11,2)

SQL> select * from empregado;

CODIGO NOME SALARIO
---------- ------------------------- ----------
1 joao 10
2 maria 80
3 jose 60

------------------------------------------------------------------------------------------------------------

pessoas.txt

1 joao 10
2 maria 80
3 jose 60