Re: [MacPerl-WebCGI] Can't MacPerl print more than 25.000 char w/out running out of memory?

[Thomas Wegner <toms_email@gmx.de>]

>Tom:
>
>Great! It works!
>I wish I had asked before I spent 12 hours trying to figure out what I was
>doing wrong!    ... I'm fairly new to this ... :-)

That's life ;-)

>While you're at it, how would you do it so that the script creates a new
>BBEdit file and writes to it?

I would set the creator and file type of the newly created file. With
ResEdit, you can figure out (Get File Info) that BBEdit creates files of
type 'TEXT' and sets the creator to 'R*ch'. So, for example:

______________
#!perl -w

open(OUT, ">out.test") or die "Error: $!";
print OUT "something";
close (OUT);
MacPerl::SetFileInfo('R*ch', 'TEXT', 'out.test');

# SetFileInfo(CREATOR, TYPE, FILES) applies the specified creator
# and type to a list of files, see macperl.pod.
______________

>or  Emulate the behavior of the MacPerl
>Output file of BBEdit? I don't know if you're familiar with this: the file
>stays open instead of being saved with Perl's output. It is not a Stationary
>Pad either (I tried this, but the stationary just gets written over and
>doesn't stay open).

If I understand your question right, you would like to append the output of
consecutive runs of your script. Instead of using

   open(OUT, ">out.test") or die "Error: $!";
   print OUT "something";
   close (OUT);

use this

   open(OUT, ">>out.test") or die "Error: $!";
       #     ====
       # first run: creates out.test
       # second++ run(s): appends to out.test (if the file exists)
   print OUT "something";
   close (OUT);


Best regards

--Thomas



==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org