Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

(code) neither clever nor useful array vs. hash example

by ybiC (Prior)
on Jul 02, 2000 at 01:10 UTC ( #20769=snippet: print w/replies, xml ) Need Help??
Description: My background isn't programming, so to most Monks this snippet is likely incredibly rudimentary. Nonetheless, after ~2 years dabbling with Perl (mostly regex logfile analysis and non-DB, HTML-generating-CGI), I was recently forced to actually learn how to implement arrays and hashes in a script. Here's how I got my brain to begin grasping them:
p.s. I think the Debian stable version of Perl (5.00404) is keeping me from doing insertion order retrieval.

Update: added Tie::IxHash for insertion-order retrieval Jan 3, 2001

#!/usr/bin/perl -w

# Rudimentary examples of array, hash, tied hash
# Updated using Komodo beta 1.0.0 build 12686 on Win2k
# Tested: Perl 5.00503 on Debian
#         ActivePerl 5.006 on Win2k

use strict;
use Tie::IxHash;

print "\nPASSEL O' PRINTS";
print "\n 1 script        : $0";
print "\n 2 executable    : $^X $]";
print "\n 3 host OS       : $^O";
print "\n 4 start time    : $^T";
print "\n";

print "\nARRAY+FOREACH";
my @varlist = (
    "\n 1 script        : $0",
    "\n 2 executable    : $^X $]",
    "\n 3 host OS       : $^O",
    "\n 4 start time    : $^T",
foreach (@varlist) {
print "\n";

print "\nHASH+WHILE";
my %varhash = (
    ' 1 script'     =>  "$0" ,
    ' 2 executable' =>  "$^X $]" ,
    ' 3 hostOS'     =>  "$^O" ,
    ' 4 starttime'  =>  "$^T" ,
while((my $key, my $value) = each(%varhash)) {
    print "\n", $key, " is ", $value;
print "\n";

print "\nTIED HASH+FOR";
tie my %tiedhash, "Tie::IxHash";
%tiedhash = (
    ' script'     =>  "$0" ,
    ' executable' =>  "$^X $]" ,
    ' hostOS'     =>  "$^O" ,
    ' starttime'  =>  "$^T" ,
for my $key (keys %tiedhash) {
    print "\n", $key, " is ", $tiedhash{$key};
print "\n";
Replies are listed 'Best First'.
RE: neither clever nor useful array vs. hash example
by ZZamboni (Curate) on Jul 03, 2000 at 18:50 UTC
    It's not the version of perl that keeps you from doing retrieval in the order of insertion. Hashes are that way by nature. There is no guarantee of the order in which the elements will come out when you use keys or each.


      On an aside, you can look at japhy's YAPC 19100 talk on making a ordered hash. No real revelations, but is pretty interesting and the technique is useful. It is here.


      Thanks for taking time to comment, ZZamboni. I really should have phrased my "p.s." something like :

      p.s. I played a bit with a module that facilitates Hash insertion order retrieval, but couldn't make it work. Wish I could remember the module - stumbled across it somewhere in O'Reilly Perl CD Bookshelf.

      It's as likely or more that I had bad syntax than a down-level Perl incompatibility. Is nothing important to me at the moment. By the time I expect to pick it back up, hope to be on Debian 2.2 with a newer $^X$]
Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://20769]
[Corion]: Meh. I think I have now the parts down that I want from a simple Javascript frontend for single-page- applications with a aPerl backend. But it seems that all Javascript templating modules either don't support two-way binding (which would be nice) or ...
[Corion]: ... don't support server-side precompilation (which means the client has to compile all templates to Javascript themselves), or are giant frameworks that expect to do everything (which is not what I want)
[Corion]: I feel that there is a talk somewhere in there, either about the structure and parts, or how I used several parts to get a complete whole.
[Corion]: Maybe I can still find something that is compatible with handlebars.js (which has JS precompilation) but allows for two-way data binding (which is great for the UI)

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2017-03-30 07:52 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (355 votes). Check out past polls.