Re: [MacPerl] truncate Question

[Mark Manning/Simulacron I <markem@flash.net>]

On the SGI,

#!/usr/local/bin/perl

    open(XXX, ">test");
    print XXX "Hi there";
    truncate(XXX, 5);
    close( XXX );

returns:

Dump: test

Offset:    0  1  2  3  4  5  6  7  8  9  a  b  c  d  e  f  
0123456789abcdef

00000000: 48 69 20 74 68 65 72 65 00 00 00 00 00 00 00 00 | Hi
there........ |

Without the CLOSE statement it returns the same thing.
Using:

This is perl, version 5.004_04 built for IP22-irix

Copyright 1987-1997, Larry Wall

Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5.0 source
kit.

--------------------------------------------------------------------------------
All e-mail needs to be sent to mark@cheers.jsc.nasa.gov.  If you don't,
it will
probably bounce.  What man does not understand or fears; he ultimately
destroys.
Steve Wright: Black holes are where God divided by zero.

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch