Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!europa.asd.contel.com!gatech!udel!haven.umd.edu!socrates.umd.edu!socrates!rockwell
From: rockwell@socrates.umd.edu (Raul Rockwell)
Newsgroups: comp.lang.perl
Subject: Re: chsh /usr/bin/perl [writing a shell in perl]
Message-ID: <ROCKWELL.91Jun30193028@socrates.umd.edu>
Date: 1 Jul 91 00:30:28 GMT
References: <MAYER.91Jun27092114@porky.sono.uucp>
Sender: rockwell@socrates.umd.edu (Raul Rockwell)
Organization: Traveller
Lines: 16
In-Reply-To: mayer@sono.uucp's message of 27 Jun 91 16: 21:14 GMT

Ronald Mayer:
   It's quite trivial to make a reasonable shell in perl.  All you need
   to do is have a script which does this:
[long description elided]

Why go to all that trouble?  If you want multi-line statements, $/=';'
Or, $/="\n\n"  If you want history, run inside emacs or something... 

#!/usr/bin/perl
print $prompt="   ";
print (eval || system), print "\n".$prompt while <STDIN>;

Of course, I happen to like seeing return codes and so on...

-- 
Raul <rockwell@socrates.umd.edu>