Re: Modules of Formats

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
[download]

So you'll have to end up exporting entire globs into the given packages, which isn't ideal.
HTH

_________ broquaint

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 fooformat.pl 2>&1 \|grep FORM FORM = 0x99aa4c FORM = 0x99aa4c FORM = 0x99aa4c` [download] Still doesn't quite work in v5.8.9 `FORM = 0x182fa08 FORM = 0x182fa08 FORM = 0x0` [download]	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom