Re: "last until eof unless" question

[Michael Fowler]

On Thu, Jul 26, 2001 at 11:35:14AM -0700, David Freeman wrote:
> last until eof unless $email;

You can't chain trailing modifiers like that.  It also doesn't make much
sense: you can't last until eof, because you can only last once; you're not
reading from the file, so you'll never reach eof.

Ignoring the silliness, you can accomplish this with:

    do { last until eof } unless $email;

or
    unless ($email) {
        last until eof;
    }


It would appear you're really trying to accomplish this:

    use Fcntl qw(SEEK_END);
    unless ($email) {
        seek(FILE, 0, SEEK_END);
        last;
    }


Michael
--
Administrator                      www.shoebox.net
Programmer, System Administrator   www.gallanttech.com
--

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