On Tuesday 05 November 2002 5:37 pm, LRMK wrote:
> there is a one problem
> $mail{message}=<FIN>; only reads the first line of the file
> in the following block;
>
> $oldsep=$/; $/=undef; disable line seperation
> open(FIN,"<myfile>")||die "cannot open file: $!\n";
> $mail{message}=<FIN>;
> close(FIN);
> $/=$oldsep;
This is not the case. The statement:
$mail{message}=<FIN>;
will start at the beginning of the file sucking in characters until it reaches
the first $/ character. Normally this would be the 1st newline - i.e. the
whole of the 1st line. Beause I've UNDEF'd $/ it won't stop until it reaches
the EOF.
I then restore $/ before proceeding.
Gary
>
>
>
>
>
> try this instedof that line
>
> @file = <FIN>;
> chomp @file;
> $mail{message}=join("\n",@file);
>
>
>
> ----- Original Message -----
> From: "Gary Stainburn" <[EMAIL PROTECTED]>
> To: "Scott, Joshua" <[EMAIL PROTECTED]>; "Beginners Perl"
> <[EMAIL PROTECTED]>
> Sent: Tuesday, November 05, 2002 11:15 PM
> Subject: Re: Mail::Sendmail Module
>
> > On Tuesday 05 Nov 2002 5:01 pm, Scott, Joshua wrote:
> > > Hello everyone,
> > >
> > > I'm trying to use the Mail::Sendmail module in a script where I need a
> > > independent mailer. The problem I'm having is including more than one
>
> line
>
> > > of text in the message body. I'm not really sure how to do this. The
> > > package uses a $mail{message} = "blah" var for the message body. Is it
> > > possible to get more than one line into that hash value?
> > >
> > > Basically I've got a script that generates a bunch of information and
> > > outputs it to a file. What I would like to do is make the contents of
>
> this
>
> > > file, the body of my message. I don't want it as an attachment.
> > >
> > > Any help is greatly appreciated.
> >
> > Hi Joshua,
> >
> > If you simply wanted to create a multi-line message body as a string then
>
> you
>
> > could do something like:
> >
> > $mail{message}="line1\nline2\nline3\n....";
> > or
> > $mail{message}=qq{line1
> > line2
> > line3
> > };
> >
> > If you want to use the contents of a file as the body, use something
> > like.
> >
> > $oldsep=$/; $/=undef; disable line seperation
> > open(FIN,"<myfile>")||die "cannot open file: $!\n";
> > $mail{message}=<FIN>;
> > close(FIN);
> > $/=$oldsep;
> >
> > It disables the record seperator (newline) then reads the whole file into
>
> the
>
> > hash entry.
> >
> > > Thank you,
> > >
> > > Joshua Scott
> > > Security Systems Analyst, CISSP
> > > 626-568-7024
>
> ===========================================================================
>
> > >=========== NOTICE - This communication may contain confidential and
> > > privileged information that is for the sole use of the intended
>
> recipient.
>
> > > Any viewing, copying or distribution of, or reliance on this message by
> > > unintended recipients is strictly prohibited. If you have received this
> > > message in error, please notify us immediately by replying to the
>
> message
>
> > > and deleting it from your computer.
>
> ===========================================================================
>
> > >===
> >
> > --
> > Gary Stainburn
> >
> > This email does not contain private or confidential material as it
> > may be snooped on by interested government parties for unknown
> > and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
--
Gary Stainburn
This email does not contain private or confidential material as it
may be snooped on by interested government parties for unknown
and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
