in reply to Perl embedded in Kornshell

Who told you this script was perl? It looks like awk. Awk is like perl in some ways, but the one is not the other. For one thing, perl has '$' in front of the simple variables, and awk does not. And $0, $1, $2, etc. are completely different things.

Save the script to a file, run it through a2p, and then you'll have a perl script (and have a look at the -e option in perldoc perlrun to make it work from a shell script like you have it). Or just change 'perl' to 'awk' and then see if your script works the way you want it to.

Replies are listed 'Best First'.
Re: Re: Perl embedded in Kornshell
by JALandry (Initiate) on Sep 03, 2001 at 22:11 UTC
    The example was awk, not perl. A friend here at the Monestary has since converted the awk to perl for me, but I am getting a syntax message I am stuck on. Something about a right bracket missing, even though all my brackets match/balance. For some reason I could not get 'a2p' to work at all on my machine. The command exists on my machine, but I could not get it to work. Admittedly, I am not sure of the syntax, and I have no explicit documentation on a2p installed either.

    Here's why I am trying to convert the awk to perl:

    The chunk of code shown is just part of a much, much larger interactive script written in kornshell with some embedded awk. In this (sub)procedure, I had to actually "cut" the input file down to run through the awk code shown in order for it to process it because awk was telling me the record length as too long. Subsequently, I had to run the output of the awk procedure through a 'grep' to put the records selected back together again. The file is about 5000 records, and each record is a little over 7000 bytes long. The grep was taking forever when the range passed to the awk procedure was long.

    So, I am trying to convert the awk to perl to overcome the record length problem, and get rid of the 'grep' to speed up the process.

    The process writes out selected records from the iput file, based on whether an identifier is within the range passed on the first record as a set of 'parms'.

    I am not a perl programmer (yet!) so if you care to help me out, I will be glad to e-mail you the code snippet, since I do ot know how to format code in this site's text boxes.

    Thanks again,
    Jim

    Edit by tye

[reply]

In Section Seekers of Perl Wisdom