Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Printing an array in a Here Doc

by esskar (Deacon)
on Jun 27, 2006 at 20:28 UTC ( #557867=note: print w/ replies, xml ) Need Help??


in reply to Printing an array in a Here Doc

hi, i tried to cleanup your code

use strict; # safety first use Net::SMTP; my $hostname = `hostname`; my $Log_File = "E:\\Backups\\LOGs\\Sync_Import.log"; open( STDOUTSAVE, ">&STDOUT" ); # save the original STDOUT open( STDOUT, ">>$Log_File" ) or die "Unable to open $Log_File: $!"; # open (Output, "multiutil <cmd>|"); # do not see the nameing; better open( PIPE, "multiutil <cmd>|" ) or do { # save the last open error my $err = $!; # set back to saved STDOUT open( STDOUT, ">&STDOUTSAVE" ); die "Unable to open pipe: $err"; }; my @OutputDetails = map { s!\r?\n!!g; "$_\n" } <PIPE>; # add the line to the front unshift @OutputDetails, "This message sent by the Import Process\n\n"; close PIPE; # close the handle again Mail_Msg(); # set back to saved STDOUT open( STDOUT, ">&STDOUTSAVE" ); sub Mail_Msg { my $smtp = Net::SMTP->new("mail.company.com"); $smtp->mail('ALIAS@company.com'); $smtp->to('ALIAS@company.com'); $smtp->data(); $smtp->datasend(" Subject: Job Failure \n "); $smtp->datasend( <<EOF_MAIL @OutputDetails EOF_MAIL ); $smtp->datasend(); $smtp->quit(); }
but did not really test it. hope you get the idea.
have fun.

UPDATE: minor code changes


Comment on Re: Printing an array in a Here Doc
Download Code
Replies are listed 'Best First'.
Re^2: Printing an array in a Here Doc
by tmtech1 (Initiate) on Jun 27, 2006 at 20:52 UTC
    Will try this if the suggested join doesn't work as expected. Thanks All!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://557867]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (15)
As of 2015-07-07 21:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls