some shell script babies!! -- anyone knoe the BEST way to read lines..

mckarl · Jul 4, 2000

some shell script babies!! -- anyone knoe the BEST way to read lines from a file into either variables or directly into files? Basically, i'm creating an output from a file, (eg; karlssuperduperwotsitfile.fle) and placing it into a format. Ready? -- ok, let me explain a little further... File:karlssuperduperwotsitfile.fle data:202 COPY MADSTUPH     : 8-S*************     :  Unknown COPY file specified     :213 01 FILLER           PIC X(32).     :217-S**     :  Preceeding item at this level has zero length     : .....................................     : So, as you can see (yeah, stop laughing, it IS cobol) i need to be able to read in the files as line input, therefor, i can read $1 for line number, and the rest for the error quoted. For line two, the error code (8-S) and the stars can be omitted. and for line three, the output from the compiler of the error in words. Then, it's all just repeated. So, i have looked it in these two methods mainly... Method 1:       line_num=1     for line in `cat karlssuperduperwotsitfile.fle`     do          case line_num in          1) line_err=$1             line_num=2          2) line_code=$2             line_num=3          3) line_explination=$*             line_num=1     done     ... And the story goes on     Is line a reserved shell-script word i can use for lines? I have done it before, but cant remember how! Anyhow, it reads variabe in, Another way would be: using the wc -l and read commands -- cant remember the syntax off hand, but i think you should get the picture... ok, i want to be able to read in LINES AT A TIME, rather than variable wannabees (words) at a time. Any help will be greately recieved!!! Karl. <img src=

http://www.Tek-Tips.com/images/happy.gif>

P.S. this has got to be the biggest post i ever wrote!! Karl <a href=mailto:mc_karl@yahoo.com>mc_karl@yahoo.com</a> <a href= > </a> ~ ~ ~ ~ 
K A R L 
~ ~ ~ ~

MikeLacey · Jul 4, 2000

Karl, Have you got Perl? It's easy in Perl.... Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

mckarl · Jul 4, 2000

yeah, i have perl

) and rexx... Karl <a href=mailto:mc_karl@yahoo.com>mc_karl@yahoo.com</a> <a href= > </a> ~ ~ ~ ~ 
K A R L 
~ ~ ~ ~

mckarl · Jul 4, 2000

Is it possible to pass parameters from perl to a shell script somehow?? Karl <a href=mailto:mc_karl@yahoo.com>mc_karl@yahoo.com</a> <a href= > </a> ~ ~ ~ ~ 
K A R L 
~ ~ ~ ~

ElgisRamon · Jul 4, 2000

Can you use AWK? Its simple: #!/bin/awk (NR%3)==1 { print "Error at line " $1 } (NR%3)==2 { print "Error code is " $1 } (NR%3)==3 { print "Error description: " $0 } Save it like cobolerr and chmodit executable, then you can do cobolerr file.cob and it will processit I hope it works...

MikeLacey · Jul 4, 2000

awk is fine - just I prefer Perl <smile> Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

mckarl · Jul 5, 2000

i'm tying this method now, but looking at it ... i will read in a file of them, what does the NR%3 do?? -- and how could i compensate this method to allow input of one file, carrying multiple records of text? also, i'm encoorperating(is that such a word?)the awk into my shell script, so is it awk begin (NR%3)==1 {PRINT " ... ... AWK END is that right?.. i'v never really used awk b4.. thanks in advance Karl. Karl <a href=mailto:mc_karl@yahoo.com>mc_karl@yahoo.com</a> <a href= > </a> ~ ~ ~ ~ 
K A R L 
~ ~ ~ ~

MikeLacey · Jul 5, 2000

Script in single quotes after the awk command, it can span more than one line. Like this: awk '     (NR%3)==1 {print}     .     .     . ' Don't like it though, awkward is right.... Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

MikeLacey · Jul 5, 2000

In Perl, with a file like this. 202 COPY MADSTUPH 8-S************* Unknown COPY file specified 213 01 FILLER           PIC X(32). 217-S** Preceeding item at this level has zero length first line is the path to the perl executable #!/usr/bin/perl while(<&gt

{            ' process stdin and/or command line files     if (/^\d\d\d/){    ' if the line starts with three digits         print;        ' print it and...         $_=<>;        ' get the next line and...         print;        ' print that as well } There. <smile> *much* nicer. Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

ElgisRamon · Jul 5, 2000

1. I guess AWK is much more understandable than that Perl example. 2. NR means record number, say, the line 3. NR % 3 means NR modulus 3 4. (NR % 3)== 1 { print } means if the record number modulus three equals one

MikeLacey · Jul 6, 2000

"AWK is much more understandable" -- think we're straying into which language is better/religeous issues here, as in: Question: "How many pins can you stick in the head of a Perl programmer" Answer: Lots. Perl programmers have very big heads with plenty of surface area for pins and the like. Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

ElgisRamon · Jul 6, 2000

Good point, but for that particular problems, and pair of solutions I guess mckarl can see clearer the point with my AWKward idea!.

MikeLacey · Jul 6, 2000

Ok <grin> Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

mckarl · Jul 10, 2000

waw, it's rumble time!

thanks all!!! c-u l8a! Karl. Karl Butterworth <a href=mailto:karl_butterworth@ordina.co.uk>karl_butterworth@ordina.co.uk</a> <a href= > </a> I'm slim shadey, yes i'm the real shadey, all you other slim shadeys are just imitating; so wont the real slim shadey please stand up, please stand up, please stand up!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

some shell script babies!! -- anyone knoe the BEST way to read lines..

mckarl

Programmer

MikeLacey

MIS

mckarl

Programmer

mckarl

Programmer

ElgisRamon

MIS

MikeLacey

MIS

mckarl

Programmer

MikeLacey

MIS

MikeLacey

MIS

ElgisRamon

MIS

MikeLacey

MIS

ElgisRamon

MIS

MikeLacey

MIS

mckarl

Programmer

Similar threads

Part and Inventory Search

Sponsor