Friday, August 24, 2012

Perl - Getopt::Long

#!/usr/bin/perl use strict; use warnings; use Getopt::Long; my $output_dir; my $number_base; &Usage("Too few arguments") if $#ARGV<0; GetOptions(     'o|out_dir=s'    => \$output_dir,     'b|base=i'     => \$number_base )or &Usage("Wrong arguments"); sub Usage(){     my($msg) = @_;    ...

Monday, August 20, 2012

Wednesday, August 15, 2012

Mysql - Script Load Table DataBase | Shell

#!/bin/bash DB_USER="name_user" PASS="pass_user" HOST="host_name" DB="name_dateBase" TABLE="name_table" PATH_FOLDER=`pwd` for file in `ls *.txt` do     mysql -u ${DB_USER} -h ${HOST} -p -D ${DB} -e "LOAD DATA LOCAL INFILE '${PATH_FOLDER}/${file}' INTO TABLE ${TABLE} FIELDS TERMINATED BY '\t';" do...

Wednesday, August 8, 2012