Re: Converting Python to Perl and back again

Actually, Perl hashes take lists as keys too. This is essential for Regexp::Common's API. Behind the scene, Perl joins the list using $; as the join string to turn the list into a string.

Abigail

Comment on Re: Converting Python to Perl and back again Download Code

Replies are listed 'Best First'.
Re: Re: Converting Python to Perl and back again by Corion (Patriarch) on Apr 04, 2003 at 08:52 UTC
I know, but to make this work in a general fashion when converting Python code to Perl code, you need to make sure that no list element can stringify to something containing `$;` - it's possible but not quite simple (that's what I wanted to say when I mentioned URLencoding). Of course simply storing a (stringified) reference to a static array (which implements a tuple) would also work, but then you're on the way of reimplementing Python in Perl - a slippery slope. For general consumption, there also is Hash::MultiKey, which allows one to use (general) lists (or rather, references to those) as hash keys, presumably in the same way, by storing a stringified list reference as the hash key. `perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ; # The $d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider ($c = $d->accept())->get_request(); $c->send_response( new #in the HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' # web` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Converting Python to Perl and back again
by Corion (Patriarch) on Apr 04, 2003 at 08:52 UTC

I know, but to make this work in a general fashion when converting Python code to Perl code, you need to make sure that no list element can stringify to something containing $; - it's possible but not quite simple (that's what I wanted to say when I mentioned URLencoding). Of course simply storing a (stringified) reference to a static array (which implements a tuple) would also work, but then you're on the way of reimplementing Python in Perl - a slippery slope.
For general consumption, there also is Hash::MultiKey, which allows one to use (general) lists (or rather, references to those) as hash keys, presumably in the same way, by storing a stringified list reference as the hash key.

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]

[reply]
[d/l]