I did a project requiring Perl on the AS/400 (isn't it iSeries now?) last summer. The project was a success, but I must say that I didn't find trying to get Perl running correctly to be a pleasant experience, although this may have been due to a lack of experience working on the AS/400 on my part.

You might want to consider looking at the alternatives. The Perl port on CPAN listed above is for version 5.005, and it looked to me as though the port was not being supported very well. If you are serious about doing some kind of CGI programming on the AS/400, you might want to look at Brad Stone's BVS Tools site and the book, e-RPG, which although spendy might bring you more success in this endeavor.

Some of the problems I ran into included but are not limited to

• STDIN, STOUT, and STDERR are environmental variables on the AS/400, which interfere with some Perl scripts. This problem is easily solved, if memory serves.

• the fork() call is not supported at all.

• there is no help to be found on the mailing lists because there are only two other people in the world that have succeeded in getting Perl to run on the AS/400, and one of them is the port maintainer, and the other one is you.

• Apparently many AS/400 programmers, after getting burned by IBM during the Java-is-the-Messiah zealotry era, are now reluctant to attempt to use languages not native to the AS/400. Therefore asking for technical help can be similar to asking a Porsche 944 owner to help you rebuild the CV joints on your Mazda by ordering spare parts under their warranty.

• My memory is a bit fuzzy here but if I recall correctly each Perl script had to have a compiled PGM file in the system library. It took me forever to set these up correctly. They went soemthing like this, though:

  CALL PGM(PERLDIST/PERL) PARM('/home/test.pl')
  
  CRTCLPGM PGM(TEST) SRCFILE(*LIBL/QCLSRC)
  
  CRTCLPGM PGM(CGIBIN/TESTER) SRCFILE(QGPL/QCLSRC)
  [download]

  Again, this was probably due to user ignorance rather than technical problems. I wrote those commands, they are from some notes I took during the project, and yet I to this day have absolutely no idea what they mean. They worked, though, I guess, because they paid me.

• The HTTP server on the AS/400 series was not standard (although I think that since then they have ported Apache?). The configuration of said server is done through a web interface, and it is not very usable compared to just editing httpd.conf. Also, it must be used to set up any CGI programs and directories you wish to run.

• All this stuff runs under a Unix EMULATOR! I don't care what they call it, I am firmly convinced of this fact and nothing you can say will make me think any differently. ;-)

That said, I wish you luck, becase it was actually, in retrospect, sort of fun, like the nitrous during a knee operation. I know that I learned quite a bit.

On the other hand, if you look at IBM lately, they seem to be pulling out all the stops in support of good old Linux/Apache/etc, and you might find that it is a more feasible option to go with a standardized web server platform in the long run.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.