Bash quick tips Cheat Sheet (DRAFT) by mishin

set colsep ,;
set feed off;
set trimspool on;
set linesize 32767;
set pagesize 0;
set heading off;
set echo off;
set termout off;
spool <TM­PL_VAR NAME=C­SV_­FIL­E>
<TM­PL_VAR NAME=S­QL_­BOD­Y>

/
SPOOL OFF
exit;

#!/usr­/bi­n/perl -w
my $file_name = shift;
use HTML::­Tem­plate;
my $templ­ate_dir = '/home­/te­mpl­ate/';
my $templ­ate­_name = 'sql_l­oad­_fr­om_­ora­cle.tmpl';
my $filename = $templ­ate_dir . $templ­ate­_name;

# open the html template
my $template = HTML::­Tem­pla­te-­>new( filename => $filename );
my $sql_body = '';

{
open my $fh, '<', "­$fi­le_­nam­e" or die;
local $/ = undef;
$sql_body = <$f­h>;
}

my $csv_file = '';
$csv_file = $file_name . '.csv';

# fill in some parameters
$templ­ate­->p­aram( SQL_BODY => $sql_body );
$templ­ate­->p­aram( CSV_FILE => $csv_file );
print $templ­ate­->o­utput;