README.mpeix - Perl/iX for HP e3000 MPE |
README.mpeix - Perl/iX for HP e3000 MPE
=head1 SYNOPSIS
http://www.bixby.org/mark/perlix.html Perl language for MPE Last updated June 2, 2000 @ 0400 UTC
=head1 NOTE
This is a podified version of the above-mentioned web page, podified by Jarkko Hietaniemi 2001-Jan-01.
June 1, 2000
=over 4
=item *
bincompat5005=``undef'': sorry, but you will have to recompile any binary 5.005 extensions that you may be using (if any; there is no 5.005 code in what you download from bixby.org) uselargefiles=``undef'': not available in MPE for POSIX files yet.
=item *
Now bundled with various add-on packages:
1. #!/PERL/PUB/perl 2. use LWP::Simple; 3. $doc = get('http://www.bixby.org/mark/perlix.html'); # reads the web page into variable $doc
(http://www.bixby.org/mark/perlix.html)
and much much more hiding under /PERL/PUB/.cpan/
=item *
The CPAN module now works for automatic downloading and installing of add-on packages:
1. export FTP_PASSIVE=1 2. perl -MCPAN -e shell 3. Ignore any terminal I/O related complaints!
(http://theoryx5.uwinnipeg.ca/CPAN/data/perl/CPAN.html)
May 20, 2000
getpwnam()
function which had regressed to being
unimplemented on MPE is now implemented once again.
=back
September 17, 1999
=head1 Welcome
This is the official home page for the HP e3000 MPE/iX (http://www.businessservers.hp.com/) port of the Perl scripting language (http://www.perl.com/) which gives you all of the power of C, awk, sed, and sh in a single language. Check here for the latest news, implemented functionality, known bugs, to-do list, etc. Status reports about major milestones will also be posted to the HP3000-L mailing list (http://www.lsoft.com/scripts/wl.exe?SL1=HP3000-L&H=RAVEN.UTC.EDU) and its associated gatewayed newsgroup comp.sys.hp.mpe.
I'm doing this port because I can't live without Perl on the Unix machines that I administer, and I want to have the same power available to me on MPE.
Please send your comments, questions, and bug reports directly to me, Mark Bixby (http://www.bixby.org/mark/), by e-mailing to mark@bixby.org. Or just post them to HP3000-L.
The platform I'm using to do this port is an HP 3000 957RX running MPE/iX 6.0 and using the GNU gcc C compiler (http://jazz.external.hp.com/src/gnu/gnuframe.html).
The combined porting wisdom from all of my ports can be found in my MPE/iX Porting Guide (http://www.bixby.org/mark/porting.html).
IMPORTANT NOTICE: Yes, I do work for the HP CSY R&D lab, but ALL of the software you download from bixby.org is my personal freeware that is NOT supported by HP.
=back
Download Perl using FTP.ARPA.SYS from your HP 3000 (the preferred method).....
:HELLO MANAGER.SYS :XEQ FTP.ARPA.SYS open ftp.bixby.org anonymous your@email.address bytestream cd /pub/mpe get perl-5.6.0-mpe.tar.Z /tmp/perl.tar.Z;disc=2147483647 exit
.....Or download using some other generic web or ftp client (the alternate method)
Download the following files (make sure that you use "binary mode" or whatever client feature that is 8-bit clean):
http://www.bixby.org/ftp/pub/mpe/perl-5.6.0-mpe.tar.Z
or
ftp://ftp.bixby.org/pub/mpe/perl-5.6.0-mpe.tar.Z
=item *
Upload those files to your HP 3000 in an 8-bit clean bytestream manner to:
/tmp/perl.tar.Z
=item *
Then extract the installation script (after both download methods)
:CHDIR /tmp :XEQ TAR.HPBIN.SYS 'xvfopz /tmp/perl.tar.Z INSTALL'
Examine the accounting structure creation commands and modify if necessary (adding additional capabilities, choosing a non-system volume set, etc).
:XEQ VI.HPBIN.SYS /tmp/INSTALL
The accounting structure will be created and then all files will be extracted from the archive.
:XEQ SH.HPBIN.SYS /tmp/INSTALL
You only have to do this ONCE on your MPE/iX 5.5 machine in order to convert /lib/lib*.a and /usr/lib/lib*.a libraries to their *.sl equivalents. This step should not be necessary on MPE/iX 6.0 or later machines because the 6.0 or later update process does it for you.
:XEQ SH.HPBIN.SYS /PERL/PUB/LIBSHP3K
=item INSTALL
Perl/iX Installation script.
=item LIBSHP3K
Script to convert *.a system archive libraries to *.sl shared libraries.
=item PERL
Perl NMPRG executable. A version-numbered backup copy also exists. You might wish to ``ln -s /PERL/PUB/PERL /usr/local/bin/perl''.
=item .cpan/
Much add-on source code downloaded with the CPAN module.
=item lib/
Perl libraries, both core and add-on.
=item man/
Perl man page documentation.
=item src/perl-5.6.0-mpe
Source code.
=head1 How to Compile Perl/iX
exit()
return codes improperly)
=back
The summary test results from ``cd t; ./perl -I../lib harness'':
Failed Test Status Wstat Total Fail Failed List of failed --------------------------------------------------------------------------- io/fs.t 29 8 27.59% 2-5, 7-9, 11 io/openpid.t 10 1 10.00% 7 lib/io_sock.t 14 1 7.14% 13 lib/io_udp.t 7 2 28.57% 3, 5 lib/posix.t 27 1 3.70% 12 op/lex_assign.t 187 1 0.53% 13 op/stat.t 58 1 1.72% 3 15 tests and 94 subtests skipped. Failed 7/236 test scripts, 97.03% okay. 15/11306 subtests failed, 99.87% okay.
Create your Perl script files with ``#!/PERL/PUB/perl'' (or an equivalent symbolic link) as the first line. Use the chmod command to make sure that your script has execute permission. Run your script!
Be sure to take a look at the CPAN module list (http://www.cpan.org/CPAN.html). A wide variety of free Perl software is available. You can automatically download these packages by using the CPAN module (http://theoryx5.uwinnipeg.ca/CPAN/data/perl/CPAN.html).
There some minor functionality issues to be aware of when comparing Perl for Unix (Perl/UX) to Perl/iX:
GETPRIVMODE()
in order to bind()
to ports less than 1024.
Perl/iX will call GETPRIVMODE()
automatically on your behalf if you
attempt to bind()
to these low-numbered ports. Note that the Perl/iX
executable and the PERL account do not normally have CAP=PM, so if you
will be bind()-ing to these privileged ports, you will manually need
to add PM capability as appropriate.
bind()
to an IP address of zero. Perl/iX
automatically replaces the IP address that you pass to bind()
with
a zero.
fcntl()
against a socket it will fail, because MPE
requires that you use sfcntl()
instead. Perl/iX does not presently
support sfcntl().
GETPRIVMODE()
in order to setuid(). There are too many
calls to setuid()
within Perl/iX, so I have not attempted an automatic
GETPRIVMODE()
solution similar to bind().
=head1 Known Bugs Under Investigation
None.
=head1 To-Do List
setuid()/setgid()
support work.
fcntl()
against a socket descriptor is redirected to sfcntl().
=back
May 6, 1999
=over 4
=back
April 7, 1999
=back
November 20, 1998
=back
August 14, 1998
=back
August 7, 1998
=over 4
July 28, 1998
=back
July 23, 1998
=back
July 17, 1998
=back
July 15, 1998
=back
July 8, 1998
=back
November 6, 1997
=back
October 16, 1997
=back
October 3, 1997
=back
October 2, 1997
=back
September 1997
=head1 Author
Mark Bixby, mark@bixby.org
README.mpeix - Perl/iX for HP e3000 MPE |