Making a script write to a file (take 2)

[Dave]

G'day all

I'm trying to get a script to write (append) data to the bottom line
of a text file (*.dat). I know the variables I want to add but can't
do it.
I need to append something that looks like this...

$invoice|$date|Your Order has been received

Any suggestions would be helpful.

Cheers
Dave.

[John Bokma]

Dave wrote:

> G'day all
>
> I'm trying to get a script to write (append) data to the bottom line
> of a text file (*.dat). I know the variables I want to add but can't
> do it.
> I need to append something that looks like this...
>
> $invoice|$date|Your Order has been received
>
> Any suggestions would be helpful.

Is it possible that multiple processes add at the same time?

--
Kind regards, feel free to mail: mail(at)johnbokma.com (or reply)
virtual home: [url]http://johnbokma.com/[/url] ICQ: 218175426
John web site hints: [url]http://johnbokma.com/websitedesign/[/url]

[Lao Coon]

[email]prometheus_au@excite.com.au[/email] (Dave) wrote in
news:526e114e.0309041747.7f0ec8aa@posting.google.c om:

> G'day all
>
> I'm trying to get a script to write (append) data to the bottom line
> of a text file (*.dat). I know the variables I want to add but can't
> do it.
> I need to append something that looks like this...
>
> $invoice|$date|Your Order has been received
>
> Any suggestions would be helpful.

Read perldoc perlopentut

open OUT, ">> file.dat" or die "Could not open file.dat : $!";

print OUT "$invoice|$date|Your Order has been received\n";

close OUT;



Lao

[Abigail]

Dave (prometheus_au@excite.com.au) wrote on MMMDCLVII September MCMXCIII
in <URL:news:526e114e.0309041747.7f0ec8aa@posting.goo gle.com>:
// G'day all
//
// I'm trying to get a script to write (append) data to the bottom line
// of a text file (*.dat). I know the variables I want to add but can't
// do it.
// I need to append something that looks like this...
//
// $invoice|$date|Your Order has been received
//
// Any suggestions would be helpful.


What have you tried so far?


Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==> "$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=* _;sub _{print+/.*::(.*)/s};;;
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)}; # Perl 5.6.0 broke this...
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t( us(J())))))))))))))))))))))))

[Dave]

Abigail <abigail@abigail.nl> wrote in message news:<slrnblgksg.6g7.abigail@alexandra.abigail.nl> ...

>
> What have you tried so far?
>
>
> Abigail

Abigail,

I've been working on this.....

$orders_dat = "http//....path to file"

open(ORDERS,">>$orders_dat"); print ORDERS
"$invoice$delimiter$date$delimiter$processing_msg\ n"; close(ORDERS);

Cheers
Dave.

[Vlad Tepes]

Dave <prometheus_au@excite.com.au> wrote:

> Abigail <abigail@abigail.nl>

>>

> I've been working on this.....
>
> $orders_dat = "http//....path to file"
>
> open(ORDERS,">>$orders_dat"); print ORDERS
> "$invoice$delimiter$date$delimiter$processing_msg\ n"; close(ORDERS);

open() doesn't accept urls as arguments. If the file is on a remote
system you can't use open().

If this is cgi, you must remember to lock your files. Otherwise
simultaneous updates might ruin your files. See 'perldoc -f flock'
for details on how to do this.

Regards,
--
Vlad

[Philip]

> $orders_dat = "http//....path to file"

that's your problem. you need to use the real system path to the
file, not it's HTTP URL.

[Dave]

[email]drew@perlmad.com[/email] (Philip) wrote in message news:<9826ff94.0309092008.35913517@posting.google. com>...

> > $orders_dat = "http//....path to file"

>
> that's your problem. you need to use the real system path to the
> file, not it's HTTP URL.

so if I change it to....

$orders_dat = "/home/user/public_html/web/orders.dat"

open(ORDERS,">>$orders_dat");
print ORDERS
"$invoice$delimiter$date$delimiter$processing_msg\ n"; close(ORDERS);

It should work! I'll give it a whirl.
Thanks for the constructive criticism!

Dave.

[Tony Curtis]

>> On 11 Sep 2003 18:22:52 -0700,

>> [email]prometheus_au@excite.com.au[/email] (Dave) said:

> [email]drew@perlmad.com[/email] (Philip) wrote in message
> news:<9826ff94.0309092008.35913517@posting.google. com>...

>> > $orders_dat = "http//....path to file"

>>
>> that's your problem. you need to use the real system
>> path to the file, not it's HTTP URL.

(An http URL does not refer to a file.)

> so if I change it to....
> $orders_dat = "/home/user/public_html/web/orders.dat"
> open(ORDERS,">>$orders_dat"); print ORDERS
> "$invoice$delimiter$date$delimiter$processing_msg\ n";
> close(ORDERS);
> It should work! I'll give it a whirl. Thanks for the
> constructive criticism!

Don't forget you have to deal with locking.

perldoc -q lock

hth
t