Mailing using perl script

Hello,

Referring to this Solution,
http://www.experts-exchange.com/Programming/Languages/Scripting/Perl/Q_23298404.html,

I tried to add one new feature to this script but got stuck. Please look at the code given in the snippet. Basically am trying to email the output file (/var/NetApp_scripts/reports/$hstnm".strftime"-%b-%d-%Y",'.txt') using 'uuencode' command. But that's not happening. I'm just receiving the mail with the subject "<Hostname> NetApp filesystem report" but with no attachment. While executing the command, it gives me a error saying "Bad name after txt' at ./result.pl line 15" or it gives "No such file" error.

Could you please look into it and correct for me?

Thanks,
Ashok

Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

#!/usr/bin/perl
use POSIX;
 
$hstname = `hostname`;
chomp($hstnm);
 
open STDOUT,">/var/NetApp_scripts/reports/$hstname".strftime"-%b-%d-%Y".'.txt',localtime or die $!;
/\S/ && !/^==>/ && print while <>;
 
system('/usr/bin/uuencode ""/var/NetApp_scripts/reports/$hstname".strftime"-%b-%d-%Y".'.txt',localtime" $hstname".strftime"-%b-%d-%Y".'.txt' | mailx -s "$hstname NetApp filesystem report" ashok@domainname.com');