Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Modules of Formats

by broquaint (Abbot)
on Oct 01, 2002 at 11:00 UTC ( [id://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

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

    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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://201967]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2024-03-28 23:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found