#!/usr/bin/perl

use DBI;

    my $dbh = DBI->connect ('dbi:Oracle:projv6t', 'data', 'domi', {PrintError => 1, AutoCommit => 0 });
    my $sth = $dbh->prepare (qq{ SELECT data FROM data.QC_PREVIOUS_DATA_VIEW MINUS SELECT data FROM data.QC_CURRENT_DATA_VIEW });
    $sth->execute;
	open(OUTPUT,">prakash.csv") || die "can not open file";
    while(@row = $dbh->fetchrow_array) {
    print OUTPUT "tname\n";
}

Looking to export the query into the csv file.

Can't locate object method "execute" via package

E:\Temp\Listing>type t.pl
use DBI;

    my $dbh = DBI->connect ('dbi:Oracle:mikb2', 'michel', 'michel', {PrintError => 1, AutoCommit => 0 })
    my $sth = $dbh->prepare (qq{ SELECT deptno FROM dept MINUS SELECT deptno FROM emp});
    $sth->execute;
    open(OUTPUT,">prakash.csv") || die "can not open file";
    while(@row = $sth->fetchrow_array) {
    print OUTPUT "tname\n";
}
$dbh->disconnect;

E:\Temp\Listing>perl t.pl

E:\Temp\Listing>type prakash.csv
tname

SELECT deptno, deptname, deptid  FROM dept MINUS SELECT deptno, deptname, deptid FROM emp

Output
1IT003
2CS002
3EC003

Expected output in csv file
depno depname deptid
1     IT      003
2     CS      002
3     EC      003

#!/usr/bin/perl
 use DBI;
 my $dir = '/data/QC';
 my $dbh = DBI->connect ('dbi:Oracle:projv6t', 'data', 'domi', {PrintError => 1, AutoCommit => 0 });
 my $sth = $dbh->prepare(qq{SELECT data1, data2, data3  FROM data.QC_CURRENT_DATA_VIEW MINUS SELECT data1, data2, data3 FROM data.QC_PREVIOUS_DATA_VIEW});
 $sth->execute;
 open(OUTPUT,">$dir/QC_NEW_DATA.csv") || die "can not open file";
 while(my @row = $sth->fetchrow_array) {
     print OUTPUT join ("\t", @row), "\n";
 }
 my $sth = $dbh->prepare(qq{SELECT data1, data2, data3 FROM data.QC_PREVIOUS_DATA_VIEW MINUS SELECT data1, data2, data3 FROM data.QC_CURRENT_DATA_VIEW});
 $sth->execute;
 open(OUTPUT,">$dir/QC_CLOSED_DATA.csv") || die "can not open file";
 while(my @row = $sth->fetchrow_array) {
     print OUTPUT join ("\t", @row), "\n";
 }
 $dbh->disconnect;

Shell Script :

echo "Reports Generated Sucessfully" | mailx -s "Reports Generated Sucessfully" -a "$dir/QC_NEW_DATA.csv" -a "$dir/QC_CLOSED_DATA.csv" prakash@gmail.com

Output :

All the columns are combined into one fields.

T10187693MCCOLLS M DAILY
T1019949SPAR BLAKEMORE

Expected Output in CSV:

Data1 Data2  Data3
T101  87693  "MCCOLLS M DAILY"
T101  99949  "SPAR BLAKEMORE"

E:\Temp\Listing>type t.pl
use DBI;

 my $dbh = DBI->connect ('dbi:Oracle:mikb2', 'michel', 'michel', {PrintError => 1, AutoCommit => 0 });
 my $sth = $dbh->prepare (qq{ SELECT deptno, dname, loc FROM dept});
 $sth->execute;
 open(OUTPUT,">prakash.csv") || die "can not open file";
 while(my @row = $sth->fetchrow_array) {
     print OUTPUT join ("\t", @row), "\n";
 }
$dbh->disconnect;

E:\Temp\Listing>perl t.pl

E:\Temp\Listing>type prakash.csv
10      ACCOUNTING      NEW YORK
20      RESEARCH        DALLAS
30      SALES   CHICAGO
40      OPERATIONS      BOSTON

head -1 $dir/QC_NEW_DATA.csv | od -xa

mailx -s 'Reports Generated Sucessfully' -a "QC_CLOSED_DATA.csv" prakash@gmail.com

Output in linux :
C13    057  STAR IND
C13    057  VIVO ESSENTIALS

Output CSV received in email:
C13057STAR IND
C13057VIVO ESSENTIALS

echo "Subject: hello" | sendmail -v prakash@gmail.com < data.csv

SET HEADING ON