>>>>> "Nathaniel" == Nathaniel J Wert <[EMAIL PROTECTED]> writes:
Nathaniel> The following script is not appending to the file for some reason.
Nathaniel> Please bestow your wisdom on me oh great Perl gods. :-)
Nathaniel>
------------------------------------------------------------------------
Nathaniel> --
Nathaniel> #!/usr/bin/perl -w
Nathaniel> my $size=0;
Nathaniel> my @stat;
Nathaniel> open(TEMPFILE, ">>/temp/temp.big_ass_file") or die "unable to write
Nathaniel> /temp/temp.big_ass_file:$\n";
select TEMPFILE;
$| = 1;
select STDOUT;
Nathaniel> while ($size < 15000000000) {
Nathaniel> print TEMPFILE "This is a test for caiLogA2. \n";
Nathaniel> @stat = stat TEMPFILE;
Nathaniel> $size = $stat[7];
Nathaniel> sleep 1;
Nathaniel> print STDOUT "test\n";
Nathaniel> }
Nathaniel> close(TEMPFILE);
Nathaniel> ------------------------------------------------------------------
Nathaniel> Thanks.
Nathaniel> Nate.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
