How can read form __DATA__ via filehandler

filipe has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How can read form __DATA__ via filehandler by Abigail-II (Bishop) on May 21, 2003 at 14:40 UTC
Pass `\DATA`, as shown below: `#!/usr/bin/perl use strict; use warnings; package Bar; sub read_it { my $fh = shift; print while <$fh>; } package Foo; Bar::read_it \DATA; __DATA__ one two three four` [download] Abigail	[reply] [d/l] [select]
Re: How can read form __DATA__ via filehandler by broquaint (Abbot) on May 21, 2003 at 14:41 UTC
The `DATA` filehandle is associated with a given file and is automatically created when the `__DATA__` token exists in a script e.g `package foo; sub getdata { return *DATA } 1; __DATA__ this data is in foo` [download] Now in the main script `use foo; my $d = foo->getdata; print "foo's data - ", <$d>; print "main's data - ", <DATA>; __DATA__ this data is in main` [download] And the output is `foo's data - this data is in foo main's data - this data is in main` [download] As you can see, if you just reference it (and the `__DATA__` token exists) then `perl` does the right thing (of course :). HTH `_________ broquaint`	[reply] [d/l] [select]
Re: Re: How can read form __DATA__ via filehandler by filipe (Novice) on May 21, 2003 at 15:37 UTC
Well, the two solutions worked just fine if you use the diamond operator and i've just dig a few lines of code in the HTML::Template and found that the above i've posted worked fine also, seems that it's a bug on the module that dosen't handle filehandlers properly (i've run a quick test). But thanks anyway, for the brief answers :=) I'll let the author know that and maybe try to fix-it if i got spare time. Cheers Filipe	[reply]
(jeffa) 3Re: How can read form __DATA__ via filehandler by jeffa (Bishop) on May 22, 2003 at 05:41 UTC
Bug in HTML::Template? What are you talking about? No offense, but something tells me that you are overlooking something on your side and you are thinking that it is a bug in that module (at the most i wager it's a feature that samtregar never intended HTML::Template to do). Abigail-II's solution is right on ... nobody says that you ever need use the `<>` operator to pass a package's `DATA` filehandle around (and it is filehandle by the way, not filehandler ... you aren't handling a file, you are getting a handle on the file). Here is some code to demonstrate: We call a package's (Foo) subroutine which returns an object to us (Bar). Bar contains one 'attribute' whose value is a reference to Foo's `DATA` filehandle. Back inside `main` we instantiate a new HTML::Template and pass Bar's 'filehandle' it to (which is really a reference to Foo's). We then pass it a param for it to substitute and then we print the output. Here goes: `use strict; use warnings; use HTML::Template; my $bar = Foo::do_it(); my $tmpl = HTML::Template->new(filehandle => $bar->{filehandle}); $tmpl->param(baz => 'Hello GLOB!'); print $tmpl->output(); package Bar; sub new { my $class = shift; return bless {@_}, $class; } package Foo; sub do_it { my $bar = Bar->new(filehandle => \*DATA); return $bar; } __DATA__ <html> <body> <h1><tmpl_var baz></h1> </body> </html>` [download] Finally note, i tend to use `DATA` only for tests and example scripts - i avoid it when it comes to writing real production code. Use seperate files instead. I guess if you have each page associated with one and only one module it would make sense ... but i tend to associate multiple pages with each module (add, edit, view, delete, list all, etc.) ... Inline::Files? Nah! ;) Best of luck to you and please let us know how your progress goes. :) jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]