Welcome to Linux Knowledge Base and Tutorial
"The place where you learn linux"
GetNetWise: You
e One Click Away

 Create an AccountHome | Submit News | Your Account  

Tutorial Menu
Linux Tutorial Home
Table of Contents

· Introduction to Operating Systems
· Linux Basics
· Working with the System
· Shells and Utilities
· Editing Files
· Basic Administration
· The Operating System
· The X Windowing System
· The Computer Itself
· Networking
· System Monitoring
· Solving Problems
· Security
· Installing and Upgrading
· Linux and Windows

Man Pages
Linux Topics
Test Your Knowledge

Site Menu
Site Map
Copyright Info
Terms of Use
Privacy Info
Masthead / Impressum
Your Account

Private Messages

News Archive
Submit News
User Articles
Web Links


The Web

Who's Online
There are currently, 75 guest(s) and 0 member(s) that are online.

You are an Anonymous user. You can register for free by clicking here




       This document will help you Configure, build, test and
       install Perl on BS2000 in the POSIX subsystem.


       This is a ported perl for the POSIX subsystem in BS2000
       VERSION OSD V3.1A or later.  It may work on other ver­
       sions, but we started porting and testing it with 3.1A and
       are currently using Version V4.0A.

       You may need the following GNU programs in order to
       install perl:

       gzip on BS2000

       We used version 1.2.4, which could be installed out of the
       box with one failure during 'make check'.

       bison on BS2000

       The yacc coming with BS2000 POSIX didn't work for us.  So
       we had to use bison.  We had to make a few changes to perl
       in order to use the pure (reentrant) parser of bison.  We
       used version 1.25, but we had to add a few changes due to
       EBCDIC.  See below for more details concerning yacc.

       Unpacking Perl Distribution on BS2000

       To extract an ASCII tar archive on BS2000 POSIX you need
       an ASCII filesystem (we used the mountpoint
       /usr/local/ascii for this).  Now you extract the archive
       in the ASCII filesystem without I/O-conversion:

       cd /usr/local/ascii export IO_CONVERSION=NO gunzip <
       /usr/local/src/perl.tar.gz | pax -r

       You may ignore the error message for the first element of
       the archive (this doesn't look like a tar archive / skip­
       ping to next file...), it's only the directory which will
       be created automatically anyway.

       After extracting the archive you copy the whole directory
       tree to your EBCDIC filesystem.  This time you use

       cd /usr/local/src IO_CONVERSION=YES cp -r
       /usr/local/ascii/perl5.005_02 ./

       Compiling Perl on BS2000

       There is a "hints" file for BS2000 called hints.posix-bc
       (because posix-bc is the OS name given by `uname`) that
           shift done

       # add flag %pure_parser:

       tmpfile=/tmp/bison.$$.y echo %pure_parser > $tmpfile cat
       $1 >> $tmpfile

       # call bison:

       echo "/usr/local/bin/bison --yacc $params $1\t\t\t(Pure
       Parser)" /usr/local/bin/bison --yacc $params $tmpfile

       # cleanup:

       rm -f $tmpfile -----8<----------8<-----

       We still use the normal yacc for a2p.y though!!!  We made
       a softlink called byacc to distinguish between the two

       ln -s /usr/bin/yacc /usr/local/bin/byacc

       We build perl using GNU make.  We tried the native make
       once and it worked too.

       Testing Perl on BS2000

       We still got a few errors during "make test".  Some of
       them are the result of using bison.  Bison prints parser
       error instead of syntax error, so we may ignore them.  The
       following list shows our errors, your results may differ:

       op/numconvert.......FAILED tests 1409-1440 op/reg­
       exp...........FAILED tests 483, 496 op/reg­
       exp_noamp.....FAILED tests 483, 496 pragma/over­
       load.....FAILED tests 152-153, 170-171 pragma/warn­
       ings.....FAILED tests 14, 82, 129, 155, 192, 205, 207
       lib/bigfloat........FAILED tests 351-352, 355
       lib/bigfltpm........FAILED tests 354-355, 358 lib/com­
       plex.........FAILED tests 267, 487
       lib/dumper..........FAILED tests 43, 45 Failed 11/231 test
       scripts, 95.24% okay. 57/10595 subtests failed, 99.46%

       Installing Perl on BS2000

       We have no nroff on BS2000 POSIX (yet), so we ignored any
       errors while installing the documentation.

       Using Perl in the Posix-Shell of BS2000

       BS2000 POSIX doesn't support the shebang notation

       "bs2cp /usr/local/bin/perl 'bs2:perl(perl,l)'"

       Now you can start it with the following (SDF) command:


       First you get the BS2000 commandline prompt ('*').  Here
       you may enter your parameters, e.g. "-e 'print "Hello
       World!\\n";'" (note the double backslash!) or "-w" and the
       name of your Perl script.  Filenames starting with "/" are
       searched in the Posix filesystem, others are searched in
       the BS2000 filesystem.  You may even use wildcards if you
       put a "%" in front of your filename (e.g. "-w check­
       files.pl %*.c").  Read your C/C++ manual for additional
       possibilities of the commandline prompt (look for PARAME­

       Floating point anomalies on BS2000

       There appears to be a bug in the floating point implemen­
       tation on BS2000 POSIX systems such that calling int() on
       the product of a number and a small magnitude number is
       not the same as calling int() on the quotient of that num­
       ber and a large magnitude number.  For example, in the
       following Perl code:

           my $x = 100000.0;
           my $y = int($x * 1e-5) * 1e5; # '0'
           my $z = int($x / 1e+5) * 1e5;  # '100000'
           print "\$y is $y and \$z is $z\n"; # $y is 0 and $z is 100000

       Although one would expect the quantities $y and $z to be
       the same and equal to 100000 they will differ and instead
       will be 0 and 100000 respectively.

       Using PerlIO and different encodings on ASCII and EBCDIC

       Since version 5.8 Perl uses the new PerlIO on BS2000.
       This enables you using different encodings per IO channel.
       For example you may use

           use Encode;
           open($f, ">:encoding(ascii)", "test.ascii");
           print $f "Hello World!\n";
           open($f, ">:encoding(posix-bc)", "test.ebcdic");
           print $f "Hello World!\n";
           open($f, ">:encoding(latin1)", "test.latin1");
           print $f "Hello World!\n";
           open($f, ">:encoding(utf8)", "test.utf8");

       usual and tell Perl, that it should use the native IO

           export IO_CONVERSION=YES
           export PERLIO=stdio

       Now your IO would be ASCII on ASCII partitions and EBCDIC
       on EBCDIC partitions.  See the documentation of PerlIO
       (without "Encode::"!)  for further posibilities.


       Thomas Dorner


       INSTALL, perlport.

       Mailing list

       If you are interested in the VM/ESA, z/OS (formerly known
       as OS/390) and POSIX-BC (BS2000) ports of Perl then see
       the perl-mvs mailing list.  To subscribe, send an empty
       message to perl-mvs-subscribe@perl.org.

       See also:


       There are web archives of the mailing list at:



       This document was originally written by Thomas Dorner for
       the 5.005 release of Perl.

       This document was podified for the 5.6 release of perl 11
       July 2000.

perl v5.8.1                 2003-09-02              PERLBS2000(1)

An undefined database error occurred. SELECT distinct pages.pagepath,pages.pageid FROM pages, page2command WHERE pages.pageid = page2command.pageid AND commandid =




Security Code
Security Code
Type Security Code

Don't have an account yet? You can create one. As a registered user you have some advantages like theme manager, comments configuration and post comments with your name.

Help if you can!

Amazon Wish List

Did You Know?
The Linux Tutorial welcomes your suggestions and ideas.


Tell a Friend About Us

Bookmark and Share

Web site powered by PHP-Nuke

Is this information useful? At the very least you can help by spreading the word to your favorite newsgroups, mailing lists and forums.
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters. Articles are the property of their respective owners. Unless otherwise stated in the body of the article, article content (C) 1994-2013 by James Mohr. All rights reserved. The stylized page/paper, as well as the terms "The Linux Tutorial", "The Linux Server Tutorial", "The Linux Knowledge Base and Tutorial" and "The place where you learn Linux" are service marks of James Mohr. All rights reserved.
The Linux Knowledge Base and Tutorial may contain links to sites on the Internet, which are owned and operated by third parties. The Linux Tutorial is not responsible for the content of any such third-party site. By viewing/utilizing this web site, you have agreed to our disclaimer, terms of use and privacy policy. Use of automated download software ("harvesters") such as wget, httrack, etc. causes the site to quickly exceed its bandwidth limitation and are therefore expressly prohibited. For more details on this, take a look here

PHP-Nuke Copyright © 2004 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Page Generation: 0.09 Seconds