I got a priveate response to this posting, that may answer my original
question about using the mode "+<".
"I knew I ran into this before, just could not remember where. From the
docs (perlfunc open):
*********************************
You can't usually use either read-write mode for updating textfiles,
since they have variable length records. See the -i switch in the perlrun
manpage for a better approach.
*********************************"
In the mean time, I simply wrote to a file then moved it back to the
original.
Perhaps extending on this idea, what if the original file gets updated in
the interrum? Does Perl support fflock() ?
Cheers,
JLW
--- Paul Kraus <[EMAIL PROTECTED]> wrote:
> open FILEHANDLE ("</path/file"); Input
> > Output
> >> Append
>
> I have never used +< I am assuming that this somehow uses the same file
> for STDIN and STDOUT?
>
> > -----Original Message-----
> > From: Mystik Gotan [mailto:[EMAIL PROTECTED]]
> > Sent: Tuesday, December 17, 2002 2:45 PM
> > To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
> > Subject: Re: Read-Write Mode Not Working
> >
> >
> > Yes, I am having the same problem. I don't write much scripts
> > (I'm a newbie)
> > but when I do, open() doesn't seem to work. I'm pretty sure
> > it has to work
> > on Windows, but...
> >
> > --------------
> > Bob Erinkveld (Webmaster Insane Hosts)
> > www.insane-hosts.net
> > MSN: [EMAIL PROTECTED]
> >
> >
> >
> >
> > >From: Jeff Westman <[EMAIL PROTECTED]>
> > >To: [EMAIL PROTECTED]
> > >Subject: Read-Write Mode Not Working
> > >Date: Sun, 15 Dec 2002 11:20:28 -0800 (PST)
> > >
> > >Hi,
> > >
> > >I'm using ActivePerl 5.6.1. I am trying to update an existing file.
> > >According to perlfaq5.pod, I should be able to use:
> > >
> > > open(FH, "+< /path/name"); # open for update
> > >
> > >However, I this doesn't seem to update the file for me:
> > >
> > >#----------(begin)---------#
> > >#! perl -w
> > >$| = 1;
> > >$file = "myFile";
> > >open(FILE, "+< $file") or die "Could not open file, $file:
> > $!\n"; while
> > >(<FILE>) {
> > > # do whatever (read)
> > > print;
> > >}
> > >
> > ># write a line to the file
> > >print FILE "\ntest line\n";
> > >close(FILE);
> > >#----------(end)-----------#
> > >
> > >This runs and displays the file, but the added line is missing. Any
> > >ideas why?! Thanks in advance.
> > >
> > >
> > >Jeff
> > >
> > >__________________________________________________
> > >Do you Yahoo!?
> > >Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
> > >http://mailplus.yahoo.com
> > >
> > >--
> > >To unsubscribe, e-mail: [EMAIL PROTECTED]
> > >For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
> > _________________________________________________________________
> > Ontvang je Hotmail & Messenger berichten op je mobiele
> > telefoon met Hotmail
> > SMS http://www.msn.nl/jumppage/
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
