I disagree. At least you have the filesystem there. Unfortunately, I did this
so long ago, I did entirely remember what I needed to do to get it running. In
addition to the PATH, you need to update the LIBPATH for the dynamically loaded
shared objects. On my system, that's:
/usr/lpp/perl/lib/5.8.7/os390-thread-multi/CORE
export LIBPATH=${LIBPATH}:/usr/lpp/perl/lib/5.8.7/os390-thread-multi/CORE
The only two lines in my /etc/profile which reference perl are:
PATH=${PATH}:/usr/lpp/perl/bin
LIBPATH=${LIBPATH}:/usr/lpp/perl/lib/5.8.7/os390-thread-multi/CORE
I tend to put in a series of such assignments, to keep each subdirectory on a
different line for ease of maintenance. At the end, I just put
export PATH
export LIBPATH
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of Ken MacKenzie
> Sent: Monday, February 06, 2012 10:09 AM
> To: [email protected]
> Subject: Re: Regular Expressions (OMVS)
>
> It's getting worse :-(
>
> Xxxxxxx:/usr/lpp/perl/bin: >pwd
> /usr/lpp/perl/bin
> Xxxxxxx:/usr/lpp/perl/bin: >ls -la
> total 1038
> drwxr-xr-x 2 ZDDFX3D $#OMGID1 704 Nov 12 2010 .
> drwxr-xr-x 6 ZDDFX3D $#OMGID1 448 Nov 12 2010 ..
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 114688 Nov 12 2010 a2p
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 164 Nov 12 2010 cppstdin
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 38091 Nov 12 2010 enc2xs
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 24133 Nov 12 2010 find2perl
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 27042 Nov 12 2010 h2ph
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 59777 Nov 12 2010 h2xs
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 3589 Nov 12 2010 instmodsh
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 15742 Nov 12 2010 libnetcfg
> lrwxrwxrwx 1 ZDDFX3D $#OMGID1 9 Dec 21 2010 perl ->
> perl5.8.7
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 24576 Nov 12 2010 perl5.8.7
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 52735 Nov 12 2010 psed
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 52735 Nov 12 2010 s2p
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 17383 Nov 12 2010 splain
> -rwxr-xr-x 2 ZDDFX3D $#OMGID1 51457 Nov 12 2010 xsubpp
> Xxxxxxx:/usr/lpp/perl/bin: >perl -np -e 's/CD.*?QR/junkt/'
> /u/xxxxxxx/fxdata
> CEE3501S The module libperl.so was not found.
> The traceback information could not be determined.
> <> LEAID ENTERED (LEVEL 08/30/2010 AT 12.37)
> <> LEAID LEAID112 LEAID ACKNOWLEDGES UNSUPPORTED USS ENVIRONMENT
> <> LEAID LEAID112 ABEND-AID PROCESSING SUPPRESSED
> <> LEAID PROCESSING COMPLETE. RC=4
> [1] + Done(137) perl -np -e 's/CD.*?QR/junkt/' /u/xxxxxxx/fxdata
> 67109308 Killed ./perl
> Xxxxxxx:/usr/lpp/perl/bin: >
>
> Ken MacKenzie
> Pramerica Systems Ireland Limited is a private company
> limited by shares
> incorporated and registered in the Republic of Ireland with
> registered
> number 319900 and registered office at 6th Floor, South Bank
> House, Barrow
> Street, Dublin 4, Ireland.
>
>
>
> From:
> "McKown, John" <[email protected]>
> To:
> [email protected]
> Date:
> 06/02/2012 16:02
> Subject:
> Re: Regular Expressions (OMVS)
> Sent by:
> IBM Mainframe Discussion List <[email protected]>
>
>
>
> On my z/OS 1.12 system (I'm the senior z/OS sysprog), perl in is
> /usr/lpp/perl/bin. This is where the CBPDO placed it. Perhaps
> you have
> this, but just not on your PATH?
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets(r)
>
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> (817) 255-3225 phone *
> [email protected] * www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain
> confidential or
> proprietary information. If you are not the intended
> recipient, please
> contact the sender by reply e-mail and destroy all copies of
> the original
> message. HealthMarkets(r) is the brand name for products
> underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The
> Chesapeake Life Insurance Company(r), Mid-West National Life
> Insurance
> Company of TennesseeSM and The MEGA Life and Health Insurance
> Company.SM
>
>
>
> > -----Original Message-----
> > From: IBM Mainframe Discussion List
> > [mailto:[email protected]] On Behalf Of Ken MacKenzie
> > Sent: Monday, February 06, 2012 9:48 AM
> > To: [email protected]
> > Subject: Re: Regular Expressions (OMVS)
> >
> > :-(
> >
> > Xxxxxxx:/u/xxxxxxx: >perl -np -e 's/CD.*?QR/junkt/' fxdata
> > perl: FSUM7351 not found
> > Xxxxxxx:/u/xxxxxxx: >
> >
> >
> >
> >
> > From:
> > "McKown, John" <[email protected]>
> > To:
> > [email protected]
> > Date:
> > 06/02/2012 15:44
> > Subject:
> > Re: Regular Expressions (OMVS)
> > Sent by:
> > IBM Mainframe Discussion List <[email protected]>
> >
> >
> >
> > Remember that a regex, by default, is "greedy". IOW, it
> > matches as much as
> > is possible. So with the "CD.*QR" pattern, you match from the
> > first CD
> > until the __last__ QR it can find. Not the first QR it can
> > find. You would
> > need the "non greedy" regex "CD.*?QR" . However, it is
> > unfortunate that
> > IBM, in its POSIX-inspired blindness, does not implement
> "non greedy"
> > regular expressions. I can't get this to work in either awk
> > or sed. But,
> > if you have the Ported Tools available, then you have a older
> > version of
> > perl. It can do what you want.
> >
> > example:
> > $cat test.txt
> > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > $perl -np -e 's/CD.*?QR/junkt/' test.txt
> > QQQQABjunktXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABjunktXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABjunktXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABjunktXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABjunktXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > QQQQABjunktXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> >
> > Where the leading "$" is my shell prompt character.
> >
> > I crossposted this replay to MVS-OE for their viewing
> pleasure. <grin>
> >
> > --
> > John McKown
> > Systems Engineer IV
> > IT
> >
> > Administrative Services Group
> >
> > HealthMarkets(r)
> >
> > 9151 Boulevard 26 * N. Richland Hills * TX 76010
> > (817) 255-3225 phone *
> > [email protected] * www.HealthMarkets.com
> >
> > Confidentiality Notice: This e-mail message may contain
> > confidential or
> > proprietary information. If you are not the intended
> > recipient, please
> > contact the sender by reply e-mail and destroy all copies of
> > the original
> > message. HealthMarkets(r) is the brand name for products
> > underwritten and
> > issued by the insurance subsidiaries of HealthMarkets, Inc. -The
> > Chesapeake Life Insurance Company(r), Mid-West National Life
> > Insurance
> > Company of TennesseeSM and The MEGA Life and Health Insurance
> > Company.SM
> >
> >
> >
> > > -----Original Message-----
> > > From: IBM Mainframe Discussion List
> > > [mailto:[email protected]] On Behalf Of Ken MacKenzie
> > > Sent: Monday, February 06, 2012 8:44 AM
> > > To: [email protected]
> > > Subject: Regular Expressions (OMVS)
> > >
> > > Hi All,
> > >
> > > I'm not sure if this is the appropriate forum, please point
> > > me to the correct one if it's not.
> > >
> > > I'm playing around with regular expressions and I want to
> > > achieve the following. I spoke to a Unix geek but he didn't
> > > really understand what I was asking.
> > >
> > > Given the following sample data, I want discover only the
> > > first occurrence of any string which matches my regexp.
> > > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > > QQQQABCDEFGNOPQRXXXPPPPABCDEFGNOPQRYYYOOOOABCDEFGNOPQRZZZ
> > >
> > > I tried: awk 'sub(/CD.*QR/,"junkt")' fxdata in an attempt to
> > > change QQQQABCDEFGNOPQRXXX to QQQQABjunktXXX but instead, it
> > > takes the final occurrence of QR, and returns QQQQABjunktZZZ.
> > > Notice the ZZZ on the end instead of XXX.
> > >
> > > This is being driven from a REXX exec in ISPF, if any of the
> > > above is not clear, I will try to explain further.
> > >
> > >
> >
> ----------------------------------------------------------------------
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to [email protected] with the message: INFO IBM-MAIN
> > >
> > >
> >
> >
> ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to [email protected] with the message: INFO IBM-MAIN
> >
> >
> >
> >
> ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to [email protected] with the message: INFO IBM-MAIN
> >
> >
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
