Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

SuicideJunkie's scratchpad

by SuicideJunkie (Vicar)
on Aug 09, 2007 at 19:48 UTC ( #631644=scratchpad: print w/replies, xml ) Need Help??

open my $fh, '+>>', $_ or die "Open failed: $!\n"; binmode $fh; seek $fh, (-s $_) - 0xC2, 0 or die "Can't seek: $!"; printf "Found myself at position 0x%x out of 0x%x\n", tell($fh), -s $_ +; print $fh (pack'C[4]', @vertAlign);
Found myself at position 0xc01501 out of 0xc015c3 Found myself at position 0x3795 out of 0x3857
The four values still get tacked on to the END of the file instead of overwriting in the middle...
Log In?

What's my password?
Create A New User
marioroy LWP::Simple works best with Perl v5.26 on Windows. Any Perl version is fine on Cygwin and Unix.
[karlgoethebier]: Hi mario
[marioroy]: Hi karlgoethebier.
[karlgoethebier]: "Long time No See" ;-)
[marioroy]: Yes. I've been working on MCE and MCE::Shared. These are completed and released. MCE 1.830 and MCE::Shared 1.831. Saw the LWP::Simple and P::FM thread and thought to help out.

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2017-09-23 15:52 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (272 votes). Check out past polls.