Hello Robert:
You could use:
MIME::QuotedPrint;
MIME::Base64;
Mail::Sendmail
There are some examples on the internet showing you
how to attach using sendmail.
regards,
David
--- Robert <[EMAIL PROTECTED]> wrote:
>
> Greeting, all,
>
> I have a script which converts query output into
> Excel spread sheet which is working fine, I am a
> UNIX scripting guy and I am having difficulty making
> some simple changes to the script, hope I will get
> some help.
>
> I want to send a email from the script only if it
> fetches any data excluding header using
>
> uuencode excel_dump_1.xls excel_dump_1.xls |mailx -s
> "blah blah.." [EMAIL PROTECTED] which will send the
> excel spread sheet as an attachment.
>
> Thanks in advance
>
> #!/usr/bin/perl
>
> use warnings;
>
> use FileHandle;
>
> use DBI;
>
> use strict;
>
> use Spreadsheet::WriteExcel;
>
> #use Spreadsheet::WriteExcel::Big;
>
> use Getopt::Long;
>
> use constant LINES_PER_BOOK => 60001;
>
> my $dbh1 = DBI->connect("dbi:Oracle:db1", "user1",
> "user1" ) or die "Can't make 1st database connect:
> $DBI::errstr\n";
>
>
>
> $dbh1->{RowCacheSize} = 100;
>
>
>
> my $sql=q{
>
> select *
>
> from table1
>
> where status!='Active'
>
> };
>
>
>
> print "Preparing SQL\n";
>
>
>
> my $sth = $dbh1->prepare($sql);
>
>
>
> print "Executing SQL\n";
>
>
>
> $sth->execute();
>
> print "Creating Workbook\n";
>
>
>
> my $workbook =
> Spreadsheet::WriteExcel->new(newWorkBookName());
>
> die "unable to create workbook - $!\n" unless
> $workbook;
>
> $workbook->set_tempdir('/home/user1/LC');
>
> my $worksheet = $workbook->addworksheet();
>
>
>
> my $colNames = $sth->{NAME_uc};
>
>
>
> print "Fetching data\n";
>
>
>
> my $rowCount=0;
>
> my $lineCount=0;
>
> $worksheet->write_row($lineCount,0,$colNames);
>
> print "\n";
>
>
>
> while( my $ary = $sth->fetchrow_arrayref ) {
>
> print $rowCount;
>
> print "." unless $rowCount++%1000;
>
> if ( ++$lineCount >= LINES_PER_BOOK ) {
>
> $workbook->close;
>
> my $workBookName = newWorkBookName();
>
> $workbook =
>
> Spreadsheet::WriteExcel->new($workBookName);
>
> die "unable to create workbook - $!\n" unless
> $workbook;
>
> $worksheet = $workbook->addworksheet();
>
> $lineCount=0;
>
> $worksheet->write_row($lineCount,0,$colNames);
>
> $lineCount=1;
>
> print "\nNew Workbook: $workBookName\n";
>
> }
>
> $worksheet->write_row($lineCount,0,$ary);
>
> }
>
>
>
> print "\n";
>
>
>
> $workbook->close;
>
> $sth->finish;
>
> $dbh1->disconnect;
>
>
>
>
>
> {
>
>
>
> my $workBookNumber = 0;
>
> sub newWorkBookName {
>
> return "/home/user1/LC/excel_dump_" .
> ++$workBookNumber . ".xls";
>
> }
>
> }
>
>
>
> ---------------------------------
> Do you Yahoo!?
> Read only the mail you want - Yahoo! Mail
SpamGuard.
