0
0
1
116
664
Als
5
1
779
14.0
Normal
0
false
false
false
PT-BR
JA
X-NONE
...
Friday, September 28, 2012
Tuesday, September 25, 2012
Perl [ Generate executables from Perl / Binary file]
File Hello.pl
---------------------------------------------
#!/usr/bin/perluse strict;use warnings;print "Hei man !!! \n";
---------------------------------------------
[root@localhost Desktop]# perlcc -o Hello Hello.pl
[root@localhost Desktop]# chmod +x Hello
[root@localhost Desktop]# ./HelloHei man !!! [root@localhost Desktop]# less Hello"Hello" may be a binary file. See it anyw...
Wednesday, September 19, 2012
Perl - Info about the module [ DBD/DBI ] Oracle
[root@localhost Desktop]# perl -e 'use DBD::Oracle; print $DBD::Oracle::VERSION,"\n";'1.50[root@localhost Desktop]# perl -e 'use DBI; print $DBI::VERSION,"\n";
1....
Install [ Oracle 11g XE on Red Hat ]
#rpm -i oracle-xe-11.2.0-1.0.x86_64.rpm Executing post-install steps...You must run '/etc/init.d/oracle-xe configure' as the root user to configure the database.[root@localhost Disk1]# /etc/init.d/oracle-xe configureOracle Database 11g Express Edition Configuration-------------------------------------------------This will configure on-boot properties of Oracle Database 11g Express Edition. ...
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
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. &nbs...
Google [ Chart Tools ]
<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);
...
Wednesday, September 12, 2012
Perl - [ Create | Insert - DB Oracle ]
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...
Perl - [ Perl DBI Oracle connect from Windows ]
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 "Create connection Oracle Database 10g Express Edition ... 1\n";
my $dbh = DBI->connect("dbi:Oracle:".DB,User,Pass) or die $!;
print...
Tuesday, September 11, 2012
Command Line, linux, Mac, perl, Unix
Perl - [ File Exists ]
#!/usr/bin/perl
use strict;
use warnings;
my $file = $ARGV[0];
die "This File ($file) Exists ! " if (-e "$file");
Result
$ perl tmp.pl tmp.pl
This File (tmp.pl) Exists ! at tmp.pl line 7....
Perl - [ Exists Dir ]
#!/usr/bin/perl
use strict;
use warnings;
my $dir = $ARGV[0];
die "This ($dir) is not a directory" if (-d $dir);
Result
$ perl tmp.pl Music/
This (Music/) is not a directory at tmp.pl line 7.
...
Command Line, linux, Mac, perl, Unix
Perl - [ Exists File | System Command ]
#!/usr/bin/perl
use strict;
use warnings;
if(-e "tmp.pl"){
print "File exists tmp.pl\n";
system("echo Yes File > tmp.txt");
}else{
print "File not exists tmp.pl\n";
system("echo No File > tmp.txt");
}...
Command Line, linux, Mac, perl
Perl - USE [ Copy | Move | Constant ]
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
use constant WORK=>'/Users/als/';
copy(WORK."tmp.txt",WORK."tmp.txt.copy") or die "Copy failed $!";
move(WORK."tmp.txt",WORK."Desktop/tmp.txt") or die "Move failed $!";
print "Print constant\t:",WORK;
...
Monday, September 10, 2012
Perl - [ Create INDEX.HTML ]
#!/usr/bin/perl
use strict;
use warnings;
&Usage if $#ARGV<0;
my $REGEX = shift;
print "
<html>
<head>
<title></title>
</head>
<body>
...
Perl - Info DBI
$ perl -e
'use DBI; print $DBI::VERSION,"\n";'
$ perl -e
'use DBD::Oracle; print $DBD::Oracle::VERSION,"\n";'
http://search.cpan.org/~pythian/DBD-Oracle-1.50/lib/DBD/Oracle.pm...
Perl - [ VIM | headers | pl ]
less ~/.vim/headers/pl
#!/usr/bin/perluse strict;use warnings;use Getopt::Long;my ($output_dir,$number,$input_dir);&Usage("Too few arguments") if $#ARGV<0;GetOptions( 'o|out_dir=s' => \$output_dir, 'i|input_dir=s' => \$input_dir, ...
Command Line, linux, Mac, perl, Unix
Perl [ Net::FTP ]
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;
my $ftp = Net::FTP->new("ftp.suse.com", Debug => 0, Timeout => 3) or die "Cannot connect to ftp.suse.com: $@";
if ( $ftp->login('anonymous','')){
my @dirs = $ftp->dir();
foreach my $dir (@dirs){
my ($permission,$number1,$user,$group,$number2,$months,$day,$year,$name_path)...
Thursday, September 6, 2012
Google Chart Tools
Font : https://developers.google.com/chart/image/docs/chart_wizard
Font : http://www.toprated.com.br/crie-graficos-de-maneira-rapida-e-facil-com-o-google-chart-tools-part...
