Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Modules of Formats

by broquaint (Abbot)
on Oct 01, 2002 at 11:00 UTC ( #201967=note: print w/ replies, xml ) Need Help??

in reply to Modules of Formats

I think the only real problem that you might encounter is copying the actual formats about. The problem is that there's no way of directly copying them unlike the other data types e.g

format foo = . { package mypkg; *form_foo = *main::foo; *form_ref = *form_foo{FORMAT}; } use Devel::Peek; Dump(*main::foo); Dump(*mypkg::form_foo); Dump(*mypkg::form_ref); __output__ SV = PVGV(0x80f9c78) at 0x8100de8 ... FORM = 0x80fd4e4 SV = PVGV(0x80f9dc0) at 0x8100e24 ... FORM = 0x80fd4e4 SV = PVGV(0x8101820) at 0x8100e3c ... FORM = 0x0
So you'll have to end up exporting entire globs into the given packages, which isn't ideal.


update: changed FORM to FORMAT

Comment on Re: Modules of Formats
Download Code
Replies are listed 'Best First'.
Re^2: Modules of Formats
by Anonymous Monk on Nov 11, 2012 at 14:27 UTC

    In the year 2012-11-11 with the perl v5.12.2/v5.14.1 it does work

    $ perl 2>&1 |grep FORM FORM = 0x99aa4c FORM = 0x99aa4c FORM = 0x99aa4c

    Still doesn't quite work in v5.8.9

    FORM = 0x182fa08 FORM = 0x182fa08 FORM = 0x0

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://201967]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (10)
As of 2015-12-01 03:01 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (791 votes), past polls