Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Simple but cool!

Apr 8, 2002, 10:26 AM
Paul
Veteran (19537 posts)
Apr 8, 2002, 10:26 AM
Post #1 of 9
Views: 4353
Shortcut
Quote Reply
Simple but cool!
Hehe, I was writing some code and got lazy and thought I'd try playing about.

Did anyone know you could do stuff like:

Code:
%{ Class->method }

I was so excited when it worked :)

Im using:
Code:
$obj->parse($template, { error => $error, %{ Base->get_hash } } );

Cool

get_hash returns a hashref of form input via get/post

Last edited by:

Paul: Apr 8, 2002, 10:28 AM
Apr 8, 2002, 11:19 AM
Alex
Administrator (9387 posts)
Apr 8, 2002, 11:19 AM
Post #2 of 9
Views: 4244
Shortcut
Quote Reply
Re: [Paul] Simple but cool! In reply to
You mean like:

%$hashref

? It's the same thing. =)

Cheers,

Alex
--
Gossamer Threads Inc.
Apr 8, 2002, 11:27 AM
Paul
Veteran (19537 posts)
Apr 8, 2002, 11:27 AM
Post #3 of 9
Views: 4155
Shortcut
Quote Reply
Re: [Alex] Simple but cool! In reply to
Yeah, I just didn't realise you could do it that way...I was sure it would spew an error :)

I'd been doing it like:

my $input = Base->get_hash;

..then using:

{ %$input }

....but in my laziness I just did

%{ Base->get_hash }

and was shocked/pleased it worked Laugh

Last edited by:

Paul: Apr 8, 2002, 11:27 AM
Apr 9, 2002, 1:18 AM
Wil
Veteran / Moderator (4108 posts)
Apr 9, 2002, 1:18 AM
Post #4 of 9
Views: 4194
Shortcut
Quote Reply
Re: [Alex] Simple but cool! In reply to
Hm. I think I've been doing something similar for a while to load up the hash %tmpl with name/value pairs returned from a database qeury:

Code:
my $sqlquery = qq|SELECT * FROM ata_members|;
my $sth = $dbh->prepare($sqlquery);
$sth->execute or &error_html("Can't execute SQL query:[$DBI::err] $DBI::errstr");
my $ref = $sth->fetchrow_hashref();
$sth->finish;

%tmpl = %$ref;

It basically loads up %tmpl with column name and column value for each row returned. Preety funky I thought.

- wil
Apr 9, 2002, 1:21 AM
Paul
Veteran (19537 posts)
Apr 9, 2002, 1:21 AM
Post #5 of 9
Views: 4207
Shortcut
Quote Reply
Re: [Wil] Simple but cool! In reply to
Hmm its simliar but basically you are just copying a hash.

Its the same as

$foo = $bar

or

$bar = \'foo';

$foo = $$bar

Last edited by:

Paul: Apr 9, 2002, 1:24 AM
Apr 9, 2002, 1:31 AM
Wil
Veteran / Moderator (4108 posts)
Apr 9, 2002, 1:31 AM
Post #6 of 9
Views: 4177
Shortcut
Quote Reply
Re: [Paul] Simple but cool! In reply to
Yeah, I guess so. But it's really cool for getting values out of my database quickly and into my template hash for later use.

- wil
Apr 9, 2002, 1:35 AM
Paul
Veteran (19537 posts)
Apr 9, 2002, 1:35 AM
Post #7 of 9
Views: 4214
Shortcut
Quote Reply
Re: [Wil] Simple but cool! In reply to
Or it would be quicker if your parser accepted a hashref :)

Then if you were lazy like me you could do:

$obj->your_parser($template, $sth->fetchrow_hashref );
Apr 9, 2002, 1:41 AM
Wil
Veteran / Moderator (4108 posts)
Apr 9, 2002, 1:41 AM
Post #8 of 9
Views: 4159
Shortcut
Quote Reply
Re: [Paul] Simple but cool! In reply to
My parser can barely accept a hash! Blush

I need to seriously start looking at some CPAN modules for Template parsing. The wheel has been re-invented many times already.

http://www.perl.com/...8/21/templating.html

- wil
Apr 9, 2002, 1:45 AM
Paul
Veteran (19537 posts)
Apr 9, 2002, 1:45 AM
Post #9 of 9
Views: 4144
Shortcut
Quote Reply
Re: [Wil] Simple but cool! In reply to
If no-one reinvented the wheel then "choice" wouldn't exist in the dictionary Angelic