How to get Multi-Line file into $var?

[Tim Musson]

hey Perl people!,

   Can't seem to get my brain to work this afternoon...

   I need to read a file and put it in a $Variable (not @Array).

   What I am doing is a bit of code to run a SMTP mail sender (yes, I
   know Net::SMTP works great, but this is how the customer want's
   it).

   So I have something like this (yes, with strict & warnings).

my %Envelope = ( # Envelope bits
    -f  => "$eMail", # MAIL FROM:
    -to => "$eMail"  # RCPT TO:
);

GetBodyFromFile(); This is where I am having problems...
SendIt($body, %Envelope);

sub SendIt {
        my $body = shift @_; # get the msg body

        my $mailer="SMTPmailer.exe"; # the binary (path if needed)
        $mailer .= " - @_"; # add all the parms
        # now we have something like SMTPmailer.exe - -f [EMAIL PROTECTED] -to [EMAIL PROTECTED]

        my $Debug = 1;
        print "\nCommand Line = $mailer\nMessage Body = $body\n" if $Debug;

        my $SendIt = 0;
        open (MAIL, "|$mailer") if $SendIt; # start Blat with all it's parms
        print MAIL $body if $SendIt; # now put in the msg body (bigger this way than 
CL)
}

This next bit is my problem.  I can use the $body in the bit below,
but not the @body.  Looks like if I put @body as a parm to SendIt()
above, it comes in a multiples elements of @_ and I get #!perl as the
body, nothing else.

sub GetBodyFromFile {
        my $file = $0;
        open (INFO, $file);
        @body = <INFO>;
        close(INFO);
$body="
123456789012345678901234567890123456789012345678901234567890123456789012345678
         1         2         3         4         5         6         7";        
}

So, how do I get the contents of a multi line file in $body?

Thanks!

-- 
[EMAIL PROTECTED]
Flying with The Bat! eMail v1.61
Windows 2000 5.0.2195 (Service Pack 2)
Bad command or filename!  GO stand in the corner.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]