Is that the language in which the text adventures of Zork et al. were written?

Fond memories of long nights spend in solving them, come back.

But for a solution of your problem: I would put the Inform code after a __DATA__ statement and then read the Inform code into a hash-structure (or more likely a hash of hashes of ... (just guessing as I don't know anything about the Inform language so the exact structure/grammar/rules are totally opaque to me)

Your Perl-Inform parser/interpreter can then manipulate this data structure in the "usual" way.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

It's not the same language, no. But it compiles to the same virtual machine: the Z-machine. Inform was written to be a nice free compiler for the z-machine. It's actually a very nice OO language (well, as far as writing games goes).

If you've listened to Mr Sugalski, you may have heard him talk about how he'd love to have Parrot be able to run z-code. Which would be fun.

-- Iain, aka Koschei.

I would put the Inform code after a __DATA__ statement and then read the Inform code

Brilliant! Why didn't I think of that?

into a hash-structure (or more likely a hash of hashes of

Yes, it will need to be a nested structure. Something like

$datum{$objectname}{$propertyname}=$propertyvalue;
$datum{$objectname}{$attributename}=(($attr)?1:0);
[download]

As an added bonus, this way of doing it will allow me to give the Inform objects hardware short names, declare their parents, and so on. Simply wonderful.

The only downside is, this prevents me from putting a bunch of Perl code at the end as I was doing, but I can live with that restriction.

---

sub H{$_=shift;while($_){$c=0;while(s/^2//){$c++;}s/^4//;$
v.=(' ','|','_',"\n",'\\','/')[$c]}$v}sub A{$_=shift;while
($_){$d=hex chop;for(1..4){$pl.=($d%2)?4:2;$d>>=1}}$pl}$H=
"16f6da116f6db14b4b0906c4f324";print H(A($H)) # -- jonadab
[download]

You could get the same effect with "here" documents, i.e. "<<EOF" style. That way you could continue to mix perl and Inform code and gain more points for obfuscation.

Is that the language in which the text adventures of Zork et al. were written?

Not Zork, but a great many of the modern classics in the same genre: _Curses_, _The Meteor, the Stone, and a Long Glass of Sherbet_, _Spider and Web_, _Christminster_, _Delusions_, and so on and so forth. There is also a clone of _Adventure_ (the cave game that inspired Zork), though the original was written in Fortran I think.

Zork itself (and the other Infocom games) were written using a language and a compiler that AFAIK no longer exist. It is said to have been similar to MDL. Do a Google Groups search for the word "zil" in the group rec.arts.int-fiction for more information. You will have to wade through some repetition and a lot of people asking questions to which there are few answers, but there is also some real information and a short code snippet or two.

However, when Activision went back and produced _Zork: The Undiscovered Underground_ (to re-awaken interest in the Zork series, since they were also doing a graphical game set in the same universe), they used Inform, since the language used for Zork had been lost.

And, as the other pointer mentioned, Inform can compile to the virtual machine that Zork used, which is probably the second-most widely portable format after ASCII; the games can be played on anything from thirty-year-old mainframes to certain brands of pocket calculators (really). It is one of the few things that can be objectively said to definitely be more portable Perl. (Inform also compiles to another VM called glulx, which is newer and has less historical significance.)

---

sub H{$_=shift;while($_){$c=0;while(s/^2//){$c++;}s/^4//;$
v.=(' ','|','_',"\n",'\\','/')[$c]}$v}sub A{$_=shift;while
($_){$d=hex chop;for(1..4){$pl.=($d%2)?4:2;$d>>=1}}$pl}$H=
"16f6da116f6db14b4b0906c4f324";print H(A($H)) # -- jonadab
[download]

It occurs to me that perhaps I should be more clear about precisely what syntax is giving me trouble. It is the Object declaration syntax, which in detail runs thusly:

Classname objectid "Hardware Short Name" parent
  class someclass anotherclass yetanotherclass,
   with propertyname propertyvalue,
        anotherproperty anothervalue,
        propertythree list of values,
        propertyfour [ localvar anotherlocal;
           print "This is an embedded routine^";
           anotherlocal=do_stuff(localvar);
           "Result: ", anotherlocal;
           ],
    has booleanattribute anotherattribute attrthree;
[download]

I don't need to handle all of that, though. The hardware short name is optional, as is the parent. (An object can be moved to another place in the object tree in the Initialise routine if need be.) The Classname can just be Object, and I don't really need class clauses, since I'm not doing anything sufficiently advanced to need more classes. I would like to be able to ignore an arbitrarily long list of boolean attributes following has, but the Perl code doesn't need to actually do anything with them. I don't really need embedded routines either. (I'm not doing anything full-fledged, just a small proof of concept, really.) What I'm mostly after are string (and maybe numeric) property values. I want to be able to put in Inform code like the object declarations in my earlier example and have the strings stored away, like I described.

sub H{$_=shift;while($_){$c=0;while(s/^2//){$c++;}s/^4//;$
v.=(' ','|','_',"\n",'\\','/')[$c]}$v}sub A{$_=shift;while
($_){$d=hex chop;for(1..4){$pl.=($d%2)?4:2;$d>>=1}}$pl}$H=
"16f6da116f6db14b4b0906c4f324";print H(A($H)) # -- jonadab
[download]