New Line is not printing for certain messages

[tbest4475]

AIX
I have a set of commands that run and if a difference is found it prints a message to an array and then sends that array in an email. certain messages are not printing the new line after the text. others are.

code:

$message = "A difference in /opt/local/bin has been noted: $opt_local_bin{$file}{'new'}{'file'} is now available\n";
push @messages, $message;

at the end i will prepare to send in an email.

$message = join('',@messages);
$subject = "XXXXXX";
&mail_admin($subject,$message);

output =
A difference in /opt/local/bin has been noted: clean_oratab is no longer available A change in /etc/hosts has been detected. 10.40.250.3 r2dmn1 # regatta 2 domain 1 switch is no longer available

These lines print right next to each other with out a new line.

if i join with a '\n' then it will print a seperate line, but alos a blank liner between them:

$message = join('\n',@messages);

output =
A difference in /opt/local/bin has been noted: clean_oratab is no longer available

A change in /etc/hosts has been detected. 10.40.250.3 r2dmn1 # regatta 2 domain 1 switch is no longer available

I do not want the whitespace between them.

if i take the program through debug, all the way to the end an view @messages or $message everything is spaced correctly.

if i add '' between the command and the end of the message it will print correctly, but leaves the ''.

code:

$message = "A difference in /opt/local/bin has been noted: '$opt_local_bin{$file}{'new'}{'file'} is now available'\n";
push @messages, $message;

output =
A difference in /opt/local/bin has been noted: 'clean_oratab is no longer available'
A change in /etc/hosts has been detected. 10.40.250.3 r2dmn1 # regatta 2 domain 1 switch is no longer available


Any ideas before i give up?

[SpecialKay]

did you try the join with the new line char, and take the new line char off the end of the string...
unless i miss understood your problem, that should work

[SpecialKay]

or:
might need to put single quotes around the \n inside your string.

$message = "A difference in /opt/local/bin has been noted: $opt_local_bin{$file}{'new'}{'file'} is now available '\n' ";
 
and if memore serves right you need to put quotes around the single quote.  But that might be in a differant language, or im crazy.  Try it out for the syntax.
 

AIX
I have a set of commands that run and if a difference is found it prints a message to an array and then sends that array in an email. certain messages are not printing the new line after the text. others are.

code:

$message = "A difference in /opt/local/bin has been noted: $opt_local_bin{$file}{'new'}{'file'} is now available\n";
push @messages, $message;

at the end i will prepare to send in an email.

$message = join('',@messages);
$subject = "XXXXXX";
&mail_admin($subject,$message);

output =
A difference in /opt/local/bin has been noted: clean_oratab is no longer available A change in /etc/hosts has been detected. 10.40.250.3 r2dmn1 # regatta 2 domain 1 switch is no longer available

These lines print right next to each other with out a new line.

if i join with a '\n' then it will print a seperate line, but alos a blank liner between them:

$message = join('\n',@messages);

output =
A difference in /opt/local/bin has been noted: clean_oratab is no longer available

A change in /etc/hosts has been detected. 10.40.250.3 r2dmn1 # regatta 2 domain 1 switch is no longer available

I do not want the whitespace between them.

if i take the program through debug, all the way to the end an view @messages or $message everything is spaced correctly.

if i add '' between the command and the end of the message it will print correctly, but leaves the ''.

code:

$message = "A difference in /opt/local/bin has been noted: '$opt_local_bin{$file}{'new'}{'file'} is now available'\n";
push @messages, $message;

output =
A difference in /opt/local/bin has been noted: 'clean_oratab is no longer available'
A change in /etc/hosts has been detected. 10.40.250.3 r2dmn1 # regatta 2 domain 1 switch is no longer available


Any ideas before i give up?

[KevinADC]

Instead of this unecessary stuff:

$message = "A difference in /opt/local/bin has been noted: $opt_local_bin{$file}{'new'}{'file'} is now available\n";
push @messages, $message;
 
$message = join('',@messages);
$subject = "XXXXXX";
&mail_admin($subject,$message);

try like this, concatenate using '.=' in the loop you use to create the message and use \r\n instead of \n:

$message .= "A difference in /opt/local/bin has been noted: $opt_local_bin{$file}{'new'}{'file'} is now available\r\n";

then run it as you are:

$subject = "XXXXXX";
&mail_admin($subject,$message);