Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

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.
HTH

_________
broquaint

update: changed FORM to FORMAT


Comment on Re: Modules of Formats
Download Code
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

    Still doesn't quite work in v5.8.9

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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2014-08-23 19:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (178 votes), past polls