----- Original Message ----- From: "John Korb" <[log in to unmask]> To: <[log in to unmask]> Sent: Wednesday, August 28, 2002 1:18 PM Subject: Perl Question > I know very little about Perl, and I'm trying to use Perl to parse the > NAME=VALUE pairs from a POST form and then pass some environment variables > and the VALUE strings (in a specific order) to an MPE program through the > MPE program's INFO= parameter (not much data). To do so I need to know how > to tell Perl to execute the MPE program with an INFO= string specified, and > I can't seem to find a reference that describes how to run a program from > Perl (but I can find many references on calling Perl from C). I have the > Perl code for parsing the NAME=VALUE pairs and it works. > > Also, perhaps I'm going about this the wrong way. If there is an easier > (non-Perl?) way of doing this, please let me know. > > Thanks! > > John John, This example is adapted straight from page 230 for 'system' of the "Camel" book (Programming Perl, Second Edition - O'Reilly, Larry Wall, Tom Christiansen & Randy L Schwartz). I recommend the book if you are serious about *ANY* Perl programming. /ACCT/SOURCE>cat perlrun #!/usr/local/bin/perl @args = ("callci","showme"); system(@args) == 0 or die "system @args failed: $?\n"; @args = ("callci","nettool.net.sys","'res;di;q'"); system(@args) == 0 or die "system @args failed: $?\n"; /ACCT/SOURCE>./perlrun USER: #S253,GREG.SKVORAK,PUB (IN PROGRAM) RELEASE: C.60.00 MPE/iX HP31900 C.16.01 USER VERSION: C.60.01 CURRENT: WED, AUG 28, 2002, 2:32 PM LOGON: WED, AUG 28, 2002, 1:12 PM CPU SECONDS: 1 CONNECT MINUTES: 80 $STDIN LDEV: 11 $STDLIST LDEV: 11 NETTOOL Version: B06000B0 Enter HELP HELP for an explanation of the help facility. Enter HELP OPERATION for guidance on NETTOOL use. Commands can be abbreviated, HELP keywords cannot. Menu-specific commands for the ROOT: >>>res >>>di WED, AUG 28, 2002, 2:32:57 PM Item Subsystem Name G/N Description Used High Max ____________________________________________________________________ 1 NS XPORT CP_POOL_ (G) Control Buf Pool 0 1 300 :) 2 NS XPORT 1536____ (G) Inbound Buf Pool 32 56 341 :) 3 NS XPORT LAN1____ (N) Outbnd Buf Pool 0 21 512 :) 4 NS XPORT LOOP____ (N) Outbnd Buf Pool 0 0 512 :) 5 NS XPORT UDP (G) GProt Msg Pool 50 N/A 512 :) 6 NS XPORT PXP (G) GProt Msg Pool 1 N/A 660 :) 7 NS XPORT PROBE (G) CM Prot Msg Pool 1 N/A 678 :) 8 NS XPORT IP_NI (G) IP-NI Msg Pool 50 N/A 2048 :) 9 NS XPORT IP_NI (G) IP-NI Msg Pool 50 N/A 2048 :) 10 NS XPORT (G) Node Name Cache 0 29 360 :) 11 NS XPORT (G) 1 52 2048 :) >>>q Regards, Greg Skvorak Beechglen Development, Inc. * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *